[go: up one dir, main page]

login
A317249 revision #9

A317249
Positions of records in A204911.
1
1, 4, 20, 28, 44, 101, 359, 667, 673, 821, 869, 1079, 2623, 3851, 4987, 5171, 9397, 18833, 25229, 29947, 50279, 51353, 51551, 90407, 179831, 325681, 390209, 436349
OFFSET
1,2
EXAMPLE
a(1)=1 with A204911(1)=5.
a(2)=4 because A204911(4)=7 while A204911(k)<=5 for k<4.
a(3)=20 because A204911(20)=11 while A204911(k)<=7 for k<20.
MAPLE
f:= proc(n) local V, q, r;
V:= Array(0..n-1); q:= 4;
do
q:= nextprime(q);
r:= q mod n;
if V[r] = 0 then V[r]:= q
else return V[r]
fi
od
end proc:
Recs:= 1: r:= 5:
for n from 2 to 20000 do
rn:= f(n);
if rn > r then Recs:= Recs, n; r:= rn fi
od:
Recs;
CROSSREFS
Sequence in context: A198831 A323040 A259755 * A181433 A079454 A205670
KEYWORD
nonn,more
AUTHOR
Robert Israel, Jul 24 2018
EXTENSIONS
a(19)-a(28) from Michael S. Branicky, Jun 25 2024
STATUS
approved