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/n ], 10 ], 10 ]// (#[ [ 1, #[ [ 2 ] ]+1 ] ])& ], 110 ]
Table[NumberDigit[Surd[n, n], -1], {n, 120}] (* Harvey P. Dale, Aug 06 2023 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved