|
%I
%S 2,3,5,6,7,10,11,12,13,14,15,17,18,19,20,21,22,23,24,26,27,29,30,31,
%T 33,34,35,37,38,39,40,41,42,43,45,46,47,48,50,51,52,53,54,55
%N Nonsquares mod 56.
%t Complement[Range[0, 55], PowerMod[Range[56], 2, 56]] (* _Alonso del Arte_, Dec 28 2019 *)
%o (PARI) is(n)=!issquare(Mod(n,56)) && n>0 && n<56 \\ _Charles R Greathouse IV_, Apr 27 2015
%o (Scala) (0 to 55).diff((1 to 56).map(n => (n * n) % 56)) // _Alonso del Arte_, Dec 28 2019
%Y Cf. A010417.
%K nonn,fini,full,easy
%O 1,1
%A _N. J. A. Sloane_
|
