login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Squares mod 89.
1

%I #20 Jan 24 2020 14:52:46

%S 0,1,2,4,5,8,9,10,11,16,17,18,20,21,22,25,32,34,36,39,40,42,44,45,47,

%T 49,50,53,55,57,64,67,68,69,71,72,73,78,79,80,81,84,85,87,88

%N Squares mod 89.

%t Join[{0}, Select[Range[100], JacobiSymbol[#, 89] == 1 &]] (* _Harvey P. Dale_, Jan 27 2012 *)

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

%o (Scala) (1 to 89).map(n => n * n % 89).toSet.toSeq.sorted // _Alonso del Arte_, Jan 24 2020

%Y Cf. A028802.

%K nonn,fini,full,easy

%O 1,3

%A _N. J. A. Sloane_