%I
%S 0,1,1,1,1,1,0,1,1,1,1,0,1,1,0,0,0,1,1,0,0,0,0,0,1,1,0,1,0,1,1,0,0,0,
%T 1,1,0,0,0,1,0,0,1,0,0,1,0,0,0,1,0,1,1,0,0,1,0,0,0,1,1,1,1,0,0,1,0,0,
%U 0,0,1,0,1,1,1,1,0,1,0,0,0,1,1,1,1,1,0,1,1,1
%N Bits obtained using Pi and e's digits after the decimal: if, the corresponding digits' parities (cf. even vs. odd) are the same, output is 0; otherwise, output is 1.
%e For a(1): 1. digit of Pi (after decimal) = 1, 1. digit of e (after decimal) = 7, since parities are the same, a(1) = 0.
%e For a(2): 2. digit of Pi (after decimal) = 4, 2. digit of e (after decimal) = 1, since parities are not the same, a(2) = 1.
%e For a(3): 3. digit of Pi (after decimal) = 1, 3. digit of e (after decimal) = 8, since parities are not the same, a(3) = 1.
%p Digits := 120 ;
%p A196147 := proc(n)
%p ap := floor(10^n*Pi) mod 10 ;
%p ep := floor(10^n*exp(1)) mod 10 ;
%p if (ap mod 2) = (ep mod 2) then
%p 0;
%p else
%p 1;
%p end if;
%p end proc: # _R. J. Mathar_, Sep 28 2011
%t f[n_]:=Mod[RealDigits[N[n,200]][[1]],2];Abs[f[Pi3]f[E2]] (* _Zak Seidov_, Sep 29 2011 *)
%Y Cf. A030657, A071981, A000796, A001113.
%K nonn,less,base
%O 1
%A _Umut Uludag_, Sep 28 2011
