OFFSET
1,1
COMMENTS
Complement of A037041. - Michel Marcus, Nov 11 2015
MATHEMATICA
s = Length[Union@ #] & /@ Table[Mod[k^2, n], {n, 10000}, {k, 0, n - 1}]; Complement[Range@ Max@ #, #] &@ Take[Union@ s, 136] (* Michael De Vlieger, Nov 10 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved