|
%I #30 Sep 08 2022 08:44:37
%S 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,
%T 49,50,53,54,61,62,64,65,66,70,72,73,75,79,81,85,86,88,89,91,93,94,95,
%U 96
%N Squares mod 97.
%t Join[{0}, Select[Range[100], JacobiSymbol[#, 97] == 1 &]] (* _Harvey P. Dale_, May 19 2012 *)
%t Union[PowerMod[Range[97], 2, 97]] (* _Vincenzo Librandi_, Jan 29 2020 *)
%o (Sage) [quadratic_residues(97)] # _Zerinvary Lajos_, May 28 2009
%o (Scala) (1 to 97).map(n => n * n % 97).toSet.toSeq.sorted // _Alonso del Arte_, Jan 25 2020
%o (Magma) [n: n in [0..96] | IsSquare(R! n) where R:= ResidueClassRing(97)]; // _Vincenzo Librandi_, Jan 29 2020
%Y Row 97 of A096008.
%Y Cf. A028810.
%K nonn,fini,full,easy
%O 1,3
%A _N. J. A. Sloane_
%E Inconsistent b-file removed by _Sean A. Irvine_, Apr 19 2019
|
