OFFSET
1
LINKS
FORMULA
MATHEMATICA
Table[If[!IntegerQ[Sqrt[n]]&&EvenQ[PrimeOmega[n]], 1, 0], {n, 150}] (* Harvey P. Dale, Sep 19 2022 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 04 2022
STATUS
approved