OFFSET
1
LINKS
FORMULA
MATHEMATICA
a[n_] := If[Count[(f = FactorInteger[n])[[;; , 2]], 1] == Length[f] - 1, 1, 0]; Array[a, 100] (* Amiram Eldar, Jan 05 2023 *)
PROG
CROSSREFS
Characteristic function of A190641.
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jan 02 2023
STATUS
approved