%I #16 Dec 24 2019 13:14:45
%S 0,1,4,9,16,25,33,36
%N Squares mod 48.
%t Union[PowerMod[Range[48], 2, 48]] (* _Alonso del Arte_, Dec 24 2019 *)
%o (Sage) [quadratic_residues(48)] # _Zerinvary Lajos_, May 24 2009
%o (Scala) (1 to 48).map(n => (n * n) % 48).toSet.toSeq.sorted // _Alonso del Arte_, Dec 24 2019
%Y Cf. A028761.
%K nonn,fini,full,easy
%O 1,3
%A _N. J. A. Sloane_