A359171 Nonmultiples of 3 that have an even number of prime factors (with multiplicity).

1, 4, 10, 14, 16, 22, 25, 26, 34, 35, 38, 40, 46, 49, 55, 56, 58, 62, 64, 65, 74, 77, 82, 85, 86, 88, 91, 94, 95, 100, 104, 106, 115, 118, 119, 121, 122, 133, 134, 136, 140, 142, 143, 145, 146, 152, 155, 158, 160, 161, 166, 169, 178, 184, 185, 187, 194, 196, 202, 203, 205, 206, 209, 214, 215, 217, 218

Offset

1,2

Links

Table of n, a(n) for n=1..67.

Formula

{k | A008836(k) > 0 and A010872(k) > 0}.

Mathematica

Select[Range[220], Mod[#, 3] != 0 && LiouvilleLambda[#] == 1 &] (* Amiram Eldar, Dec 30 2022 *)

Prog

(PARI) isA359171(n) = A359170(n);

Crossrefs

Intersection of A001651 and A028260.

Setwise difference A001651 \ A359381.

Positions of positive terms in A359378.

Cf. A008836, A010872, A359170 (characteristic function).

Cf. also A359371.

Sequence in context: A114719 A116954 A102686 * A310361 A310362 A310363

Adjacent sequences: A359168 A359169 A359170 * A359172 A359173 A359174

Keyword

nonn

Author

Antti Karttunen, Dec 30 2022

Status

approved