A010458 Squares mod 97.

0, 1, 2, 3, 4, 6, 8, 9, 11, 12, 16, 18, 22, 24, 25, 27, 31, 32, 33, 35, 36, 43, 44, 47, 48, 49, 50, 53, 54, 61, 62, 64, 65, 66, 70, 72, 73, 75, 79, 81, 85, 86, 88, 89, 91, 93, 94, 95, 96

Offset

1,3

Links

Table of n, a(n) for n=1..49.

Mathematica

Join[{0}, Select[Range[100], JacobiSymbol[#, 97] == 1 &]] (* Harvey P. Dale, May 19 2012 *)
Union[PowerMod[Range[97], 2, 97]] (* Vincenzo Librandi, Jan 29 2020 *)

Prog

(Sage) [quadratic_residues(97)] # Zerinvary Lajos, May 28 2009
(Scala) (1 to 97).map(n => n * n % 97).toSet.toSeq.sorted // Alonso del Arte, Jan 25 2020
(Magma) [n: n in [0..96] | IsSquare(R! n) where R:= ResidueClassRing(97)]; // Vincenzo Librandi, Jan 29 2020

Crossrefs

Row 97 of A096008.

Cf. A028810.

Sequence in context: A333309 A282697 A002479 * A354620 A218980 A084829

Adjacent sequences: A010455 A010456 A010457 * A010459 A010460 A010461

Keyword

nonn,fini,full,easy

Author

N. J. A. Sloane

Extensions

Inconsistent b-file removed by Sean A. Irvine, Apr 19 2019

Status

approved