%I #29 Dec 04 2023 01:51:10
%S 74453,74471,74489,74507,76543,76561,76579,76597,132893,132911,132929,
%T 132947,182243,182261,182279,182297,202823,202841,202859,202877,
%U 297403,297421,297439,297457,358793,358811,358829,358847,485923,485941,485959,485977
%N List of sets of four consecutive primes in arithmetic progression with common difference 18.
%C This is a 4-column table read by rows.
%H Robert Price, <a href="/A033450/b033450.txt">Table of n, a(n) for n = 1..6032</a>
%H <a href="/index/Pri#primes_AP">Index entries for sequences related to primes in arithmetic progressions</a>
%p a:=[];
%p for n from 1 to 50000 do
%p p1:=ithprime(n);
%p p2:=nextprime(p1);
%p if (p2-p1)=18 then
%p p3:=nextprime(p2);
%p if p3-p2=18 then
%p p4:=nextprime(p3);
%p if p4-p3 = 18 then a:=[op(a),p1,p2,p3,p4]; fi;
%p fi;
%p fi;
%p od:
%p a; # _N. J. A. Sloane_, Nov 23 2017
%t Select[Partition[Prime[Range[41000]],4,1],Union[Differences[#]]=={18}&]// Flatten (* _Harvey P. Dale_, Nov 24 2017 *)
%Y For the initial primes from each set of four, see A033448.
%K nonn,tabf
%O 1,1
%A _Jeff Burch_
%E Confirmed (and last set of four completed) by _N. J. A. Sloane_, Nov 23 2017
|