login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A033450 List of sets of four consecutive primes in arithmetic progression with common difference 18. 2

%I #29 Dec 04 2023 01:51:10

%S 74453,74471,74489,74507,76543,76561,76579,76597,132893,132911,132929,

%T 132947,182243,182261,182279,182297,202823,202841,202859,202877,

%U 297403,297421,297439,297457,358793,358811,358829,358847,485923,485941,485959,485977

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

%C This is a 4-column table read by rows.

%H Robert Price, <a href="/A033450/b033450.txt">Table of n, a(n) for n = 1..6032</a>

%H <a href="/index/Pri#primes_AP">Index entries for sequences related to primes in arithmetic progressions</a>

%p a:=[];

%p for n from 1 to 50000 do

%p p1:=ithprime(n);

%p p2:=nextprime(p1);

%p if (p2-p1)=18 then

%p p3:=nextprime(p2);

%p if p3-p2=18 then

%p p4:=nextprime(p3);

%p if p4-p3 = 18 then a:=[op(a),p1,p2,p3,p4]; fi;

%p fi;

%p fi;

%p od:

%p a; # _N. J. A. Sloane_, Nov 23 2017

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

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

%K nonn,tabf

%O 1,1

%A _Jeff Burch_

%E Confirmed (and last set of four completed) by _N. J. A. Sloane_, Nov 23 2017

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 02:16 EDT 2024. Contains 371264 sequences. (Running on oeis4.)