A317249 - OEIS

%I #9 Jun 25 2024 11:24:26

%S 1,4,20,28,44,101,359,667,673,821,869,1079,2623,3851,4987,5171,9397,

%T 18833,25229,29947,50279,51353,51551,90407,179831,325681,390209,436349

%N Positions of records in A204911.

%e a(1)=1 with A204911(1)=5.

%e a(2)=4 because A204911(4)=7 while A204911(k)<=5 for k<4.

%e a(3)=20 because A204911(20)=11 while A204911(k)<=7 for k<20.

%p f:= proc(n) local V,q,r;

%p   V:= Array(0..n-1); q:= 4;

%p   do

%p    q:= nextprime(q);

%p    r:= q mod n;

%p    if V[r] = 0 then V[r]:= q

%p    else return V[r]

%p    fi

%p   od

%p end proc:

%p Recs:= 1: r:= 5:

%p for n from 2 to 20000 do

%p   rn:= f(n);

%p   if rn > r then Recs:= Recs, n; r:= rn fi

%p od:

%p Recs;

%Y Cf. A204911, A317250.

%K nonn,more

%O 1,2

%A _Robert Israel_, Jul 24 2018

%E a(19)-a(28) from _Michael S. Branicky_, Jun 25 2024