OFFSET
1,1
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);
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 30 2022
STATUS
approved