OFFSET
0,2
REFERENCES
S. Wolfram, A New Kind of Science, Wolfram Media, 2002, pp. 120 and 903.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..640
MATHEMATICA
Table[ FromDigits[ IntegerDigits[3^n, 2]], {n, 0, 14}]
PROG
(PARI) a(n)=fromdigits(binary(3^n)) \\ M. F. Hasler, Jun 23 2018
(Magma) [Seqint(Intseq(3^n, 2)): n in [0..30]]; // G. C. Greubel, Sep 10 2018
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved