A140567 List of prime quartets (k - 10, k - 8, k + 8, k + 10).

11, 13, 29, 31, 41, 43, 59, 61, 179, 181, 197, 199, 599, 601, 617, 619, 641, 643, 659, 661, 809, 811, 827, 829, 1031, 1033, 1049, 1051, 1301, 1303, 1319, 1321, 1931, 1933, 1949, 1951, 2111, 2113, 2129, 2131, 2711, 2713, 2729, 2731, 3371, 3373, 3389, 3391

Offset

1,1

Comments

The members of the "quartet" need not be consecutive primes. - Harvey P. Dale, Oct 21 2017

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Example

The quartets are: (11, 13, 29, 31), if k=21; (179, 181, 197, 199), if k=189; (599, 601, 617, 619), if k=609; etc.

Maple

Q:= proc(k) if isprime(k-10) and isprime(k-8) and isprime(k+8) and isprime(k+10) then (k-10, k-8, k+8, k+10) fi end proc:
map(Q, [seq(k, k=13 .. 10000, 2)]); # Robert Israel, Jun 13 2017

Mathematica

#+{0, 2, 18, 20}&/@Select[Prime[Range[500]], AllTrue[#+{2, 18, 20}, PrimeQ]&]//Flatten (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Oct 21 2017 *)

Crossrefs

Sequence in context: A146915 A067786 A132245 * A232880 A117314 A115560

Adjacent sequences: A140564 A140565 A140566 * A140568 A140569 A140570

Keyword

nonn

Author

Juri-Stepan Gerasimov, Jul 03 2008

Extensions

Corrected (quartets with 41, 1031, 1301, 1931, 2711 etc. added) by R. J. Mathar, Apr 25 2010

Status

approved