login
Numbers whose decimal expansion contains only 0's and 3's.
12

%I #33 Oct 30 2023 09:51:26

%S 0,3,30,33,300,303,330,333,3000,3003,3030,3033,3300,3303,3330,3333,

%T 30000,30003,30030,30033,30300,30303,30330,30333,33000,33003,33030,

%U 33033,33300,33303,33330,33333,300000,300003,300030,300033,300300,300303,300330,300333

%N Numbers whose decimal expansion contains only 0's and 3's.

%H Reinhard Zumkeller, <a href="/A169966/b169966.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n+1) = Sum_{k>=0} A030308(n,k)*A093138(k+1). - _Philippe Deléham_, Oct 16 2011

%F a(n) = 3 * A007088(n-1).

%t Map[FromDigits,Tuples[{0,3},6]] (* _Paolo Xausa_, Oct 30 2023 *)

%o (PARI) print1(0);for(d=1,5,for(n=2^(d-1),2^d-1,print1(", ");forstep(i=d-1,0,-1,print1((n>>i)%2*3)))) \\ _Charles R Greathouse IV_, Nov 16 2011

%o (Haskell)

%o a169966 n = a169966_list !! (n-1)

%o a169966_list = map (* 3) a007088_list

%o -- _Reinhard Zumkeller_, Jan 10 2012

%o (Python)

%o def a(n): return 3*int(bin(n)[2:])

%o print([a(n) for n in range(40)]) # _Michael S. Branicky_, Mar 30 2021

%Y Cf. A007088, A014263, A169964, A169965, A169967.

%Y Cf. A078242, A204093, A204094, A204095, A097256.

%K nonn,base,easy

%O 1,2

%A _N. J. A. Sloane_, Aug 07 2010