login
Squares mod 46.
1

%I #17 Dec 23 2019 06:06:46

%S 0,1,2,3,4,6,8,9,12,13,16,18,23,24,25,26,27,29,31,32,35,36,39,41

%N Squares mod 46.

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

%o (Sage) [quadratic_residues(46)] # _Zerinvary Lajos_, May 24 2009

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

%Y Cf. A028759.

%K nonn,fini,full,easy

%O 1,3

%A _N. J. A. Sloane_