OFFSET
1,2
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 1..10000
Jean-Marc Falcoz, April 2009, Table of n, a(n) for n = 2..10000
EXAMPLE
18^(1/18) = 1.174187253... and 18 appears in the digits of this number for the first time at the fifth place -> a(18)=5.
MATHEMATICA
f[n_] := StringPosition[ ToString@ FromDigits@ RealDigits[n^(1/n), 10, 10000][[1]], ToString@n][[1, 1]]; Array[f, 70] (* Robert G. Wilson v, Apr 07 2009 *)
Table[Flatten[SequencePosition[RealDigits[Surd[n, n], 10, 1000][[1]], IntegerDigits[ n], 1], 1][[1]], {n, 70}] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 04 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jean-Marc Falcoz, Apr 06 2009
EXTENSIONS
First comment line changed to an example line and second comment line changed to a Links entry by Robert G. Wilson v, Apr 07 2009
More terms from Robert G. Wilson v, Apr 07 2009
STATUS
approved