A140565 List of prime quartets (k - 7, k - 1, k + 1, k + 7).

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

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

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

Sequence in context: A391341 A024900 A087490 * A191072 A153418 A079019

Adjacent sequences: A140562 A140563 A140564 * A140566 A140567 A140568

Keyword

nonn

Author

Juri-Stepan Gerasimov, Jul 03 2008

Extensions

Corrected (quarted with 23 inserted, quarted with 97 removed, quarted with 593 inserted etc.) by R. J. Mathar, Apr 25 2010

Status

approved