OFFSET
1
LINKS
FORMULA
MATHEMATICA
Table[If[EvenQ[n]&&OddQ[PrimeNu[n]], 1, 0], {n, 140}] (* Harvey P. Dale, Jul 16 2023 *)
PROG
(PARI) A353674(n) = (!(n%2) && (omega(n)%2));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 03 2022
STATUS
approved