A359379 a(n) = 1 if n is either a multiple of 4, or an odd multiple of 3, otherwise 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, 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, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1

Offset

0

Comments

Period 12: repeat [1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0]. - Amiram Eldar, Jan 24 2023

Links

Amiram Eldar, Table of n, a(n) for n = 0..10000

Index entries for characteristic functions.

Index entries for linear recurrences with constant coefficients, signature (0,-1,0,0,0,1,0,1).

Formula

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

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

Mathematica

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

Prog

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

Crossrefs

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

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

Sequence in context: A347283 A214293 A323096 * A120527 A188093 A190843

Adjacent sequences: A359376 A359377 A359378 * A359380 A359381 A359382

Keyword

nonn,easy

Author

Antti Karttunen, Dec 31 2022

Status

approved