|
%I #4 Apr 11 2015 13:33:32
%S 2,5,7,15,11,48,15,79,40,118,23,1756,27,220,249,1055,35,5871,39,8042,
%T 473,520,47,331836,156,718,769,22008,59,810072,63,32831,1137,1210,
%U 1273,10077787,75,1504,1577,2560090,83,3111792,87,85268,91203,2188,95
%N Sum of product of divisors of n and sum of divisors of n.
%t Table[d = Divisors[n]; Apply[Times, d] + Apply[Plus, d], {n, 1, 50}]
%t spsd[n_]:=Module[{d=Divisors[n]},Times@@d+Total[d]]; Array[spsd,50] (* _Harvey P. Dale_, Apr 11 2015 *)
%Y Equals A007955 + A000203.
%K nonn,easy
%O 1,1
%A Emrehan Halici (emrehan(AT)halici.com.tr), Oct 27 2002
%E Edited by _Robert G. Wilson v_, Oct 29 2002
|
