|
%I #17 May 01 2020 22:57:28
%S 0,1,2,4,5,8,9,10,16,18,20,21,23,25,31,32,33,36,37,39,40,41,42,43,45,
%T 46,49,50,51,57,59,61,62,64,66,72,73,74,77,78,80,81
%N Squares mod 82.
%t Union[PowerMod[Range[82], 2, 82]] (* _Alonso del Arte_, May 01 2020 *)
%o (Sage) [quadratic_residues(82)] # _Zerinvary Lajos_, May 28 2009
%o (Scala) (1 to 82).map(n => n * n % 82).toSet.toList.sorted // _Alonso del Arte_, May 01 2020
%Y Cf. A028795, A010402.
%K nonn,fini,full,easy
%O 1,3
%A _N. J. A. Sloane_
|
