%I #16 Dec 24 2019 15:18:16

%S 0,1,4,9,16,25,33,36,48,49,57,64,73,81

%N Squares mod 96.

%t Union[PowerMod[Range[96], 2, 96]] (* _Alonso del Arte_, Dec 24 2019 *)

%o (Sage) [quadratic_residues(96)] # _Zerinvary Lajos_, May 28 2009

%o (Scala) (1 to 96).map(n => (n * n) % 96).toSet.toSeq.sorted // _Alonso del Arte_, Dec 24 2019

%Y Cf. A028809.

%K nonn,fini,full,easy

%O 1,3

%A _N. J. A. Sloane_