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

14, 3, 1, 18, 11, 12, 21, 2, 4, 13, 196, 201, 371, 28, 224, 202, 95, 89, 3, 109, 112, 88, 253, 17, 34, 93, 31, 1, 5, 132, 72, 190, 111, 143, 144, 18, 20, 271, 86, 107, 67, 125, 98, 135, 240, 11, 104, 26, 229, 35, 236, 94, 16, 19, 77, 302, 154, 39, 326, 12, 21, 243, 33

Offset: 0

Author

Cino Hilliard, Nov 19 2003

Keywords

• nonn
• base

Comments

Except for a(0), the same as A051238.

Examples

			The first 7 is in the 2nd position of the digits of e, so a(7) = 2.
		

Links

• T. D. Noe, Table of n, a(n) for n = 0..10000
• Eric Weisstein's World of Mathematics, e Digits
• Eric Weisstein's World of Mathematics, Constant Digit Scanning

Crossrefs

Cf. A001113 (decimal expansion of e).

Cf. A036900 (number of digits in the decimal expansion of e that must scanned to get all n-digit strings).

Cf. A032445 (positions in pi), A088577 (positions in phi).

Programs

Mathematica

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 *)

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); ); ) }