login
Squares mod 78.
2

%I #19 Jan 12 2024 06:24:24

%S 0,1,3,4,9,10,12,13,16,22,25,27,30,36,39,40,42,43,48,49,51,52,55,61,

%T 64,66,69,75

%N Squares mod 78.

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

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

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

%Y Cf. A010400, A028791.

%K nonn,fini,full,easy

%O 1,3

%A _N. J. A. Sloane_