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