|
|
A140565
|
|
List of prime quartets (k - 7, k - 1, k + 1, k + 7).
|
|
1
|
|
|
5, 11, 13, 19, 23, 29, 31, 37, 53, 59, 61, 67, 263, 269, 271, 277, 563, 569, 571, 577, 593, 599, 601, 607, 1223, 1229, 1231, 1237, 1283, 1289, 1291, 1297, 1613, 1619, 1621, 1627, 2333, 2339, 2341, 2347, 2543, 2549, 2551, 2557, 3533, 3539, 3541, 3547, 4013
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
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.
|
|
MATHEMATICA
|
Select[{#, #+6, #+8, #+14}&/@Prime[Range[600]], AllTrue[#, PrimeQ]&]// Flatten (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 21 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Corrected (quarted with 23 inserted, quarted with 97 removed, quarted with 593 inserted etc.) by R. J. Mathar, Apr 25 2010
|
|
STATUS
|
approved
|
|
|
|