A077547 - OEIS

%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