A028795 Nonsquares mod 82.
3, 6, 7, 11, 12, 13, 14, 15, 17, 19, 22, 24, 26, 27, 28, 29, 30, 34, 35, 38, 44, 47, 48, 52, 53, 54, 55, 56, 58, 60, 63, 65, 67, 68, 69, 70, 71, 75, 76, 79
Offset: 1
Programs
-
Mathematica
Complement[Range[0, 81], PowerMod[Range[82], 2, 82]] (* Alonso del Arte, May 01 2020 *)
-
PARI
for(k=0, 82, if(!issquare(Mod(k, 82)), print1(k, ", "))) \\ Hugo Pfoertner, Nov 29 2019
-
Scala
(0 to 81).diff((1 to 82).map(n => n * n % 82)) // Alonso del Arte, May 01 2020
Extensions
Incorrect term 41 removed by Alonso del Arte, Nov 29 2019