%I #14 Jan 08 2020 09:47:45
%S 3,5,6,7,10,12,13,14,17,19,20,21,24,26,27,28,31,33,34,35,38,40,41,42,
%T 45,47,48
%N Nonsquares mod 49.
%C First half of the elements of A028811. - _R. J. Mathar_, Oct 23 2008
%t Complement[Range[0, 48], PowerMod[Range[49], 2, 49]] (* _Alonso del Arte_, Jan 07 2020 *)
%o (Scala) (0 to 48).diff((1 to 49).map(n => n * n % 49)) // _Alonso del Arte_, Jan 07 2020
%Y Cf. A010410, A028811.
%K nonn,fini,full,easy
%O 1,1
%A _N. J. A. Sloane_