|
|
A086666
|
|
a(n) = sigma_2(n) - sigma_1(n).
|
|
2
|
|
|
0, 2, 6, 14, 20, 38, 42, 70, 78, 112, 110, 182, 156, 226, 236, 310, 272, 416, 342, 504, 468, 574, 506, 790, 620, 808, 780, 994, 812, 1228, 930, 1302, 1172, 1396, 1252, 1820, 1332, 1750, 1644, 2120, 1640, 2404, 1806, 2478, 2288, 2578, 2162, 3286, 2394, 3162
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
G.f.: Sum_{n>=1} n*(n-1) * x^n/(1-x^n). - Joerg Arndt, Jan 30, 2011
L.g.f.: -log(Product_{k>=1} (1 - x^k)^(k-1)) = Sum_{n>=1} a(n)*x^n/n. - Ilya Gutkovskiy, May 21 2018
G.f.: A(x) = Sum_{n >= 1} 2*x^(2*n)/(1 - x^n)^3.
A faster converging series: A(x) = Sum_{n >= 1} x^(n^2)*( n*(n-1)*x^(3*n) - (n^2 + n - 2)*x^(2*n) + n*(3 - n)*x^n + n*(n - 1) )/(1 - x^n)^3 - differentiate equation 5 in Arndt twice w.r.t x and set x = 1. (End)
|
|
MATHEMATICA
|
Table[DivisorSigma[2, n]-DivisorSigma[1, n], {n, 50}] (* Harvey P. Dale, Aug 01 2020 *)
|
|
PROG
|
(PARI) for (n=2, 50, print1(sigma(n, 2)-sigma(n, 1)", "))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|