%I A059792
%S A059792 1,3,4,12,73,317,2728,6826,7683,7950,14417,44436,63698
%N A059792 Numbers n such that floor(pi^n) is prime.
%H A059792 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               Pi-Prime.html">Pi-Prime</a>
%e A059792 pi^3 =31.0062766... floor(pi^3) = 31 is prime hence 3 is a term.
%e A059792 floor(pi^317)=39492046894389575314518015275156522234256325244858662\
%e A059792 9384386892199657951784561879730228789865483929643927422740165980523\
%e A059792 92448365675861748301474339092198412631 is prime.
%t A059792 Do[ If[ PrimeQ[ Floor[ Pi^n ] ], Print[n] ], {n, 0, 4000} ]
%t A059792 $MaxExtraPrecision = 10^6; Do[k = Floor[Pi^n]; If[PrimeQ[k], Print[n]], 
               {n, 1, 15000}] (Propper)
%Y A059792 Cf. A100800, A077547.
%Y A059792 Sequence in context: A109771 A052626 A122903 this_sequence A018930 A127689 
               A127690
%Y A059792 Adjacent sequences: A059789 A059790 A059791 this_sequence A059793 A059794 
               A059795
%K A059792 hard,nonn
%O A059792 1,2
%A A059792 Naohiro Nomoto (6284968128(AT)geocities.co.jp), Feb 22 2001
%E A059792 More terms from Vladeta Jovovic (vladeta(AT)eunet.rs), Feb 24 2001. One 
               more term from Robert G. Wilson v (rgwv(AT)rgwv.com), May 09 2001
%E A059792 a(8)-a(11) from Ryan Propper (rpropper(AT)stanford.edu), Oct 21 2005
%E A059792 a(12)-a(13) from Donovan Johnson (donovan.johnson(AT)yahoo.com), Feb 
               05 2008