OFFSET
1,1
COMMENTS
This is a 4-column table read by rows.
LINKS
MAPLE
a:=[];
for n from 1 to 50000 do
p1:=ithprime(n);
p2:=nextprime(p1);
if (p2-p1)=18 then
p3:=nextprime(p2);
if p3-p2=18 then
p4:=nextprime(p3);
if p4-p3 = 18 then a:=[op(a), p1, p2, p3, p4]; fi;
fi;
fi;
od:
a; # N. J. A. Sloane, Nov 23 2017
MATHEMATICA
Select[Partition[Prime[Range[41000]], 4, 1], Union[Differences[#]]=={18}&]// Flatten (* Harvey P. Dale, Nov 24 2017 *)
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
EXTENSIONS
Confirmed (and last set of four completed) by N. J. A. Sloane, Nov 23 2017
STATUS
approved