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