OFFSET
1,1
COMMENTS
[In French: "avorteurs de quadruplets".]
p*p is the lonely composite number in quadruplet (10k+1, 10k+3, 10k+7, 10k+9). Necessary: p^2 = 10k + 9.
MATHEMATICA
Select[Prime[Range[13000]], AllTrue[#^2-{2, 6, 8}, PrimeQ]&] (* Harvey P. Dale, Oct 23 2024 *)
PROG
(Magma) [p: p in PrimesUpTo(1000000)| IsPrime(p^2-8) and IsPrime(p^2-6) and IsPrime (p^2-2)]; // Vincenzo Librandi, Aug 06 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Alain MAROT (marot.alain(AT)orange.fr), Apr 29 2010
EXTENSIONS
Corrected (5 inserted) and extended by Vincenzo Librandi, Aug 06 2010
STATUS
approved