login
A248602
Primes p such that p^3 - 6 is prime.
1
2, 7, 23, 37, 67, 263, 317, 359, 389, 443, 457, 499, 599, 743, 947, 967, 1033, 1103, 1187, 1303, 1373, 1423, 1429, 1453, 1523, 1579, 1619, 1663, 1667, 1787, 1877, 1913, 2003, 2083, 2143, 2297, 2389, 2543, 2633, 2683, 2927, 3109, 3217, 3229, 3299, 3313, 3613, 3623, 3637, 3719, 3733, 3739
OFFSET
1,1
EXAMPLE
2 is in this sequence because 2^3 - 6 = 2 and 2 is prime.
MATHEMATICA
Select[Prime[Range[10^3]], PrimeQ[#^3 - 6] &] (* Vincenzo Librandi, Oct 21 2014 *)
PROG
(Magma) [p: p in PrimesUpTo(5000) | IsPrime(p^3-6)];
(PARI) forprime(p=1, 5000, if(isprime(p^3-6), print1(p, ", "))) \\ Derek Orr, Oct 21 2014
CROSSREFS
Cf. A201310.
Sequence in context: A049588 A336786 A106020 * A045383 A244576 A089176
KEYWORD
nonn
AUTHOR
STATUS
approved