|
|
A067817
|
|
a(n) = Sum_{r|n, s|n, t|n, r<s<t} r*s*t.
|
|
2
|
|
|
0, 0, 0, 8, 0, 72, 0, 120, 27, 180, 0, 1400, 0, 336, 360, 1240, 0, 3285, 0, 3948, 672, 792, 0, 15960, 125, 1092, 1080, 8240, 0, 25992, 0, 11160, 1584, 1836, 1680, 57065, 0, 2280, 2184, 46620, 0, 56352, 0, 23592, 18612, 3312, 0, 150040, 343, 29955, 3672
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
LINKS
|
|
|
FORMULA
|
(1/3!)*(sigma[1](n)^3-3*sigma[1](n)*sigma[2](n)+2*sigma[3](n)).
|
|
MAPLE
|
a:= n-> coeff(expand(mul(1+d*x, d=numtheory[divisors](n))), x, 3):
|
|
PROG
|
(PARI) a(n) = 1/6*(sigma(n, 1)^3 - 3*sigma(n, 1)*sigma(n, 2) + 2*sigma(n, 3)) \\ Michel Marcus, Jun 17 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|