OFFSET
1,1
MATHEMATICA
Table[d = Divisors[n]; Apply[Times, d] + Apply[Plus, d], {n, 1, 50}]
spsd[n_]:=Module[{d=Divisors[n]}, Times@@d+Total[d]]; Array[spsd, 50] (* Harvey P. Dale, Apr 11 2015 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Emrehan Halici (emrehan(AT)halici.com.tr), Oct 27 2002
EXTENSIONS
Edited by Robert G. Wilson v, Oct 29 2002
STATUS
approved