This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A007626 #27 Oct 04 2022 18:32:51
%S A007626 1,3,7,12,28,60,91,124,168,360,546,744,1170,2418,2880,4368,5952,9360,
%T A007626 19344,39312,59520,99944,112320,232128,471744,714240,1199328,1451520,
%U A007626 2437344,2926080,3249792,6604416,9999360
%N A007626 Sum of divisors of superabundant numbers (A004394).
%C A007626 Local maxima of sigma(n), the sum of divisors function A000203.
%C A007626 Same as A063072 for the first 19 terms. - _T. D. Noe_, Jul 01 2008
%H A007626 Amiram Eldar, <a href="/A007626/b007626.txt">Table of n, a(n) for n = 1..6863</a> (terms 1..500 from T. D. Noe)
%F A007626 a(n) = A000203(A004394(n)). - _Amiram Eldar_, Sep 25 2021
%t A007626 Reap[ For[ n=1; a=0, n <= 3*10^6, n++, s = DivisorSigma[1, n]; b = s/n; If[ b>a, a=b; Print[s]; Sow[s]]]][[2, 1]] (* _Jean-François Alcover_, Apr 02 2013 *)
%t A007626 Join[{1},DeleteDuplicates[Select[{#[[1]],#[[2]],#[[2]]/#[[1]]}&/@Table[ {n,DivisorSigma[1,n]}, {n,10^6}],#[[3]]>1&],GreaterEqual[#1[[3]],#2[[3]]]&][[All,2]]] (* The program generates the first 31 terms of the sequence. *) (* _Harvey P. Dale_, Oct 04 2022 *)
%Y A007626 Cf. A002192, A000203, A051444, A004394.
%Y A007626 See A034885 and A002093 for another version.
%K A007626 nonn,easy,nice
%O A007626 1,2
%A A007626 _Walter Nissen_