%I #8 Dec 24 2019 13:15:11
%S 2,3,5,6,7,8,10,11,12,13,14,15,17,18,19,20,21,22,23,24,26,27,28,29,30,
%T 31,32,34,35,37,38,39,40,41,42,43,44,45,46,47
%N Nonsquares mod 48.
%t Complement[Range[0, 47], PowerMod[Range[48], 2, 48]] (* _Alonso del Arte_, Dec 24 2019 *)
%o (Scala) (0 to 47).diff((1 to 48).map(n => (n * n) % 48)) // _Alonso del Arte_, Dec 24 2019
%Y Cf. A010409.
%K nonn,fini,full,easy
%O 1,1
%A _N. J. A. Sloane_