A028802 Nonsquares mod 89.
3, 6, 7, 12, 13, 14, 15, 19, 23, 24, 26, 27, 28, 29, 30, 31, 33, 35, 37, 38, 41, 43, 46, 48, 51, 52, 54, 56, 58, 59, 60, 61, 62, 63, 65, 66, 70, 74, 75, 76, 77, 82, 83, 86
Offset: 1
Programs
-
Mathematica
Select[Range[88], JacobiSymbol[#, 89] == -1 &] (* Harvey P. Dale, Mar 01 2015 *)
-
Scala
(0 to 88).diff((1 to 89).map(n => n * n % 89)) // Alonso del Arte, Jan 24 2020