login
A273043
Discriminator of sequence A001566.
2
1, 3, 3, 7, 37, 37, 37, 37, 37, 37, 59, 59, 59, 59, 73, 73, 73, 73, 73, 97, 97, 97, 137, 157, 157, 157, 157, 157, 157, 157, 157, 157, 157, 157, 157, 157, 157, 157, 157, 157, 251, 251, 251, 251, 251, 251, 251, 251, 251, 251, 277, 277, 277, 277, 277, 277, 277
OFFSET
1,2
COMMENTS
The discriminator of a sequence is the least integer k such that the first n terms of the sequence are pairwise incongruent, modulo k.
LINKS
MAPLE
N:= 1000: # to get a(1)..a(n)
nmax:= 0:
for m from 1 while nmax <= N do
a:= 3 mod m; A:= {a};
for n from 1 while nops(A) = n do
a:= a^2 - 2 mod m;
A:= A union {a};
od:
for k from nmax+1 to n-1 do v[k]:= m od:
nmax:= max(nmax, n-1);
od:
seq(v[k], k=1..N); # Robert Israel, May 13 2016
CROSSREFS
Cf. A001566.
Sequence in context: A065747 A363398 A232309 * A066142 A232459 A175566
KEYWORD
nonn
AUTHOR
Jeffrey Shallit, May 13 2016
EXTENSIONS
a(13)-a(28) from Tom Edgar, May 13 2016
a(29)-a(57) from Robert Israel, May 13 2016
STATUS
approved