A111193 Numbers k such that floor(Pi^k + e^k) is prime.
1, 2, 20, 21, 3087, 3284
Offset: 1
Examples
floor(Pi^20 + e^20) = 9255121991 is prime, hence 20 is a term.
Crossrefs
Cf. A061675.
Programs
-
Mathematica
$MaxExtraPrecision = 10^6; Do[k = Floor[Pi^n + E^n]; If[PrimeQ[k], Print[n]], {n, 1, 10000}]
Comments