|
|
A328134
|
|
Exponential highly abundant numbers: numbers m such that esigma(m) > esigma(k) for all k < m, where esigma(m) is the sum of exponential divisors of m (A051377).
|
|
6
|
|
|
1, 2, 3, 4, 7, 8, 9, 12, 16, 18, 20, 28, 36, 52, 60, 68, 72, 84, 92, 100, 124, 132, 140, 144, 180, 244, 252, 300, 324, 360, 396, 468, 588, 612, 684, 828, 900, 1116, 1260, 1332, 1476, 1548, 1692, 1764, 2124, 2196, 2340, 2412, 2556, 2628, 2700, 2772, 2844, 2988
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
The exponential version of A002093.
|
|
LINKS
|
|
|
EXAMPLE
|
The first 10 values of esigma(k) for k = 1 to 10 are 1, 2, 3, 6, 5, 6, 7, 10, 12, 10. The record values are reached for 1, 2, 3, 4, 7, 8, 9.
|
|
MATHEMATICA
|
f[p_, e_] := DivisorSum[e, p^# &]; esigma[1] = 1; esigma[n_] := Times @@ f @@@ FactorInteger[n]; s = {}; em = 0; Do[e = esigma[n]; If[e > em, em = e; AppendTo[s, n]], {n, 1, 3000}]; s
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|