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

0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 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) * A066829(n).

a(n) = A011655(n) - A359170(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) A359172(n) = ((n%3)&&(bigomega(n)%2));

Crossrefs

Characteristic function of A359381.

Cf. A001222, A010872, A011655, A066829, A359170, A359378.

Cf. also A359372.

Sequence in context: A111748 A282244 A286691 * A288462 A361460 A130198

Adjacent sequences: A359169 A359170 A359171 * A359173 A359174 A359175

Keyword

nonn

Author

Antti Karttunen, Dec 30 2022

Status

approved