A029687 n-th digit after decimal point of 7th root of n.

0, 0, 9, 0, 9, 8, 2, 9, 6, 3, 2, 7, 9, 8, 6, 4, 1, 5, 3, 7, 4, 3, 5, 8, 3, 6, 1, 0, 7, 4, 6, 9, 6, 2, 9, 6, 8, 1, 4, 0, 9, 9, 2, 2, 1, 4, 6, 1, 3, 9, 3, 1, 7, 5, 9, 7, 0, 7, 6, 8, 1, 7, 6, 7, 8, 8, 3, 6, 1, 3, 5, 8, 6, 5, 0, 6, 5, 7, 7, 8, 5, 7, 3, 6, 3, 5, 1, 6, 6, 8, 8, 4, 7, 6, 8, 7, 2, 6, 6, 6, 0, 7

Offset

1,3

Links

G. C. Greubel, Table of n, a(n) for n = 1..10000

Mathematica

Array[ Function[ n, RealDigits[ N[ Power[ n, 1/7 ], n+6 ] ]// (#[ [ 1, #[ [ 2 ] ]+n ] ])& ], 110 ]
Module[{nn=110, srd, fl}, Table[srd=Surd[n, 7]; fl=IntegerLength[Floor[srd]]; RealDigits[ srd, 10, nn+fl+2][[1, n+fl]], {n, nn}]] (* Harvey P. Dale, Apr 14 2022 *)

Crossrefs

Sequence in context: A252851 A241290 A201298 * A187426 A226765 A132696

Adjacent sequences: A029684 A029685 A029686 * A029688 A029689 A029690

Keyword

nonn,base

Author

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

Status

approved