login
A359381
Nonmultiples of 3 that have an odd number of prime factors (with multiplicity).
3
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
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
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 30 2022
STATUS
approved