OFFSET
1
LINKS
MATHEMATICA
a[1] = 0; a[n_] := If[Length[e = FactorInteger[n][[;; , 2]]] > 1 && SameQ @@ e, 1, 0]; Array[a, 105] (* Amiram Eldar, Jun 11 2022 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 10 2022
STATUS
approved