OFFSET
1
LINKS
MATHEMATICA
a[n_] := If[(f = FactorInteger[n])[[1, 2]] > 1 && (Length[f] == 1 || f[[1, 1]]^2 < f[[2, 1]]), 1, 0]; Array[a, 100] (* Amiram Eldar, Jul 02 2022 *)
PROG
(PARI) A355453(n) = ((n>1) && !isprime(n) && !isprime(divisors(n)[3]));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 02 2022
STATUS
approved