|
|
A051238
|
|
First appearance of string n in e.
|
|
4
|
|
|
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
|
|
|
LINKS
|
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).
|
|
KEYWORD
|
base,easy,nice,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|