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,2

Links

Antti Karttunen, Table of n, a(n) for n = 0..10000

Index entries for sequences related to sigma(n)

Mathematica

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

Prog

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

Crossrefs

Cf. A000203, A004009, A008410.

Sequence in context: A293187 A206200 A258558 * A199808 A253401 A396076

Adjacent sequences: A083725 A083726 A083727 * A083729 A083730 A083731

Keyword

nonn

Author

N. J. A. Sloane, Jun 16 2003

Status

approved