|
%I #17 Jan 15 2015 11:24:40
%S 3,31,97,924269,1958577254745770740635072198655932631
%N Primes of the form floor(Pi^n).
%C The main entry for this sequence is A059792.
%C a(6) has 158 digits and is too large to include.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Pi-Prime.html">Pi-Prime</a>
%t lst={};Do[If[PrimeQ[p=Floor[Pi^n]],AppendTo[lst,p]],{n,4*5!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Jan 28 2009 *)
%o (PARI) for(n=1,999,if(ispseudoprime(t=floor(Pi^n)),print1(t", "))) \\ _Charles R Greathouse IV_, Oct 03 2011
%K nonn
%O 1,1
%A _Amarnath Murthy_, Nov 09 2002
%E a(5) from _Vladimir Joseph Stephan Orlovsky_, Jan 28 2009
| 