login
Parity of the digits of e in base 10.
2

%I #20 Nov 02 2013 08:07:11

%S 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,

%T 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,

%U 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

%N Parity of the digits of e in base 10.

%F a(n) = A000035(A001113(n)). - _Omar E. Pol_, Oct 28 2013

%t If[EvenQ[#],0,1]&/@RealDigits[E,10,120][[1]] (* _Harvey P. Dale_, Dec 11 2012 *)

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

%Y Cf. A001113, A030657.

%K nonn,base

%O 1

%A _Benoit Cloitre_, Jun 25 2002