A086384 Odd digits of e.

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

Links

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

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

Adjacent sequences: A086381 A086382 A086383 * A086385 A086386 A086387

Keyword

nonn,base

Author

Cino Hilliard, Sep 06 2003

Status

approved