%I A094875
%S A094875 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,
%T A094875 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,
%U A094875 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
%N A094875 a(n)=1 if floor(Pi*10^n) is prime, otherwise a(n)=0.
%e A094875 a(0)=1 because 3 is prime,
%e A094875 a(2)=0 because 314 is divided by 2
%e A094875 a(5)=1 because 314159 is prime
%e A094875 a(13)=0 because 31415926535897 is divided by 163
%o A094875 (PARI) \p 120 a=vector(100);v=1;for(i=1,100,a[i]=isprime(floor(Pi*v));
               v=v*10)
%Y A094875 Cf. A089281, A000796, A010051.
%Y A094875 Sequence in context: A016338 A113052 A117964 this_sequence A012245 A089801 
               A089802
%Y A094875 Adjacent sequences: A094872 A094873 A094874 this_sequence A094876 A094877 
               A094878
%K A094875 nonn
%O A094875 0,1
%A A094875 Frederic E.D. Michaud (famillesmichaud(AT)hotmail.com), Jun 16 2004
%E A094875 More terms from Johan Claes (Johan.Claes(AT)luc.ac.be), Jun 16 2004