OFFSET
1,2
LINKS
Eric Weisstein's World of Mathematics, e-Prime
MATHEMATICA
Do[ If[ PrimeQ[ Floor[ \[ExponentialE]^n] ], Print[n] ], {n, 0, 4750} ]
Select[Range[15000], PrimeQ[Floor[Exp[#]]]&] (* Harvey P. Dale, Oct 16 2012 *)
PROG
(PARI) is(n)=ispseudoprime(exp(n)\1) \\ Charles R Greathouse IV, Jan 03 2014
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Patrick De Geest, Oct 15 1999
EXTENSIONS
Corrected by Naohiro Nomoto, Feb 22 2001
More terms from Vladeta Jovovic, Feb 24 2001
More terms from Robert G. Wilson v, May 09 2001
a(11) = 5391 from Eric W. Weisstein, May 01 2006
a(12) from Donovan Johnson, Feb 04 2008
STATUS
approved