A077547 Primes of the form floor(Pi^k).
3, 31, 97, 924269, 1958577254745770740635072198655932631
Offset: 1
Links
- Eric Weisstein's World of Mathematics, Pi-Prime
Crossrefs
Cf. A059792.
Programs
-
Mathematica
lst={};Do[If[PrimeQ[p=Floor[Pi^n]],AppendTo[lst,p]],{n,4*5!}];lst (* Vladimir Joseph Stephan Orlovsky, Jan 28 2009 *)
-
PARI
for(n=1,999,if(ispseudoprime(t=floor(Pi^n)),print1(t", "))) \\ Charles R Greathouse IV, Oct 03 2011
Extensions
a(5) from Vladimir Joseph Stephan Orlovsky, Jan 28 2009
Comments