OFFSET
1,1
COMMENTS
Define "largely abundant numbers" to be numbers k such that sigma(k) >= sigma(j) for all j < k. This sequence gives all the largely abundant numbers that are not highly abundant numbers.
No more terms below 10^10.
a(22) > 10^13. - Giovanni Resta, Jul 02 2019
EXAMPLE
672 is in the sequence since 660 < 672 < 720, (660, 720) are a pair of consecutive highly abundant numbers, and sigma(672) = sigma(660) = 2016.
MATHEMATICA
s={}; sm=0; Do[s1=DivisorSigma[1, n]; If[s1==sm, AppendTo[s, n]]; If[s1>sm, sm=s1], {n, 1, 10^5}]; s
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, Jun 08 2019
EXTENSIONS
a(14)-a(21) from Giovanni Resta, Jul 02 2019
STATUS
approved