OFFSET
1,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MAPLE
a:= proc(n) Digits:= 20+n;
parse(convert(evalf(root(n, n)/10), string)[n+1])
end:
seq(a(n), n=1..120); # Alois P. Heinz, Nov 19 2015
MATHEMATICA
Array[ Function[ n, RealDigits[ N[ Power[ n, 1/n ], n+6 ] ]// (#[ [ 1, n ] ])& ], 110 ]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved