

A033450


List of sets of four consecutive primes in arithmetic progression with common difference 18.


2



74453, 74471, 74489, 74507, 76543, 76561, 76579, 76597, 132893, 132911, 132929, 132947, 182243, 182261, 182279, 182297, 202823, 202841, 202859, 202877, 297403, 297421, 297439, 297457, 358793, 358811, 358829, 358847, 485923, 485941, 485959, 485977
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

This is a 4column table read by rows.


LINKS



MAPLE

a:=[];
for n from 1 to 50000 do
p1:=ithprime(n);
p2:=nextprime(p1);
if (p2p1)=18 then
p3:=nextprime(p2);
if p3p2=18 then
p4:=nextprime(p3);
if p4p3 = 18 then a:=[op(a), p1, p2, p3, p4]; fi;
fi;
fi;
od:


MATHEMATICA

Select[Partition[Prime[Range[41000]], 4, 1], Union[Differences[#]]=={18}&]// Flatten (* Harvey P. Dale, Nov 24 2017 *)


CROSSREFS

For the initial primes from each set of four, see A033448.


KEYWORD

nonn,tabf


AUTHOR



EXTENSIONS



STATUS

approved



