A023968 First digit after decimal point of 9th root of n.

0, 0, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6

Offset

1,6

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Mathematica

Array[ Function[ n, RealDigits[ N[ Power[ n, 1/9 ], 10 ], 10 ]// (#[ [ 1, #[ [ 2 ] ]+1 ] ])& ], 110 ]
Table[Mod[Floor[10*Surd[n, 9]], 10], {n, 120}] (* Harvey P. Dale, Apr 02 2018 *)

Crossrefs

Sequence in context: A130259 A068549 A132173 * A284248 A204166 A227581

Adjacent sequences: A023965 A023966 A023967 * A023969 A023970 A023971

Keyword

nonn,base

Author

N. J. A. Sloane, Olivier Gérard

Status

approved