%I #11 Apr 11 2021 06:40:25
%S 1,2,20,21,3087,3284
%N Numbers k such that floor(Pi^k + e^k) is prime.
%C No more terms through 10000.
%e floor(Pi^20 + e^20) = 9255121991 is prime, hence 20 is a term.
%t $MaxExtraPrecision = 10^6; Do[k = Floor[Pi^n + E^n]; If[PrimeQ[k], Print[n]], {n, 1, 10000}]
%Y Cf. A061675.
%K nonn,hard,more
%O 1,2
%A _Ryan Propper_, Oct 23 2005