A023963 First digit after decimal point of 4th root of n.

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

Offset

1,3

Links

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

Mathematica

Array[ Function[ n, RealDigits[ N[ Power[ n, 1/4 ], 10 ], 10 ]// (#[ [ 1, #[ [ 2 ] ]+1 ] ])& ], 110 ]

Prog

(Python)
from sympy import integer_nthroot
def A023963(n): return integer_nthroot(n*10**4, 4)[0]%10 # Chai Wah Wu, Feb 27 2023

Crossrefs

Sequence in context: A262872 A257923 A288178 * A121500 A182230 A113455

Adjacent sequences: A023960 A023961 A023962 * A023964 A023965 A023966

Keyword

nonn,base

Author

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

Status

approved