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

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Robert G. Wilson v, Letter to N. J. A. Sloane, Aug. 1993

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

Crossrefs

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

Sequence in context: A084098 A263547 A152819 * A178138 A220888 A392400

Adjacent sequences: A297403 A297404 A297405 * A297407 A297408 A297409

Keyword

nonn,look

Author

Sean A. Irvine, Dec 29 2017

Status

approved