%I A077547
%S A077547 3,31,97,924269,1958577254745770740635072198655932631,
%T A077547 3949204689438957531451801527515652223425632524485866293843868921996579517845618797302287898654839296439274227\
               4016598052392448365675861748301474339092198412631
%N A077547 Primes of the form Floor[pi^n].
%H A077547 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               Pi-Prime.html">Pi-Prime</a>
%t A077547 lst={};Do[If[PrimeQ[p=Floor[Pi^n]],AppendTo[lst,p]],{n,4*5!}];lst [From 
               Vladimir Orlovsky (4vladimir(AT)gmail.com), Jan 28 2009]
%Y A077547 Sequence in context: A031916 A137185 A152417 this_sequence A104312 A107197 
               A096060
%Y A077547 Adjacent sequences: A077544 A077545 A077546 this_sequence A077548 A077549 
               A077550
%K A077547 nonn
%O A077547 1,1
%A A077547 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Nov 09 2002
%E A077547 Next term would be >10^4800, too large to include. - Sascha Kurz (sascha.kurz(AT)uni-bayreuth.de), 
               Jan 12 2003
%E A077547 More terms, added Mathematica program Vladimir Orlovsky (4vladimir(AT)gmail.com), 
               Jan 28 2009