A028809 - OEIS

%I #9 Dec 24 2019 15:18:25

%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,50,51,52,53,54,55,56,58,

%U 59,60,61,62,63,65,66,67,68,69,70,71,72,74,75,76,77,78,79,80,82,83,84,85,86,87,88,89,90,91,92,93,94,95

%N Nonsquares mod 96.

%t Complement[Range[0, 95], PowerMod[Range[96], 2, 96]] (* _Alonso del Arte_, Dec 24 2019 *)

%o (PARI) select(n->!issquare(Mod(n,96)), [2..95]) \\ _Charles R Greathouse IV_, Aug 28 2016

%o (Scala) (0 to 95).diff((1 to 96).map(n => (n * n) % 96)) // _Alonso del Arte_, Dec 24 2019

%Y Cf. A010457.

%K nonn,fini,full,easy

%O 1,1

%A _N. J. A. Sloane_