A159199 a(n) = k if the first occurrence of the digits of n is at the k-th place in n^(1/n).

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

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

Sequence in context: A160923 A201457 A111118 * A125683 A125685 A098147

Adjacent sequences: A159196 A159197 A159198 * A159200 A159201 A159202

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