OFFSET
1,4
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
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
KEYWORD
nonn,base
AUTHOR
STATUS
approved