|
%I #8 Nov 17 2017 20:33:50
%S 1,480,1440,1920,3360,2880,5760,3840,7200,6240,8640,5760,13440,6720,
%T 11520,11520,14880,8640,18720,9600,20160,15360,17280,11520,28800,
%U 14880,20160,19200,26880,14400,34560,15360,30240,23040,25920,23040,43680,18240,28800
%N a(0) = 1, a(n) = 480*sigma(n).
%H Antti Karttunen, <a href="/A083728/b083728.txt">Table of n, a(n) for n = 0..10000</a>
%H <a href="/index/Si#SIGMAN">Index entries for sequences related to sigma(n)</a>
%t {1}~Join~Array[480 DivisorSigma[1, #] &, 38] (* _Michael De Vlieger_, Nov 16 2017 *)
%o (PARI) A083728(n) = if(0==n,1,480*sigma(n)); \\ _Antti Karttunen_, Nov 16 2017
%Y Cf. A000203, A004009, A008410.
%K nonn
%O 0,2
%A _N. J. A. Sloane_, Jun 16 2003
|
