The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A317249 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A317249

Positions of records in A204911.
(history; published version)

#9 by Alois P. Heinz at Tue Jun 25 11:24:26 EDT 2024

STATUS

proposed

approved

#8 by Michael S. Branicky at Tue Jun 25 10:40:02 EDT 2024

STATUS

editing

proposed

#7 by Michael S. Branicky at Tue Jun 25 10:34:59 EDT 2024

DATA

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

EXTENSIONS

a(19)-a(28) from Michael S. Branicky, Jun 25 2024

STATUS

approved

editing

#6 by Bruno Berselli at Wed Jul 25 03:48:55 EDT 2018

STATUS

proposed

approved

#5 by Robert Israel at Tue Jul 24 21:38:41 EDT 2018

STATUS

editing

proposed

#4 by Robert Israel at Tue Jul 24 21:38:35 EDT 2018

CROSSREFS

Cf. A204911, A317250.

STATUS

proposed

editing

#3 by Robert Israel at Tue Jul 24 21:29:00 EDT 2018

STATUS

editing

proposed

#2 by Robert Israel at Tue Jul 24 21:28:06 EDT 2018

NAME

allocated for Robert IsraelPositions of records in A204911.

DATA

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

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

Cf. A204911.

KEYWORD

allocated

nonn,more

AUTHOR

Robert Israel, Jul 24 2018

STATUS

approved

editing

#1 by Robert Israel at Tue Jul 24 21:28:06 EDT 2018

NAME

allocated for Robert Israel

KEYWORD

allocated

STATUS

approved