login
A023966
First digit after decimal point of 7th root of n.
1
0, 1, 1, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 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
OFFSET
1,4
LINKS
MATHEMATICA
Array[ Function[ n, RealDigits[ N[ Power[ n, 1/7 ], 10 ], 10 ]// (#[ [ 1, #[ [ 2 ] ]+1 ] ])& ], 110 ]
fd7[n_]:=Module[{rd=RealDigits[Surd[n, 7], 10, 20], a, b}, a=rd[[1]]; b=rd[[2]]; a[[b+1]]]; Array[fd7, 110] (* Harvey P. Dale, Jun 21 2016 *)
CROSSREFS
Sequence in context: A317359 A375423 A108229 * A368942 A373813 A088141
KEYWORD
nonn,base
STATUS
approved