A297406 Where the prime race among 8k+1, ..., 8k+7 changes leader.

2, 11, 37, 83, 197, 227, 271, 293, 347, 373, 487, 547, 853, 907, 1069, 1447, 1733, 1831, 1949, 2027, 2053, 2131, 2237, 2251, 2309, 2719, 2749, 3019, 3061, 3083, 3733, 3779, 3877, 3931, 4919, 5179, 5303, 5347, 5407, 6661, 6911, 6949, 6967, 7459, 7789

Offset: 1

Author

Sean A. Irvine, Dec 29 2017

Keywords

• nonn
• look

Links

• Robert Israel, Table of n, a(n) for n = 1..10000
• Robert G. Wilson v, Letter to N. J. A. Sloane, Aug. 1993

Crossrefs

Cf. A007352, A007350, A007353, A007354, A297406, A297407, A297408, A297410, A297411.

Programs

Maple

X:= Vector(4): X[2]:= 1: m:= 3: p:= 3: count:= 1: R:= 2:
for i from 2 while count < 100 do
  p:= nextprime(p);
  j:= ((p mod 8)+1)/2;
  X[j]:= X[j]+1;
  mp:= max[index](X);
  if mp <> m and X[mp] > X[m] then
    m:= mp;
    R:= R,p;
    count:= count+1;
   fi
od:
R; # Robert Israel, Nov 21 2024