A153322 Primes p such that p^3 - 12 and p^3 + 12 are also primes.

5, 271, 421, 449, 1151, 1399, 1579, 2579, 3109, 4349, 7759, 9631, 9839, 11161, 11369, 12391, 12799, 13109, 13411, 14281, 15359, 15439, 16361, 16661, 19429, 19961, 20369, 21391, 22469, 25121, 25339, 27581, 31271, 36749, 43399, 44059, 48119

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

fQ[n_]:=PrimeQ[n^3-12]&&PrimeQ[n^3+12]; lst={}; Do[If[fQ@Prime[n], AppendTo[lst, Prime[n]]], {n, 8!}]; lst
Select[Prime[Range[5000]], AllTrue[#^3+{12, -12}, PrimeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 16 2020 *)

Prog

(Magma) [p: p in PrimesUpTo(50000)|IsPrime(p^3-12) and IsPrime(p^3+12)] // Vincenzo Librandi, Jan 30 2011

Crossrefs

Cf. A153116, A153119, A153120, A153320, A153321.

Sequence in context: A140001 A329610 A283518 * A326321 A234324 A066210

Adjacent sequences: A153319 A153320 A153321 * A153323 A153324 A153325

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Dec 23 2008

Status

approved