A248602 Primes p such that p^3 - 6 is prime.

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

Links

Table of n, a(n) for n=1..52.

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

Adjacent sequences: A248599 A248600 A248601 * A248603 A248604 A248605

Keyword

nonn

Author

Juri-Stepan Gerasimov, Oct 09 2014

Status

approved