OFFSET
1
LINKS
FORMULA
MATHEMATICA
a[n_] := If[Mod[n, 3] != 0 && LiouvilleLambda[n] == -1, 1, 0]; Array[a, 100] (* Amiram Eldar, Dec 30 2022 *)
PROG
(PARI) A359172(n) = ((n%3)&&(bigomega(n)%2));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 30 2022
STATUS
approved