%I #20 Sep 29 2022 22:42:08
%S 2,5,6,73,1547,2714,4937,5212,58775
%N Numbers k such that floor(Pi^k - e^k) is prime.
%C No more terms through 10000.
%C If it exists, a(10) > 90000. - _J.W.L. (Jan) Eerland_, Sep 29 2022
%e floor(Pi^6 - e^6) = 557 is prime, hence 6 is a term.
%t $MaxExtraPrecision = 10^6; Do[k = Floor[Pi^n - E^n]; If[PrimeQ[k], Print[n]], {n, 1, 10000}]
%t Select[Range[6000],PrimeQ[Floor[Pi^#-E^#]]&] (* _Harvey P. Dale_, Jun 02 2014 *)
%t ParallelTable[If[PrimeQ[Floor[Pi^k-E^k]],k,Nothing],{k,0,9*10^4}]//.{}->Nothing (* _J.W.L. (Jan) Eerland_, Sep 29 2022 *)
%Y Cf. A181052.
%K nonn,hard,more
%O 1,1
%A _Ryan Propper_, Oct 23 2005
%E a(9) from _J.W.L. (Jan) Eerland_, Sep 29 2022
|