A083728 a(0) = 1, a(n) = 480*sigma(n).

1, 480, 1440, 1920, 3360, 2880, 5760, 3840, 7200, 6240, 8640, 5760, 13440, 6720, 11520, 11520, 14880, 8640, 18720, 9600, 20160, 15360, 17280, 11520, 28800, 14880, 20160, 19200, 26880, 14400, 34560, 15360, 30240, 23040, 25920, 23040, 43680, 18240, 28800

Offset: 0

Author

N. J. A. Sloane, Jun 16 2003

Keywords

• nonn

Links

• Antti Karttunen, Table of n, a(n) for n = 0..10000
• Index entries for sequences related to sigma(n)

Crossrefs

Cf. A000203, A004009, A008410.

Programs

Mathematica

{1}~Join~Array[480 DivisorSigma[1, #] &, 38] (* Michael De Vlieger, Nov 16 2017 *)

PARI

A083728(n) = if(0==n,1,480*sigma(n)); \\ Antti Karttunen, Nov 16 2017