OFFSET
1
LINKS
FORMULA
MATHEMATICA
a[n_] := If[FactorInteger[n][[;; , 2]] == {1, 1, 1}, 1, 0]; Array[a, 100] (* Amiram Eldar, Jun 13 2022 *)
PROG
(PARI) A354926(n) = ((3==bigomega(n)) && (3==omega(n)));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 13 2022
STATUS
approved