OFFSET
1,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Array[ Function[ n, RealDigits[ N[ Power[ n, 1/n ], n+6 ] ]// (#[ [ 1, #[ [ 2 ] ]+n ] ])& ], 110 ]
With[{nn=120}, Table[RealDigits[Surd[n, n], 10, nn+10][[1]][[n+1]], {n, nn}]] (* Harvey P. Dale, Aug 22 2021 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved