A051238 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

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

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

CROSSREFS

Cf. A001113 (decimal expansion of e).

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

Cf. A032445.

Sequence in context: A051141 A068141 A185025 * A283150 A307064 A120984

Adjacent sequences: A051235 A051236 A051237 * A051239 A051240 A051241

KEYWORD

base,easy,nice,nonn

AUTHOR

Harvey P. Dale

STATUS

approved