1,1

For a guide to related sequences, see A204892.

Robert Israel, Table of n, a(n) for n = 1..10000

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:

map(f, [$1..100]); # Robert Israel, Jul 24 2018

(See the program at A204908.)

Cf. A204908, A204900, A204892.

Sequence in context: A205236 A266948 A176172 * A087516 A194428 A299695

Adjacent sequences: A204908 A204909 A204910 * A204912 A204913 A204914

nonn

Clark Kimberling, Jan 20 2012

More terms from Robert G. Wilson v, Jul 24 2018

approved