OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
esigma[n_] := Times @@ (Sum[First[#]^d, {d, Divisors[Last[#]]}] &) /@ FactorInteger[n]; Select[Range[10^5], (e = esigma[#]) > 2*# && DivisorSigma[1, #] - e > # &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Oct 26 2021
STATUS
approved