OFFSET
0,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
MATHEMATICA
Table[FromDigits[IntegerDigits[3^n, 7]], {n, 0, 30}] (* Vincenzo Librandi, Jun 07 2013 *)
PROG
(PARI) vector(50, n, n--; fromdigits(digits(3^n, 7))) \\ G. C. Greubel, Oct 13 2018
(Magma) [Seqint(Intseq(3^n, 7)): n in [0..30]]; // G. C. Greubel, Oct 13 2018
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved