A297407 - OEIS

%I #15 Jul 25 2021 02:38:57

%S 2,167,191,419,461,563,587,617,677,761,857,881,929,1427,1451,1607,

%T 1667,1777,1823,1867,1913,2351,2399,2459,4127,4583,5039,5087,5171,

%U 7283,7349,7517,7547,7643,7691,7901,8681,8837,8933,11243,11903,11927

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

%H Robert Israel, <a href="/A297407/b297407.txt">Table of n, a(n) for n = 1..10000</a>

%H Robert G. Wilson v, <a href="/A005596/a005596.pdf">Letter to N. J. A. Sloane, Aug. 1993</a>

%p V:= <(0$8)>:

%p lead:= 1:

%p Res:= NULL:

%p count:= 0:

%p p:= 1:

%p while count < 100 do

%p   p:= nextprime(p);

%p   t:= p mod 9;

%p   V[t]:= V[t]+1;

%p   if V[t] > V[lead] then

%p     lead:= t;

%p     Res:= Res, p;

%p     count:= count+1;

%p   fi

%p od:

%p Res; # _Robert Israel_, Jan 01 2018

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

%K nonn

%O 1,1

%A _Sean A. Irvine_, Dec 29 2017