OFFSET
1,2
COMMENTS
The discriminator of a sequence is the least integer k such that the first n terms are pairwise incongruent, modulo k.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
R:= 1: y:= 1: C:= remove(isprime, [$1..200]):
for n from 2 to nops(C) do
do
S:= convert(C[1..n] mod y, set);
if nops(S) = n then break fi;
y:= y+1;
od;
R:= R, y;
od:
R; # Robert Israel, Jul 13 2023
CROSSREFS
KEYWORD
nonn
AUTHOR
Jeffrey Shallit, May 14 2016
STATUS
approved