login
A153116
Primes p such that p^2 +- 12 are also primes.
11
5, 7, 13, 19, 29, 41, 61, 97, 113, 139, 191, 379, 383, 401, 491, 719, 953, 1051, 1367, 1553, 1609, 1657, 1667, 1801, 1933, 2129, 2207, 2351, 2473, 3001, 3023, 3061, 3449, 3571, 3863, 3943, 3967, 4073, 4219, 5167, 5209, 5683, 5783, 6257, 6329, 6827, 7187
OFFSET
1,1
LINKS
MATHEMATICA
fQ[n_]:=PrimeQ[n^2-12]&&PrimeQ[n^2+12]; lst={}; Do[If[fQ@Prime[n], AppendTo[lst, Prime[n]]], {n, 7!}]; lst
Select[Prime[Range[7000]], PrimeQ[#^2 - 12] && PrimeQ[#^2 + 12]&] (* Vincenzo Librandi, Apr 09 2013 *)
Select[Prime[Range[1000]], AllTrue[#^2+{12, -12}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jul 22 2014 *)
PROG
(Magma) [p: p in PrimesUpTo(7500) | IsPrime(p^2-12) and IsPrime(p^2+12)]; // Vincenzo Librandi, Apr 09 2013
CROSSREFS
Sequence in context: A164567 A191046 A045443 * A227420 A099349 A167464
KEYWORD
nonn,easy
AUTHOR
STATUS
approved