%I #10 May 04 2023 13:31:13
%S 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,
%T 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,
%U 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
%N 1 if n-th composite number A002808(n) is even, otherwise 0.
%C a(n) = 1 - A181923(n).
%t If[EvenQ[#],1,0]&/@Select[Range[200],CompositeQ] (* _Harvey P. Dale_, May 04 2023 *)
%Y Cf. A002808, A181923, A361113.
%K nonn
%O 1
%A _Scott R. Shannon_, _Rémy Sigrist_ and _N. J. A. Sloane_, Mar 04 2023