A086399 Even digits of Pi.

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.

Links

Table of n, a(n) for n=1..105.

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

Adjacent sequences: A086396 A086397 A086398 * A086400 A086401 A086402

Keyword

nonn,base

Author

Cino Hilliard, Sep 06 2003

Status

approved