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,1

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

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

Adjacent sequences: A033447 A033448 A033449 * A033451 A033452 A033453

Keyword

nonn,tabf

Author

Jeff Burch

Extensions

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

Status

approved