This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A140567 List of prime quartets (k - 10, k - 8, k + 8, k + 10). 1
 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 (list; graph; refs; listen; history; text; internal format)
 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified March 18 15:05 EDT 2018. Contains 300771 sequences. (Running on oeis4.)