OFFSET
1,1
COMMENTS
MATHEMATICA
q[n_] := Module[{f = FactorInteger[n]}, AnyTrue[f[[;; , 2]], # > 1 &] && Times @@ (f[[;; , 1]]+1) > 2*n];
PROG
(PARI) is(n) = {my(f = factor(n)); if(n == 1 || vecmax(f[, 2]) == 1, return(0)); prod(i=1, #f~, f[i, 1]+1) > 2*n};
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Oct 09 2022
STATUS
approved