|
%I #13 Jan 24 2020 14:52:30
%S 3,6,7,12,13,14,15,19,23,24,26,27,28,29,30,31,33,35,37,38,41,43,46,48,
%T 51,52,54,56,58,59,60,61,62,63,65,66,70,74,75,76,77,82,83,86
%N Nonsquares mod 89.
%t Select[Range[88], JacobiSymbol[#, 89] == -1 &] (* _Harvey P. Dale_, Mar 01 2015 *)
%o (Scala) (0 to 88).diff((1 to 89).map(n => n * n % 89)) // _Alonso del Arte_, Jan 24 2020
%Y Cf. A010450 (complement), A096013 (row 89).
%K nonn,fini,full,easy
%O 1,1
%A _N. J. A. Sloane_
|
