OFFSET
1,1
MATHEMATICA
Select[Range[100], If[#2 < 2, 0, #2 Total[#2/#1 & @@@ FactorInteger[#2]]] >= #1 & @@ {#, DivisorSigma[1, #]} &] (* Michael De Vlieger, Apr 08 2021 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 08 2021
STATUS
approved