login
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.
4
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
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. also A359372.
Sequence in context: A111748 A282244 A286691 * A288462 A361460 A130198
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 30 2022
STATUS
approved