cp's OEIS Frontend

A297406 Where the prime race among 8k+1, ..., 8k+7 changes leader.

%I A297406 #18 Nov 21 2024 18:08:08
%S A297406 2,11,37,83,197,227,271,293,347,373,487,547,853,907,1069,1447,1733,
%T A297406 1831,1949,2027,2053,2131,2237,2251,2309,2719,2749,3019,3061,3083,
%U A297406 3733,3779,3877,3931,4919,5179,5303,5347,5407,6661,6911,6949,6967,7459,7789
%N A297406 Where the prime race among 8k+1, ..., 8k+7 changes leader.
%H A297406 Robert Israel, <a href="/A297406/b297406.txt">Table of n, a(n) for n = 1..10000</a>
%H A297406 Robert G. Wilson v, <a href="/A005596/a005596.pdf">Letter to N. J. A. Sloane, Aug. 1993</a>
%p A297406 X:= Vector(4): X[2]:= 1: m:= 3: p:= 3: count:= 1: R:= 2:
%p A297406 for i from 2 while count < 100 do
%p A297406   p:= nextprime(p);
%p A297406   j:= ((p mod 8)+1)/2;
%p A297406   X[j]:= X[j]+1;
%p A297406   mp:= max[index](X);
%p A297406   if mp <> m and X[mp] > X[m] then
%p A297406     m:= mp;
%p A297406     R:= R,p;
%p A297406     count:= count+1;
%p A297406    fi
%p A297406 od:
%p A297406 R; # _Robert Israel_, Nov 21 2024
%Y A297406 Cf. A007352, A007350, A007353, A007354, A297406, A297407, A297408, A297410, A297411.
%K A297406 nonn,look
%O A297406 1,1
%A A297406 _Sean A. Irvine_, Dec 29 2017