login
A168040
Primes p for which floor(p^E) is prime.
0
3, 5, 11, 97, 389, 463, 877, 937, 1049, 1061, 1283, 1307, 1319, 1453, 1579, 1657, 1907, 2081, 2143, 2339, 2351, 2383, 2459, 2687, 2741, 3061, 3433, 3547, 3581, 4027, 4241, 4363, 4447, 4481, 4831, 4903, 4919, 4973, 5171, 5737, 5939, 6257, 6269, 6299, 7159
OFFSET
1,1
MATHEMATICA
$MaxExtraPrecision=7!; Select[Prime[Range[3*6! ]], PrimeQ[Floor[ #^E]]&]
CROSSREFS
Sequence in context: A046928 A089070 A232536 * A068157 A062530 A089628
KEYWORD
nonn
AUTHOR
STATUS
approved