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

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

Author

Jeff Burch

Keywords

• nonn
• tabf

Comments

This is a 4-column table read by rows.

Links

• Robert Price, Table of n, a(n) for n = 1..6032
• Index entries for sequences related to primes in arithmetic progressions

Crossrefs

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

Programs

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 *)

Extensions

Confirmed (and last set of four completed) by N. J. A. Sloane, Nov 23 2017