A023965 First digit after decimal point of 6th root of n.

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

Offset

1,3

Comments

When n is a sixth power, let a(n) = 0 rather than a(n) = 9. - Charles R Greathouse IV, Jan 06 2016

Links

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

Mathematica

Array[ Function[ n, RealDigits[ N[ Power[ n, 1/6 ], 10 ], 10 ]// (#[ [ 1, #[ [ 2 ] ]+1 ] ])& ], 110 ]
Table[RealDigits[Surd[n, 6], 10, 10][[1, 2]], {n, 120}] (* Harvey P. Dale, Jun 23 2016 *)

Prog

(PARI) a(n)=if(ispower(n, 6), 0, 10*frac(sqrtn(n, 6))\1) \\ Charles R Greathouse IV, Jan 06 2016
(Python)
from sympy import integer_nthroot
def A023965(n): return integer_nthroot(n*10**6, 6)[0] % 10 # Chai Wah Wu, Nov 14 2022

Crossrefs

Sequence in context: A364480 A033810 A253272 * A274094 A274093 A087847

Adjacent sequences: A023962 A023963 A023964 * A023966 A023967 A023968

Keyword

nonn,base

Author

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

Status

approved