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

%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