A086385 Odd digits of Pi.

3, 1, 1, 5, 9, 5, 3, 5, 9, 7, 9, 3, 3, 3, 3, 3, 7, 9, 5, 1, 9, 7, 1, 9, 3, 9, 9, 3, 7, 5, 1, 5, 9, 7, 9, 5, 9, 3, 7, 1, 9, 9, 3, 5, 3, 1, 1, 7, 7, 9, 1, 5, 1, 3, 3, 7, 9, 3, 9, 5, 5, 5, 3, 1, 7, 5, 3, 5, 9, 1, 1, 1, 1, 7, 5, 1, 7, 1, 9, 3, 5, 1, 1, 5, 5, 5, 9, 9, 9, 5, 9, 3, 3, 1, 9, 1, 9, 7, 5, 5, 9, 3, 3, 1, 7

Offset: 1

Author

Cino Hilliard, Sep 06 2003

Keywords

• nonn
• base

Programs

Mathematica

Select[RealDigits[Pi,10,250][[1]],OddQ] (* Harvey P. Dale, Jan 17 2012 *)

PARI

oddpi(n) = { default(realprecision,20000); p = Pi/10; default(realprecision,28); for(x=1,n, d = p*10; d1=floor(d); if(d1%2,print1(d1",")); p = frac(d); ) }