A359170 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

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