A051238 First appearance of string n in e.

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

Offset: 1

Author

Harvey P. Dale

Keywords

• base
• easy
• nice
• nonn

Comments

A088576 has the a(0) term.

Links

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

Crossrefs

Cf. A001113 (decimal expansion of e).

Cf. A088576 (same as a(n) but including the term for n = 0).

Cf. A032445.

Programs

Mathematica

(* Computing 200000 digits of e is sufficient up to n=10000 *) eString = RealDigits[E, 10, 200000] // First // ToString /@ # & // StringJoin; a[n_] := (p = StringPosition[eString, n // ToString, 1]; If[p == {}, 0, p[[1, 1]]]); Table[a[n], {n, 1, 60}] (* Jean-François Alcover, Mar 04 2013 *)
With[{eee=RealDigits[E,10,200000][[1]]},Transpose[Flatten[Table[ SequencePosition[ eee,IntegerDigits[n],1],{n,70}],1]][[1]]] (* The program uses the SequencePosition function from Mathematica version 10 *) (* Harvey P. Dale, Nov 20 2015 *)