A356341 a(n) = Sum_{k=1..n} binomial(2*n, k) * sigma(k).

2, 22, 131, 806, 3607, 20395, 84254, 422230, 1842359, 8616007, 33843614, 173724659, 676938316, 2983855666, 12806013721, 57981927158, 223432922515, 1040923729567, 4004885305320, 18277809794671, 75668287229078, 317458937099194, 1215454524390767, 5785782106653667

Offset

1,1

Links

Table of n, a(n) for n=1..24.

Formula

a(n) ~ Pi^2 * n * 4^(n-1) / 3.

Mathematica

Table[Sum[Binomial[2*n, k]*DivisorSigma[1, k], {k, 1, n}], {n, 1, 30}]

Prog

(PARI) a(n) = sum(k=1, n, binomial(2*n, k) * sigma(k)); \\ Michel Marcus, Aug 05 2022

Crossrefs

Cf. A000203, A024916, A185003, A351146.

Sequence in context: A206418 A255866 A330900 * A353191 A062180 A244719

Adjacent sequences: A356338 A356339 A356340 * A356342 A356343 A356344

Keyword

nonn

Author

Vaclav Kotesovec, Aug 04 2022

Status

approved