login
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
OFFSET
1,1
COMMENTS
This is a 4-column table read by rows.
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
For the initial primes from each set of four, see A033448.
Sequence in context: A239587 A122065 A079543 * A033448 A234725 A058415
KEYWORD
nonn,tabf
AUTHOR
EXTENSIONS
Confirmed (and last set of four completed) by N. J. A. Sloane, Nov 23 2017
STATUS
approved