%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