%I #14 May 31 2019 11:47:35

%S 251,257,263,269,1741,1747,1753,1759,3301,3307,3313,3319,5101,5107,

%T 5113,5119,5381,5387,5393,5399,6311,6317,6323,6329,6361,6367,6373,

%U 6379,12641,12647,12653,12659,13451,13457,13463,13469,14741,14747,14753

%N Lists of 4 primes in arithmetic progression; common difference 6.

%H Harvey P. Dale, <a href="/A033449/b033449.txt">Table of n, a(n) for n = 1..1000</a>

%H <a href="/index/Pri#primes_AP">Index entries for sequences related to primes in arithmetic progressions</a>

%p for i from 1 by 1 to 4000 do if ithprime(i+1) = ithprime(i) +6 and ithprime(i+2) = ithprime(i) + 12 and ithprime(i+3) = ithprime(i) + 18 then print(ithprime(i),ithprime(i+1),ithprime(i+2),ithprime(i+3)); # _Zerinvary Lajos_, May 04 2007

%t Select[Partition[Prime[Range[2000]],4,1],Differences[#]=={6,6,6}&]// Flatten (* _Harvey P. Dale_, May 31 2019 *)

%K nonn,tabf

%O 1,1

%A _Jeff Burch_