|
| |
|
|
A069546
|
|
Sum_{d|n} sigma(n*d).
|
|
0
| |
|
|
1, 10, 17, 53, 37, 170, 65, 236, 174, 370, 145, 901, 197, 650, 629, 987, 325, 1740, 401, 1961, 1105, 1450, 577, 4012, 968, 1970, 1618, 3445, 901, 6290, 1025, 4026, 2465, 3250, 2405, 9222, 1445, 4010, 3349, 8732, 1765, 11050, 1937, 7685, 6438, 5770
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
FORMULA
| Multiplicative with a(p^e) = (p^(e+1)*(p^(e+1)-1)-(p-1)*(e+1))/(p-1)^2.
|
|
|
MATHEMATICA
| Table[ Apply[ Plus, DivisorSigma[1, n*Divisors[n]]], {n, 1, 50}]
|
|
|
CROSSREFS
| Cf. A061391, A062354.
Sequence in context: A034107 A019991 A164285 * A065018 A039336 A043159
Adjacent sequences: A069543 A069544 A069545 * A069547 A069548 A069549
|
|
|
KEYWORD
| mult,easy,nonn
|
|
|
AUTHOR
| Vladeta Jovovic (vladeta(AT)eunet.rs), Apr 17 2002
|
|
|
EXTENSIONS
| Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 22 2002
|
| |
|
|
