login
A086384
Odd digits of e.
0
7, 1, 1, 5, 9, 5, 3, 5, 3, 7, 7, 1, 3, 5, 9, 7, 7, 5, 7, 7, 9, 3, 9, 9, 9, 5, 9, 5, 7, 9, 9, 7, 7, 7, 7, 3, 3, 5, 3, 5, 7, 5, 9, 5, 7, 1, 3, 1, 7, 5, 5, 1, 7, 7, 3, 9, 1, 9, 3, 3, 5, 9, 9, 1, 1, 7, 1, 3, 5, 9, 9, 3, 5, 7, 9, 3, 3, 9, 5, 5, 9, 5, 3, 7, 3, 1, 3, 3, 7, 9, 3, 9, 7, 3, 3, 3, 9, 7, 5, 3, 1, 9, 5, 5, 1
OFFSET
1,1
MATHEMATICA
Select[RealDigits[E, 10, 240][[1]], OddQ] (* Harvey P. Dale, Feb 21 2013 *)
PROG
(PARI) odde(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, print1(d1", "); s++; ); p = frac(d); ); print(); print(s) }
CROSSREFS
Sequence in context: A201670 A019980 A258986 * A102421 A019620 A105395
KEYWORD
nonn,base
AUTHOR
Cino Hilliard, Sep 06 2003
STATUS
approved