%I
%S 1,3,16,18,46,48,241,243,271,273,691,693,721,723,3616,3618,3646,3648,
%T 4066,4068,4096,4098,10366,10368,10396,10398,10816,10818,10846,10848,
%U 54241,54243,54271,54273,54691,54693,54721,54723
%N Numbers whose set of base15 digits is {1,3}.
%H Vincenzo Librandi, <a href="/A032922/b032922.txt">Table of n, a(n) for n = 1..1000</a>
%t Flatten[Table[FromDigits[#,15]&/@Tuples[{1,3},n],{n,5}]] (* _Vincenzo Librandi_, Jun 03 2012 *)
%o (MAGMA) [n: n in [1..55000]  Set(IntegerToSequence(n, 15)) subset {1, 3}]; // _Vincenzo Librandi_, Jun 03 2012
%K nonn,base
%O 1,2
%A _Clark Kimberling_
