OFFSET
1,1
MATHEMATICA
$MaxExtraPrecision=7!; Select[Prime[Range[3*6! ]], PrimeQ[Floor[ #^E]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Nov 17 2009
STATUS
approved