%I #15 Oct 13 2023 12:19:21
%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 base-15 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
%o (Python)
%o def A032922(n): return (int(bin(m:=n+1)[3:],15)<<1) + (15**(m.bit_length()-1)-1)//14 # _Chai Wah Wu_, Oct 13 2023
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|