%I #20 Sep 08 2022 08:44:37
%S 0,1,4,9,13,16,25,28
%N Squares mod 36.
%t Union[PowerMod[Range[36], 2, 36]] (* _Vincenzo Librandi_, Jan 31 2020 *)
%o (Sage) [quadratic_residues(36)] # _Zerinvary Lajos_, May 24 2009
%o (Magma) [n: n in [0..35] | IsSquare(R! n) where R:= ResidueClassRing(36)]; // _Vincenzo Librandi_, Jan 31 2020
%Y Cf. A028749.
%K nonn,fini,full
%O 1,3
%A _N. J. A. Sloane_