login
A159199
a(n) = k if the first occurrence of the digits of n is at the k-th place in n^(1/n).
1
1, 5, 11, 2, 39, 7, 10, 5, 13, 18, 27, 1, 265, 145, 108, 102, 102, 5, 79, 69, 37, 87, 12, 18, 148, 152, 206, 51, 56, 27, 308, 89, 95, 181, 178, 62, 114, 245, 281, 38, 111, 39, 286, 102, 125, 224, 244, 26, 87, 117, 67, 78, 147, 284, 4, 61, 21, 83, 28, 147, 83, 141, 44
OFFSET
1,2
LINKS
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
Sequence in context: A160923 A201457 A111118 * A125683 A125685 A098147
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