Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A086399
Even digits of Pi.
1
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, 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, 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
OFFSET
1,1
COMMENTS
In the early stages up to 100000 there are a few more odd digits in Pi than even.
MATHEMATICA
Select[RealDigits[Pi, 10, 200][[1]], EvenQ] (* Harvey P. Dale, Apr 05 2016 *)
PROG
(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) }
(Python)
from sympy import S
def auptodigs(lim):
return [int(d) for d in str(S.Pi.n(lim+1)) if d not in ".13579"]
print(auptodigs(197)) # Michael S. Branicky, Apr 02 2021
CROSSREFS
Sequence in context: A256568 A138947 A083412 * A105365 A077157 A268718
KEYWORD
nonn,base
AUTHOR
Cino Hilliard, Sep 06 2003
STATUS
approved