A181923 Nonprimes (A018252) mod 2.

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, 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, 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

Offset

1

Links

Table of n, a(n) for n=1..121.

Mathematica

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

Crossrefs

Sequence in context: A015777 A014017 A121262 * A339825 A290098 A102243

Adjacent sequences: A181920 A181921 A181922 * A181924 A181925 A181926

Keyword

nonn

Author

N. J. A. Sloane, Apr 02 2012

Status

approved