login
A010444
Squares mod 83.
1
0, 1, 3, 4, 7, 9, 10, 11, 12, 16, 17, 21, 23, 25, 26, 27, 28, 29, 30, 31, 33, 36, 37, 38, 40, 41, 44, 48, 49, 51, 59, 61, 63, 64, 65, 68, 69, 70, 75, 77, 78, 81
OFFSET
1,3
MATHEMATICA
Union[PowerMod[Range[83], 2, 83]] (* Alonso del Arte, Jan 23 2020 *)
PROG
(Sage) [quadratic_residues(83)] # Zerinvary Lajos, May 28 2009
(Scala) (1 to 83).map(n => n * n % 83).toSet.toSeq.sorted // Alonso del Arte, Jan 23 2020
(Magma) [n: n in [0..82] | IsSquare(R! n) where R := ResidueClassRing(83)]; // Vincenzo Librandi, Jan 24 2020
CROSSREFS
Cf. A028796.
Sequence in context: A114889 A174659 A242423 * A010398 A010435 A057709
KEYWORD
nonn,fini,full,easy
STATUS
approved