A037046 Numbers that are not the number of quadratic residues mod n for any n.

5, 13, 17, 25, 26, 29, 35, 39, 41, 43, 47, 50, 58, 59, 61, 65, 67, 71, 73, 78, 83, 85, 86, 89, 94, 95, 101, 103, 107, 109, 113, 116, 118, 119, 122, 123, 125, 127, 130, 131, 134, 143, 145, 146, 149, 155, 163, 167, 170, 173, 178, 179, 181, 183, 185, 188, 191, 193

Offset: 1

Author

David W. Wilson

Keywords

• nonn

Comments

Complement of A037041. - Michel Marcus, Nov 11 2015

Crossrefs

Cf. A000224, A096008, A111986 (number of numbers having n quadratic residues), A111987 (least number having n quadratic residues), A111988 (greatest number having n quadratic residues).

Programs

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 *)