OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
FORMULA
MATHEMATICA
FromDigits[IntegerDigits[#, 7]]&/@(Range[40]^3) (* Harvey P. Dale, Feb 24 2013 *)
Table[FromDigits[IntegerDigits[n^3, 7]], {n, 40}] (* Vincenzo Librandi, Oct 15 2015 *)
PROG
(Magma) [Seqint(Intseq(n^3, 7)): n in [1..40]]; // Vincenzo Librandi, Oct 15 2015
(PARI) for(n=1, 40, print1(fromdigits(digits(n^3, 7)), ", ")) \\ G. C. Greubel, Sep 10 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Changed offset and more terms from Vincenzo Librandi, Oct 15 2015
STATUS
approved