OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
MATHEMATICA
Array[ Function[ n, RealDigits[ N[ Power[ n, 1/8 ], n+6 ] ]// (#[ [ 1, #[ [ 2 ] ]+n ] ])& ], 110 ]
nd8[n_]:=Module[{c=RealDigits[Surd[n, 8], 10, 20+n]}, c[[1, c[[2]]+n]]]; Array[ nd8, 120] (* Harvey P. Dale, Jul 23 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved