OFFSET
0,1
COMMENTS
The 2 before the decimal point is counted as position 0.
This differs from A078197(n) at n = 2, 27, 271, 2718, ... .
MATHEMATICA
With[{ed=RealDigits[E, 10, 500][[1]]}, Flatten[Table[SequencePosition[ ed, IntegerDigits[n], 1][[All, 1]], {n, 0, 65}]]]-1 (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 06 2017 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Bobby Jacobs, Jan 21 2017
STATUS
approved