OFFSET
1,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = 3 * A007088(n-1).
MATHEMATICA
Map[FromDigits, Tuples[{0, 3}, 6]] (* Paolo Xausa, Oct 30 2023 *)
PROG
(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
(Haskell)
a169966 n = a169966_list !! (n-1)
a169966_list = map (* 3) a007088_list
-- Reinhard Zumkeller, Jan 10 2012
(Python)
def a(n): return 3*int(bin(n)[2:])
print([a(n) for n in range(40)]) # Michael S. Branicky, Mar 30 2021
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
N. J. A. Sloane, Aug 07 2010
STATUS
approved