|
%I #13 Apr 21 2020 16:03:54
%S 5,11,13,19,23,29,31,37,53,59,61,67,263,269,271,277,563,569,571,577,
%T 593,599,601,607,1223,1229,1231,1237,1283,1289,1291,1297,1613,1619,
%U 1621,1627,2333,2339,2341,2347,2543,2549,2551,2557,3533,3539,3541,3547,4013
%N List of prime quartets (k - 7, k - 1, k + 1, k + 7).
%H Harvey P. Dale, <a href="/A140565/b140565.txt">Table of n, a(n) for n = 1..1000</a>
%e The quartets are: (5, 11, 13, 19), if k=12; (53, 59, 61, 67), if k=60; (67, 71, 73, 79), if k=72; etc.
%t Select[{#,#+6,#+8,#+14}&/@Prime[Range[600]],AllTrue[#,PrimeQ]&]// Flatten (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Apr 21 2020 *)
%K nonn
%O 1,1
%A _Juri-Stepan Gerasimov_, Jul 03 2008
%E Corrected (quarted with 23 inserted, quarted with 97 removed, quarted with 593 inserted etc.) by _R. J. Mathar_, Apr 25 2010
|
