cp's OEIS Frontend

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

%I A297407 #19 Jul 14 2025 15:17:23
%S A297407 2,167,191,419,461,563,587,617,677,761,857,881,929,1427,1451,1607,
%T A297407 1667,1777,1823,1867,1913,2351,2399,2459,4127,4583,5039,5087,5171,
%U A297407 7283,7349,7517,7547,7643,7691,7901,8681,8837,8933,11243,11903,11927,18329,18371,19913
%N A297407 Where the prime race among 9k+1, ..., 9k+8 changes leader.
%H A297407 Robert Israel, <a href="/A297407/b297407.txt">Table of n, a(n) for n = 1..10000</a>
%H A297407 Robert G. Wilson v, <a href="/A005596/a005596.pdf">Letter to N. J. A. Sloane, Aug. 1993</a>
%p A297407 V:= <(0$8)>:
%p A297407 lead:= 1:
%p A297407 Res:= NULL:
%p A297407 count:= 0:
%p A297407 p:= 1:
%p A297407 while count < 100 do
%p A297407   p:= nextprime(p);
%p A297407   t:= p mod 9;
%p A297407   V[t]:= V[t]+1;
%p A297407   if V[t] > V[lead] then
%p A297407     lead:= t;
%p A297407     Res:= Res, p;
%p A297407     count:= count+1;
%p A297407   fi
%p A297407 od:
%p A297407 Res; # _Robert Israel_, Jan 01 2018
%Y A297407 Cf. A007352, A007350, A007353, A007354, A297406, A297407, A297408, A297410, A297411.
%K A297407 nonn
%O A297407 1,1
%A A297407 _Sean A. Irvine_, Dec 29 2017