A048637 Primes p such that p^3 + 2 is also prime.

3, 5, 29, 71, 83, 113, 173, 263, 311, 419, 431, 491, 503, 509, 683, 701, 761, 773, 839, 911, 953, 1031, 1091, 1103, 1151, 1193, 1259, 1283, 1373, 1451, 1523, 1583, 1601, 1733, 1823, 1889, 1931, 2099, 2153, 2213, 2273, 2339, 2351, 2441, 2531, 2543, 2609

Offset: 1

Author

Enoch Haga

Keywords

• easy
• nonn

Examples

			3 is a term since 3^3 + 2 = 29 is prime.
		

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Vincenzo Librandi)

Crossrefs

Cf. A048636.

Programs

Magma

[p: p in PrimesUpTo(3000) | IsPrime(p^3+2)]; // Vincenzo Librandi, Apr 11 2013

Mathematica

Prime[ Select[ Range[ 500], PrimeQ[Prime[ # ]^3 + 2] &] ]
Select[Prime[Range[400]], PrimeQ[#^3 + 2]&] (* Vincenzo Librandi, Apr 11 2013 *)

PARI

forprime(p=2,3000,if(isprime(p^3+2),print1(p,", "))) \\ Hugo Pfoertner, Oct 30 2018

Extensions

More terms from Robert G. Wilson v, Dec 04 2000