A153121 Primes p such that p^2 +- 12 and p^2 +- 18 are also primes.

5, 7, 29, 41, 1933, 4073, 43049, 46439, 60353, 72031, 150989, 153929, 158551, 158591, 190051, 199247, 226267, 438479, 545749, 613451, 696737, 714841, 734663, 754627, 788353, 793843, 825259, 948457, 1053191, 1057699, 1154159, 1241827

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..500

Mathematica

fQ[n_] := PrimeQ[n^2 - 12] && PrimeQ[n^2 + 12] && PrimeQ[n^2 - 18] && PrimeQ[n^2 + 18]; lst={}; Do[If[fQ@Prime[n], AppendTo[lst, Prime[n]]], {n, 9!}]; lst
Select[Prime[Range[150000]], And@@PrimeQ/@{#^2 + 12, #^2 - 12, #^2 + 18, #^2 - 18}&] (* Vincenzo Librandi, Apr 09 2013 *)
Select[Prime[Range[150000]], AllTrue[#^2+{12, 18, -12, -18}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Mar 05 2015 *)

Prog

(Magma) [p: p in PrimesUpTo(1250000) | IsPrime(p^2-12) and IsPrime(p^2+12) and IsPrime(p^2-18) and IsPrime(p^2+18)]; // Vincenzo Librandi, Apr 09 2013

Crossrefs

Cf. A153116, A153119, A153120.

Sequence in context: A087901 A018776 A104683 * A280926 A070153 A293943

Adjacent sequences: A153118 A153119 A153120 * A153122 A153123 A153124

Keyword

nonn,easy

Author

Vladimir Joseph Stephan Orlovsky, Dec 18 2008

Status

approved