|
%I #27 Oct 04 2022 18:32:51
%S 1,3,7,12,28,60,91,124,168,360,546,744,1170,2418,2880,4368,5952,9360,
%T 19344,39312,59520,99944,112320,232128,471744,714240,1199328,1451520,
%U 2437344,2926080,3249792,6604416,9999360
%N Sum of divisors of superabundant numbers (A004394).
%C Local maxima of sigma(n), the sum of divisors function A000203.
%C Same as A063072 for the first 19 terms. - _T. D. Noe_, Jul 01 2008
%H 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 a(n) = A000203(A004394(n)). - _Amiram Eldar_, Sep 25 2021
%t 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 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 Cf. A002192, A000203, A051444, A004394.
%Y See A034885 and A002093 for another version.
%K nonn,easy,nice
%O 1,2
%A _Walter Nissen_
|
