OFFSET
1,2
COMMENTS
EXAMPLE
45 = 3^2*5 is a term since its product of distinct prime factors 3 * 5 = 15 is greater than its sum of prime factors with multiplicity 3 + 3 + 5 = 11.
48 = 2^4*3 is not a term since its product of distinct prime factors 2 * 3 = 6 is less than its sum of prime factors with multiplicity 2 + 2 + 2 + 2 + 3 = 11.
MATHEMATICA
q[n_] := Module[{f = FactorInteger[n]}, Times @@ f[[;; , 1]] >= Plus @@ (f[[;; , 1]]*f[[;; , 2]])]; q[1] = True; Select[Range[100], q] (* Amiram Eldar, Feb 08 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Johan Lindgren, Feb 08 2023
STATUS
approved