A348627 Numbers that are both exponential and nonexponential abundant numbers.
3600, 4500, 6300, 7056, 8100, 8820, 9900, 14700, 21780, 22500, 25200, 30420, 31500, 35280, 39600, 46800, 49500, 52020, 56700, 58500, 61200, 61740, 64980, 68400, 69300, 76500, 77616, 81900, 82800, 85500, 88200, 89100, 91728, 95220, 97020, 103500, 104400, 105300
Offset: 1
Keywords
Examples
3600 is a term since A051377(3600) = 7920 > 2*3600 and A160135(3600) = 4573 > 3600.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Mathematica
esigma[n_] := Times @@ (Sum[First[#]^d, {d, Divisors[Last[#]]}] &) /@ FactorInteger[n]; Select[Range[10^5], (e = esigma[#]) > 2*# && DivisorSigma[1, #] - e > # &]