login
A010451
Squares mod 90.
1
0, 1, 4, 9, 10, 16, 19, 25, 31, 34, 36, 40, 45, 46, 49, 54, 55, 61, 64, 70, 76, 79, 81, 85
OFFSET
1,3
MATHEMATICA
With[{b = 90}, Union@ Array[Mod[#^2, b] &, b]] (* Michael De Vlieger, Jul 06 2018 *)
Union[PowerMod[Range[90], 2, 90]] (* Alonso del Arte, Jan 03 2020 *)
PROG
(Sage) [quadratic_residues(90)] # Zerinvary Lajos, May 28 2009
(Scala) (1 to 90).map(n => n * n % 90).toSet.toSeq.sorted // Alonso del Arte, Jan 03 2020
CROSSREFS
Cf. A028803.
Row 90 of A096008.
Sequence in context: A007936 A050943 A010406 * A080064 A329609 A340784
KEYWORD
nonn,fini,full,easy
STATUS
approved