[go: up one dir, main page]

login
A086385
Odd digits of Pi.
1
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,1
MATHEMATICA
Select[RealDigits[Pi, 10, 250][[1]], OddQ] (* Harvey P. Dale, Jan 17 2012 *)
PROG
(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); ) }
CROSSREFS
Sequence in context: A285808 A201588 A336858 * A295222 A362078 A123162
KEYWORD
nonn,base
AUTHOR
Cino Hilliard, Sep 06 2003
STATUS
approved