login
Nonprimes (A018252) mod 2.
3

%I #14 Apr 30 2014 10:43:30

%S 1,0,0,0,1,0,0,0,1,0,0,0,1,0,0,1,0,1,0,0,0,1,0,1,0,0,1,0,0,0,1,0,0,1,

%T 0,1,0,0,1,0,1,0,0,0,1,0,1,0,0,1,0,0,0,1,0,1,0,0,1,0,0,1,0,1,0,0,1,0,

%U 1,0,1,0,0,1,0,0,0,1,0,0,0,1,0,0,1,0,1,0,1,0,1,0,1,0,1,0,0,1,0,0,1,0,1,0,0,0,1,0,1,0,1,0,1,0,0,0,1,0,1,0,0

%N Nonprimes (A018252) mod 2.

%t With[{nn=200},Mod[#,2]&/@Complement[Range[nn],Prime[Range[ PrimePi[ nn]]]]] (* _Harvey P. Dale_, Apr 30 2014 *)

%K nonn

%O 1

%A _N. J. A. Sloane_, Apr 02 2012