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

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

Links

Table of n, a(n) for n=1..47.

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

Adjacent sequences: A076717 A076718 A076719 * A076721 A076722 A076723

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