login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Sum of product of divisors of n and sum of divisors of n.
0

%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