OFFSET
1,1
EXAMPLE
105 is a term because 105=3*5*7 is the product of three distinct primes and it is larger than the sum of its proper divisors (1+3+5+7+15+21+35=87).
110 is a term because 110=2*5*11 is the product of three distinct primes and it is larger than the sum of its proper divisors (1+2+5+10+11+22+55=106).
MATHEMATICA
q[n_] := Module[{f = FactorInteger[n]}, f[[;; , 2]] == {1, 1, 1} && Times @@ (1 + 1/f[[;; , 1]]) < 2]; Select[Range[1000], q] (* Amiram Eldar, Nov 28 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Massimo Kofler, Nov 28 2024
STATUS
approved