OFFSET
1,1
COMMENTS
No more terms through 10000.
EXAMPLE
ceiling(Pi^17 - e^17) = 258689611 is prime, hence 17 is a term.
MATHEMATICA
$MaxExtraPrecision = 10^6; Do[k = Ceiling[Pi^n - E^n]; If[PrimeQ[k], Print[n]], {n, 1, 10000}]
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Ryan Propper, Oct 23 2005
STATUS
approved