|
%I #8 Sep 29 2013 16:39:20
%S 7,17,19,29,19,29,31,41,31,41,43,53,61,71,73,83,127,137,139,149,229,
%T 239,241,251,271,281,283,293,337,347,349,359,409,419,421,431,421,431,
%U 433,443,631,641,643,653,1009,1019,1021,1031,1039,1049,1051,1061,1279,1289
%N List of prime quartets (k - 11, k - 1, k + 1, k + 11).
%H Harvey P. Dale, <a href="/A140566/b140566.txt">Table of n, a(n) for n = 1..1000</a>
%e The quartets are: (19, 29, 31, 41), if k=30; (31, 41, 43, 53), if k=42; (61, 71, 73, 83), if k=72; etc.
%t Flatten[#+{-11,-1,1,11}&/@Select[Range[7,1300],And@@PrimeQ[#+{-11,-1,1,11}]&]] (* _Harvey P. Dale_, Sep 29 2013 *)
%K nonn
%O 1,1
%A _Juri-Stepan Gerasimov_, Jul 03 2008
%E Corrected (quartets with 7 and 1279 added) by _R. J. Mathar_, Apr 25 2010
|
