|
| |
|
|
A073264
|
|
Prime digits in the decimal expansion of Pi.
|
|
9
| |
|
|
3, 5, 2, 5, 3, 5, 7, 3, 2, 3, 2, 3, 3, 3, 2, 7, 5, 2, 7, 3, 3, 7, 5, 5, 2, 7, 5, 2, 3, 7, 2, 2, 2, 3, 2, 5, 3, 2, 7, 7, 2, 5, 3, 2, 2, 3, 7, 3, 5, 5, 5, 2, 2, 3, 7, 2, 5, 3, 5, 2, 7, 5, 2, 2, 7, 3, 5, 2, 5, 5, 5, 2, 2, 5, 3, 3, 2, 7, 5, 5, 3, 3, 2, 7, 5, 2, 3, 3, 7, 7, 3, 5, 2, 7, 2, 5, 5, 2, 3, 3, 5, 3, 2, 2, 3
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
EXAMPLE
| Pi=3.141592653... so we get 3,5,2,5,3...
|
|
|
PROG
| (PARI) primepi(n) = { default(realprecision, 100000); p = Pi/10; s = 0; default(realprecision, 28); for(x=1, n, d = p*10; d1=floor(d); if(isprime(d1), print1(d1", "); s++; ); p = frac(d); ); print(); print(s) } (Cino Hilliard)
|
|
|
CROSSREFS
| Cf. A000796.
Sequence in context: A065257 A090396 A086387 * A198099 A016657 A010782
Adjacent sequences: A073261 A073262 A073263 * A073265 A073266 A073267
|
|
|
KEYWORD
| easy,nonn,base
|
|
|
AUTHOR
| Y. Kelly Itakura (yitkr(AT)mta.ca), Aug 22 2002
|
|
|
EXTENSIONS
| More terms from Cino Hilliard (hillcino368(AT)gmail.com), Sep 06 2003
|
| |
|
|
