OFFSET
0,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
MATHEMATICA
Table[FromDigits[IntegerDigits[2^n, 7]], {n, 0, 40}] (* Vladimir Joseph Stephan Orlovsky, Feb 17 2012 *)
PROG
(PARI) for(n=0, 30, print1(fromdigits(digits(2^n, 7)), ", ")) \\ G. C. Greubel, Sep 10 2018
(Magma) [Seqint(Intseq(2^n, 7)): n in [0..30]]; // G. C. Greubel, Sep 10 2018
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved