login
A348627
Numbers that are both exponential and nonexponential abundant numbers.
1
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,1
LINKS
EXAMPLE
3600 is a term since A051377(3600) = 7920 > 2*3600 and A160135(3600) = 4573 > 3600.
MATHEMATICA
esigma[n_] := Times @@ (Sum[First[#]^d, {d, Divisors[Last[#]]}] &) /@ FactorInteger[n]; Select[Range[10^5], (e = esigma[#]) > 2*# && DivisorSigma[1, #] - e > # &]
CROSSREFS
Intersection of A129575 and A348604.
Subsequence of A068403.
Similar sequence: A348523.
Sequence in context: A230023 A157857 A141781 * A216682 A348521 A175752
KEYWORD
nonn
AUTHOR
Amiram Eldar, Oct 26 2021
STATUS
approved