login
A023977
First digit after the decimal point of the n-th root of n.
1
0, 4, 4, 4, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
OFFSET
1,2
LINKS
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
Sequence in context: A358328 A117499 A063570 * A073259 A174987 A214926
KEYWORD
nonn,base
STATUS
approved