|
%I #10 Oct 21 2017 16:36:53
%S 11,13,29,31,41,43,59,61,179,181,197,199,599,601,617,619,641,643,659,
%T 661,809,811,827,829,1031,1033,1049,1051,1301,1303,1319,1321,1931,
%U 1933,1949,1951,2111,2113,2129,2131,2711,2713,2729,2731,3371,3373,3389,3391
%N List of prime quartets (k - 10, k - 8, k + 8, k + 10).
%C The members of the "quartet" need not be consecutive primes. - _Harvey P. Dale_, Oct 21 2017
%H Robert Israel, <a href="/A140567/b140567.txt">Table of n, a(n) for n = 1..10000</a>
%e 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.
%p 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:
%p map(Q, [seq(k,k=13 .. 10000,2)]); # _Robert Israel_, Jun 13 2017
%t #+{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 *)
%K nonn
%O 1,1
%A _Juri-Stepan Gerasimov_, Jul 03 2008
%E Corrected (quartets with 41, 1031, 1301, 1931, 2711 etc. added) by _R. J. Mathar_, Apr 25 2010
|
