|
%I #15 Oct 13 2023 12:18:31
%S 1,3,15,17,43,45,211,213,239,241,603,605,631,633,2955,2957,2983,2985,
%T 3347,3349,3375,3377,8443,8445,8471,8473,8835,8837,8863,8865,41371,
%U 41373,41399,41401,41763,41765,41791,41793,46859,46861
%N Numbers whose set of base-14 digits is {1,3}.
%H Vincenzo Librandi, <a href="/A032921/b032921.txt">Table of n, a(n) for n = 1..1000</a>
%t Flatten[Table[FromDigits[#,14]&/@Tuples[{1,3},n],{n,5}]] (* _Vincenzo Librandi_, Jun 03 2012 *)
%o (Magma) [n: n in [1..47000] | Set(IntegerToSequence(n, 14)) subset {1, 3}]; // _Vincenzo Librandi_, Jun 03 2012
%o (Python)
%o def A032921(n): return (int(bin(m:=n+1)[3:],14)<<1) + (14**(m.bit_length()-1)-1)//13 # _Chai Wah Wu_, Oct 13 2023
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|
