OFFSET
0,2
LINKS
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
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jun 16 2003
STATUS
approved