|
| |
|
|
A094875
|
|
a(n)=1 if floor(Pi*10^n) is prime, otherwise a(n)=0.
|
|
0
| |
|
|
1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
EXAMPLE
| a(0)=1 because 3 is prime,
a(2)=0 because 314 is divided by 2
a(5)=1 because 314159 is prime
a(13)=0 because 31415926535897 is divided by 163
|
|
|
PROG
| (PARI) \p 120 a=vector(100); v=1; for(i=1, 100, a[i]=isprime(floor(Pi*v)); v=v*10)
|
|
|
CROSSREFS
| Cf. A089281, A000796, A010051.
Sequence in context: A117964 A179020 A179771 * A012245 A185059 A179776
Adjacent sequences: A094872 A094873 A094874 * A094876 A094877 A094878
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Frederic E.D. Michaud (famillesmichaud(AT)hotmail.com), Jun 16 2004
|
|
|
EXTENSIONS
| More terms from Johan Claes (Johan.Claes(AT)luc.ac.be), Jun 16 2004
|
| |
|
|
