A297407 Where the prime race among 9k+1, ..., 9k+8 changes leader.

2, 167, 191, 419, 461, 563, 587, 617, 677, 761, 857, 881, 929, 1427, 1451, 1607, 1667, 1777, 1823, 1867, 1913, 2351, 2399, 2459, 4127, 4583, 5039, 5087, 5171, 7283, 7349, 7517, 7547, 7643, 7691, 7901, 8681, 8837, 8933, 11243, 11903, 11927, 18329, 18371, 19913

Offset: 1

Author

Sean A. Irvine, Dec 29 2017

Keywords

• nonn

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

V:= <(0$8)>:
lead:= 1:
Res:= NULL:
count:= 0:
p:= 1:
while count < 100 do
  p:= nextprime(p);
  t:= p mod 9;
  V[t]:= V[t]+1;
  if V[t] > V[lead] then
    lead:= t;
    Res:= Res, p;
    count:= count+1;
  fi
od:
Res; # Robert Israel, Jan 01 2018