|
%I #18 Dec 21 2021 23:42:10
%S 3,1,18,11,12,21,2,4,13,196,201,371,28,224,202,95,89,3,109,112,88,253,
%T 17,34,93,31,1,5,132,72,190,111,143,144,18,20,271,86,107,67,125,98,
%U 135,240,11,104,26,229,35,236,94,16,19,77,302,154,39,326,12,21
%N First appearance of string n in e.
%C A088576 has the a(0) term.
%H T. D. Noe, <a href="/A051238/b051238.txt">Table of n, a(n) for n = 1..10000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/eDigits.html">e Digits</a>
%t (* 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 *)
%t 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 *)
%Y Cf. A001113 (decimal expansion of e).
%Y Cf. A088576 (same as a(n) but including the term for n = 0).
%Y Cf. A032445.
%K base,easy,nice,nonn
%O 1,1
%A _Harvey P. Dale_
|
