Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A086396
Even digits of e.
0
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
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
KEYWORD
nonn,base
AUTHOR
Cino Hilliard, Sep 06 2003
STATUS
approved