A086396 Even digits of e.

2, 8, 2, 8, 8, 2, 8, 4, 0, 4, 2, 6, 0, 2, 8, 4, 2, 6, 6, 2, 4, 2, 4, 0, 6, 4, 6, 6, 6, 6, 2, 2, 4, 0, 6, 6, 0, 4, 4, 8, 2, 8, 2, 6, 6, 4, 2, 4, 2, 4, 6, 6, 2, 0, 0, 0, 2, 8, 4, 6, 6, 2, 0, 4, 2, 0, 0, 4, 2, 2, 6, 0, 6, 0, 8, 2, 2, 8, 6, 2, 4, 4, 0, 6, 2, 8, 2, 8, 8, 0, 2, 0, 0, 8, 4, 8, 0, 0, 2, 4, 0, 8, 4, 4, 8

Offset

1,1

Links

Table of n, a(n) for n=1..105.

Mathematica

Select[RealDigits[E, 10, 250][[1]], EvenQ] (* Harvey P. Dale, Mar 02 2023 *)

Prog

(PARI) evene(n) = { default(realprecision, 10000); p = exp(1)/10; s=0; default(realprecision, 28); for(x=1, n, d = p*10; d1=floor(d); if(d1%2==0, print1(d1", "); s++; ); p = frac(d); ); print(); print(s) }

Crossrefs

Sequence in context: A010698 A286309 A010466 * A195844 A222828 A222842

Adjacent sequences: A086393 A086394 A086395 * A086397 A086398 A086399

Keyword

nonn,base

Author

Cino Hilliard, Sep 06 2003

Status

approved