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,1

Links

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

Example

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

Mathematica

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

Prog

(Magma) [p: p in PrimesUpTo(3000) | IsPrime(p^3+2)]; // Vincenzo Librandi, Apr 11 2013
(PARI) forprime(p=2, 3000, if(isprime(p^3+2), print1(p, ", "))) \\ Hugo Pfoertner, Oct 30 2018

Crossrefs

Cf. A048636.

Sequence in context: A153413 A257718 A132281 * A128551 A154942 A240110

Adjacent sequences: A048634 A048635 A048636 * A048638 A048639 A048640

Keyword

easy,nonn

Author

Enoch Haga

Extensions

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

Status

approved