A153320 Primes p such that p^2 - 48 and p^2 + 48 are also primes.

5, 17, 19, 59, 61, 191, 227, 521, 641, 683, 709, 857, 863, 919, 983, 1031, 1039, 1097, 1117, 1123, 1151, 1229, 1423, 1543, 1579, 1621, 1699, 1733, 1759, 1867, 1871, 2153, 2237, 2287, 2357, 2383, 2557, 2621, 2879, 2971, 3301, 3329, 3371, 3581, 3847, 4021

Offset

1,1

Links

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

Mathematica

fQ[n_]:=PrimeQ[n^2-48]&&PrimeQ[n^2+48]; lst={}; Do[If[fQ@Prime[n], AppendTo[lst, Prime[n]]], {n, 7!}]; lst
Select[Prime[Range[PrimePi[4500]]], AllTrue[#^2+{48, -48}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Dec 08 2015 *)

Prog

(Magma) [p: p in PrimesUpTo(5000)|IsPrime(p^2-48) and IsPrime(p^2+48)] // Vincenzo Librandi, Jan 30 2011

Crossrefs

Cf. A153116, A153119, A153120, A153321.

Sequence in context: A038964 A019401 A217079 * A171253 A226623 A171255

Adjacent sequences: A153317 A153318 A153319 * A153321 A153322 A153323

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Dec 23 2008

Status

approved