OFFSET
1,1
COMMENTS
No more terms through 10000.
If it exists, a(10) > 90000. - J.W.L. (Jan) Eerland, Sep 29 2022
EXAMPLE
floor(Pi^6 - e^6) = 557 is prime, hence 6 is a term.
MATHEMATICA
$MaxExtraPrecision = 10^6; Do[k = Floor[Pi^n - E^n]; If[PrimeQ[k], Print[n]], {n, 1, 10000}]
Select[Range[6000], PrimeQ[Floor[Pi^#-E^#]]&] (* Harvey P. Dale, Jun 02 2014 *)
ParallelTable[If[PrimeQ[Floor[Pi^k-E^k]], k, Nothing], {k, 0, 9*10^4}]//.{}->Nothing (* J.W.L. (Jan) Eerland, Sep 29 2022 *)
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Ryan Propper, Oct 23 2005
EXTENSIONS
a(9) from J.W.L. (Jan) Eerland, Sep 29 2022
STATUS
approved