login
A023962
First digit after decimal point of cube root of n.
1
0, 2, 4, 5, 7, 8, 9, 0, 0, 1, 2, 2, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 8, 9, 9, 0, 0, 0, 1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6, 6, 7, 7, 7, 7, 8, 8, 8, 8, 8, 9, 9, 9, 9, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 2, 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
OFFSET
1,2
LINKS
MATHEMATICA
Array[ Function[ n, RealDigits[ N[ Power[ n, 1/3 ], 10 ], 10 ]// (#[ [ 1, #[ [ 2 ] ]+1 ] ])& ], 110 ]
CROSSREFS
Sequence in context: A255873 A141425 A081516 * A094562 A178344 A274333
KEYWORD
nonn,base
STATUS
approved