|
%I #18 Jan 25 2022 08:35:55
%S 1,5,11,2,39,7,10,5,13,18,27,1,265,145,108,102,102,5,79,69,37,87,12,
%T 18,148,152,206,51,56,27,308,89,95,181,178,62,114,245,281,38,111,39,
%U 286,102,125,224,244,26,87,117,67,78,147,284,4,61,21,83,28,147,83,141,44
%N a(n) = k if the first occurrence of the digits of n is at the k-th place in n^(1/n).
%H Robert G. Wilson v, <a href="/A159199/b159199.txt">Table of n, a(n) for n = 1..10000</a>
%H Jean-Marc Falcoz, April 2009, <a href="http://vargo.chez.com/oeis3.htm">Table of n, a(n) for n = 2..10000</a>
%e 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.
%t 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 *)
%t 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 *)
%K nonn,base
%O 1,2
%A _Jean-Marc Falcoz_, Apr 06 2009
%E 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
%E More terms from _Robert G. Wilson v_, Apr 07 2009
|
