1,2

sigma_3(n) is the sum of the cubes of the divisors of n (A001158).

Ivan Neretin, Table of n, a(n) for n = 1..5000

a=0; Do[b=DivisorSigma[3, n]/n; If[b>a, a=b; Print[n]], {n, 1, 150}]

Cf. A002182.

Sequence in context: A108864 A334140 A338883 * A028830 A327749 A171828

Adjacent sequences: A055719 A055720 A055721 * A055723 A055724 A055725

nonn

Robert G. Wilson v, Jun 09 2000

approved