A071981 Parity of the digits of e in base 10.

0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 1, 0, 0, 0, 0, 1, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 1, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0

Offset

1

Links

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

Formula

a(n) = A000035(A001113(n)). - Omar E. Pol, Oct 28 2013

Mathematica

If[EvenQ[#], 0, 1]&/@RealDigits[E, 10, 120][[1]] (* Harvey P. Dale, Dec 11 2012 *)

Prog

(PARI) \p200 for(n=0, 150, print1((1-(-1)^floor(10^n*exp(1)))/2, ", "))

Crossrefs

Cf. A001113, A030657.

Sequence in context: A030301 A316341 A284901 * A280910 A305816 A359820

Adjacent sequences: A071978 A071979 A071980 * A071982 A071983 A071984

Keyword

nonn,base

Author

Benoit Cloitre, Jun 25 2002

Status

approved