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,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

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

Cf. A051377, A160135.

Intersection of A129575 and A348604.

Subsequence of A068403.

Similar sequence: A348523.

Sequence in context: A230023 A157857 A141781 * A216682 A348521 A175752

Adjacent sequences: A348624 A348625 A348626 * A348628 A348629 A348630

Keyword

nonn

Author

Amiram Eldar, Oct 26 2021

Status

approved