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

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

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

Crossrefs

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

Sequence in context: A230912 A339009 A139928 * A142602 A200042 A005020

Adjacent sequences: A297404 A297405 A297406 * A297408 A297409 A297410

Keyword

nonn

Author

Sean A. Irvine, Dec 29 2017

Status

approved