A086399 - OEIS

%I #10 Apr 02 2021 10:41:27

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

%o (Python)

%o from sympy import S

%o def auptodigs(lim):

%o   return [int(d) for d in str(S.Pi.n(lim+1)) if d not in ".13579"]

%o print(auptodigs(197)) # _Michael S. Branicky_, Apr 02 2021

%K nonn,base

%O 1,1

%A _Cino Hilliard_, Sep 06 2003