|
%I #18 Oct 13 2023 12:45:17
%S 1,3,10,12,28,30,91,93,109,111,253,255,271,273,820,822,838,840,982,
%T 984,1000,1002,2278,2280,2296,2298,2440,2442,2458,2460,7381,7383,7399,
%U 7401,7543,7545,7561,7563,8839,8841,8857,8859,9001
%N Numbers whose set of base-9 digits is {1,3}.
%H Vincenzo Librandi, <a href="/A032916/b032916.txt">Table of n, a(n) for n = 1..1000</a>
%t Flatten[Table[FromDigits[#,9]&/@Tuples[{1,3},n],{n,5}]] (* _Vincenzo Librandi_, Jun 01 2012 *)
%o (Magma) [n: n in [1..10000] | Set(IntegerToSequence(n, 9)) subset {1, 3}]; // _Vincenzo Librandi_, Jun 01 2012
%o (Python)
%o def A032916(n): return (int(bin(m:=n+1)[3:],9)<<1) + (9**(m.bit_length()-1)-1>>3) # _Chai Wah Wu_, Oct 13 2023
%Y Cf. A007095.
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|
