login
A076720
Sum of product of divisors of n and sum of divisors of n.
0
2, 5, 7, 15, 11, 48, 15, 79, 40, 118, 23, 1756, 27, 220, 249, 1055, 35, 5871, 39, 8042, 473, 520, 47, 331836, 156, 718, 769, 22008, 59, 810072, 63, 32831, 1137, 1210, 1273, 10077787, 75, 1504, 1577, 2560090, 83, 3111792, 87, 85268, 91203, 2188, 95
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
Equals A007955 + A000203.
Sequence in context: A286573 A133511 A257025 * A245921 A215513 A358878
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