OFFSET
1,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
MATHEMATICA
Array[ Function[ n, RealDigits[ N[ Power[ n, 1/7 ], n+6 ] ]// (#[ [ 1, #[ [ 2 ] ]+n ] ])& ], 110 ]
Module[{nn=110, srd, fl}, Table[srd=Surd[n, 7]; fl=IntegerLength[Floor[srd]]; RealDigits[ srd, 10, nn+fl+2][[1, n+fl]], {n, nn}]] (* Harvey P. Dale, Apr 14 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved