A359381 Nonmultiples of 3 that have an odd number of prime factors (with multiplicity).

2, 5, 7, 8, 11, 13, 17, 19, 20, 23, 28, 29, 31, 32, 37, 41, 43, 44, 47, 50, 52, 53, 59, 61, 67, 68, 70, 71, 73, 76, 79, 80, 83, 89, 92, 97, 98, 101, 103, 107, 109, 110, 112, 113, 116, 124, 125, 127, 128, 130, 131, 137, 139, 148, 149, 151, 154, 157, 163, 164, 167, 170, 172, 173, 175, 176, 179, 181, 182

Offset

1,1

Links

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

Formula

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

Mathematica

Select[Range[200], Mod[#, 3] != 0 && LiouvilleLambda[#] == -1 &] (* Amiram Eldar, Dec 30 2022 *)
Select[Range[200], Mod[#, 3]!=0&&OddQ[PrimeOmega[#]]&] (* Harvey P. Dale, Feb 23 2023 *)

Prog

(PARI) isA359181(n) = A359172(n);

Crossrefs

Intersection of A001651 and A026424.

Setwise difference A001651 \ A359171.

Positions of negative terms in A359378.

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

Cf. also A359373.

Sequence in context: A051279 A288464 A111199 * A276545 A138671 A286693

Adjacent sequences: A359378 A359379 A359380 * A359382 A359383 A359384

Keyword

nonn

Author

Antti Karttunen, Dec 30 2022

Status

approved