A361121 1 if n-th composite number A002808(n) is even, otherwise 0.

1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0

Offset

1

Comments

a(n) = 1 - A181923(n).

Links

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

Mathematica

If[EvenQ[#], 1, 0]&/@Select[Range[200], CompositeQ] (* Harvey P. Dale, May 04 2023 *)

Crossrefs

Cf. A002808, A181923, A361113.

Sequence in context: A120525 A285373 A359543 * A371087 A353457 A112299

Adjacent sequences: A361118 A361119 A361120 * A361122 A361123 A361124

Keyword

nonn

Author

Scott R. Shannon, Rémy Sigrist and N. J. A. Sloane, Mar 04 2023

Status

approved