%I #14 Oct 24 2024 11:02:28
%S 5,7,467,4373,5987,11933,13463,13907,14747,19843,20407,22307,24677,
%T 36563,37693,40213,41603,42397,43003,44203,56747,58963,66047,66173,
%U 87407,91033,98597,98873,101183,115523,122323,124703,126107,139333
%N Primes p such that p^2 - 8, p^2 - 6 and p^2 - 2 are prime.
%C [In French: "avorteurs de quadruplets".]
%C p*p is the lonely composite number in quadruplet (10k+1, 10k+3, 10k+7, 10k+9). Necessary: p^2 = 10k + 9.
%t Select[Prime[Range[13000]],AllTrue[#^2-{2,6,8},PrimeQ]&] (* _Harvey P. Dale_, Oct 23 2024 *)
%o (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
%K nonn
%O 1,1
%A Alain MAROT (marot.alain(AT)orange.fr), Apr 29 2010
%E Corrected (5 inserted) and extended by _Vincenzo Librandi_, Aug 06 2010