%I
%S 4,2,6,8,2,8,4,6,2,6,4,8,2,0,2,8,8,4,6,0,8,2,0,4,4,4,2,0,8,6,4,0,6,2,
%T 8,6,2,0,8,8,6,2,8,0,4,8,2,4,2,0,6,8,2,4,8,0,8,6,2,8,2,0,6,6,4,0,8,4,
%U 4,6,0,0,8,2,2,2,4,0,8,2,8,4,8,4,0,2,8,4,0,2,0,8,2,0,6,4,4,6,2,2,4,8,4,0,8
%N Even digits of Pi.
%C In the early stages up to 100000 there are a few more odd digits in Pi than even.
%t Select[RealDigits[Pi,10,200][[1]],EvenQ] (* _Harvey P. Dale_, Apr 05 2016 *)
%o (PARI) evenpi(n) = { default(realprecision,20000); p = Pi/10; s = 0; default(realprecision,28); for(x=1,n, d = p*10; d1=floor(d); if(d1%2==0,print1(d1","); s++; ); p = frac(d); ); print(); print(s) }
%K nonn,base
%O 1,1
%A _Cino Hilliard_, Sep 06 2003
