|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|