A359170 a(n) = 1 if n is not a multiple of 3 and has an even number of prime factors (with multiplicity), otherwise a(n) = 0.

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

Offset

1

Links

Antti Karttunen, Table of n, a(n) for n = 1..100000

Index entries for characteristic functions

Formula

a(n) = A011655(n) * A065043(n).

a(n) = A011655(n) - A359172(n).

a(n) = [A359378(n) > 0], where [ ] is the Iverson bracket.

Mathematica

a[n_] := If[Mod[n, 3] != 0 && LiouvilleLambda[n] == 1, 1, 0]; Array[a, 100] (* Amiram Eldar, Dec 30 2022 *)

Prog

(PARI) A359170(n) = ((n%3)&&!(bigomega(n)%2));

Crossrefs

Characteristic function of A359171.

Cf. A001222, A010872, A011655, A065043, A359172, A359378.

Cf. also A359370.

Sequence in context: A224877 A178600 A373977 * A014702 A015395 A011638

Adjacent sequences: A359167 A359168 A359169 * A359171 A359172 A359173

Keyword

nonn

Author

Antti Karttunen, Dec 30 2022

Status

approved