cp's OEIS Frontend

A088576 Position of the first location of n in the decimal expansion of e.

%I A088576 #18 Mar 30 2025 16:15:27
%S A088576 14,3,1,18,11,12,21,2,4,13,196,201,371,28,224,202,95,89,3,109,112,88,
%T A088576 253,17,34,93,31,1,5,132,72,190,111,143,144,18,20,271,86,107,67,125,
%U A088576 98,135,240,11,104,26,229,35,236,94,16,19,77,302,154,39,326,12,21,243,33
%N A088576 Position of the first location of n in the decimal expansion of e.
%C A088576 Except for a(0), the same as A051238.
%H A088576 T. D. Noe, <a href="/A088576/b088576.txt">Table of n, a(n) for n = 0..10000</a>
%H A088576 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/eDigits.html">e Digits</a>
%H A088576 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/ConstantDigitScanning.html">Constant Digit Scanning</a>
%e A088576 The first 7 is in the 2nd position of the digits of e, so a(7) = 2.
%t A088576 Module[{nn=400,ed},ed=RealDigits[E,10,nn][[1]];Table[SequencePosition[ed,IntegerDigits[n],1][[1,1]],{n,0,70}]] (* _Harvey P. Dale_, Mar 30 2025 *)
%o A088576 (PARI) trajedigitsd(n,m) = { default(realprecision,6000); p = exp(1)*10^5000; v = Vec(Str(p)); for(d=0,m, for(x=1,n, if(d<10, y = eval(v[x]), if(d<100, y = eval(v[x])*10 + eval(v[x+1]), if(d<1000, y = eval(v[x])*100 + eval(v[x+1])*10 + eval(v[x+2]), y = eval(v[x])*1000 + eval(v[x+1])*100 + eval(v[x+2])*10 + eval(v[x+3]) ); ); ); if(y == d,print1(x",");break); ); ) }
%Y A088576 Cf. A001113 (decimal expansion of e).
%Y A088576 Cf. A036900 (number of digits in the decimal expansion of e that must scanned to get all n-digit strings).
%Y A088576 Cf. A032445 (positions in pi), A088577 (positions in phi).
%K A088576 nonn,base
%O A088576 0,1
%A A088576 _Cino Hilliard_, Nov 19 2003