OFFSET
1
LINKS
MATHEMATICA
a[n_] := If[(f = FactorInteger[n])[[;; , 2]] == {2, 1} && f[[1, 1]]^2 < f[[2, 1]], 1, 0]; Array[a, 100] (* Amiram Eldar, Jul 07 2022 *)
PROG
(PARI) A355443(n) = ((numdiv(n) == (3+bigomega(n))) && issquare(divisors(n)[3]));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 02 2022
STATUS
approved