%I #8 Dec 13 2013 13:52:29
%S 5,7,17,19,17,19,29,31,29,31,41,43,59,61,71,73,137,139,149,151,179,
%T 181,191,193,227,229,239,241,269,271,281,283,419,421,431,433,809,811,
%U 821,823,1019,1021,1031,1033,1049,1051,1061,1063,1277,1279,1289,1291,1289
%N List of prime quartets (k - 7, k - 5, k + 5, k + 7).
%H Harvey P. Dale, <a href="/A140564/b140564.txt">Table of n, a(n) for n = 1..1000</a>
%e The quartets are: (5, 7, 17, 19), if k=12; (17, 19, 29, 31), if k=24; (29, 31, 41, 43), if k=36; etc.
%t Flatten[#+{-7,-5,5,7}&/@Select[Range[2,2000,2],And@@PrimeQ[#+{-7,-5,5,7}]&]] (* _Harvey P. Dale_, Dec 13 2013 *)
%K nonn
%O 1,1
%A _Juri-Stepan Gerasimov_, Jul 03 2008
%E Corrected (two quartets inserted) by _R. J. Mathar_, Apr 25 2010