A359379 - OEIS

%I #17 Jan 24 2023 02:50:36

%S 1,0,0,1,1,0,0,0,1,1,0,0,1,0,0,1,1,0,0,0,1,1,0,0,1,0,0,1,1,0,0,0,1,1,

%T 0,0,1,0,0,1,1,0,0,0,1,1,0,0,1,0,0,1,1,0,0,0,1,1,0,0,1,0,0,1,1,0,0,0,

%U 1,1,0,0,1,0,0,1,1,0,0,0,1,1,0,0,1,0,0,1,1,0,0,0,1,1,0,0,1,0,0,1,1,0,0,0,1,1,0,0,1,0,0,1,1,0,0,0,1,1,0,0,1

%N a(n) = 1 if n is either a multiple of 4, or an odd multiple of 3, otherwise 0.

%C Period 12: repeat [1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0]. - _Amiram Eldar_, Jan 24 2023

%H Amiram Eldar, <a href="/A359379/b359379.txt">Table of n, a(n) for n = 0..10000</a>

%H <a href="/index/Ch#char_fns">Index entries for characteristic functions</a>.

%H <a href="/index/Rec#order_08">Index entries for linear recurrences with constant coefficients</a>, signature (0,-1,0,0,0,1,0,1).

%F a(n) = A079979(3+n) + A121262(n).

%F For n >= 1, a(n) = 1-A359374(n).

%t a[n_] := If[Mod[n, 6] == 3 || Mod[n, 4] == 0, 1, 0]; Array[a, 100, 0] (* _Amiram Eldar_, Jan 24 2023 *)

%o (PARI) A359379(n) = (((n%2)&&!(n%3))||!(n%4));

%Y Characteristic function of A359376, whose complement A359375 gives the positions of zeros.

%Y Cf. A079979, A121262, A359374 (one's complement).

%K nonn,easy

%O 0

%A _Antti Karttunen_, Dec 31 2022