|
|
A344042
|
|
a(n) = n * Sum_{d|n} sigma(d)^2 / d.
|
|
0
|
|
|
1, 11, 19, 71, 41, 209, 71, 367, 226, 451, 155, 1349, 209, 781, 779, 1695, 341, 2486, 419, 2911, 1349, 1705, 599, 6973, 1166, 2299, 2278, 5041, 929, 8569, 1055, 7359, 2945, 3751, 2911, 16046, 1481, 4609, 3971, 15047, 1805, 14839, 1979, 11005, 9266, 6589, 2351, 32205, 3746, 12826, 6479
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
G.f.: Sum_{k >= 1} sigma(k)^2 * x^k/(1 - x^k)^2.
Dirichlet g.f.: zeta(s) * zeta(s-1)^3 * zeta(s-2) / zeta(2*s-2).
Sum_{k=1..n} a(k) ~ 5 * Pi^2 * zeta(3) * n^3 / 36. (End)
|
|
MATHEMATICA
|
a[n_] := n * DivisorSum[n, DivisorSigma[1, #]^2/# &]; Array[a, 51] (* Amiram Eldar, May 08 2021 *)
|
|
PROG
|
(PARI) a(n) = n*sumdiv(n, d, sigma(d)^2/d);
(PARI) my(N=66, x='x+O('x^N)); Vec(sum(k=1, N, sigma(k)^2*x^k/(1-x^k)^2))
(PARI) for(n=1, 100, print1(direuler(p=2, n, (1 - p^2*X^2) / ((1 - X) * (1 - p*X)^3 * (1 - p^2*X)))[n], ", ")) \\ Vaclav Kotesovec, May 08 2021
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,mult
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|