%I #2 Mar 31 2012 12:38:27

%S 3,5,11,97,389,463,877,937,1049,1061,1283,1307,1319,1453,1579,1657,

%T 1907,2081,2143,2339,2351,2383,2459,2687,2741,3061,3433,3547,3581,

%U 4027,4241,4363,4447,4481,4831,4903,4919,4973,5171,5737,5939,6257,6269,6299,7159

%N Primes p for which floor(p^E) is prime.

%t $MaxExtraPrecision=7!; Select[Prime[Range[3*6! ]],PrimeQ[Floor[ #^E]]&]

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Nov 17 2009