|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|