A356373 a(n) = Sum_{k=1..n} binomial(2*k, k) * A000005(k).

2, 14, 54, 264, 768, 4464, 11328, 62808, 208668, 947692, 2358556, 18583492, 39384692, 199851092, 820321172, 3825723122, 8492935562, 62943747362, 133634274962, 960713447882, 3113744945642, 11530140800522, 27997002255722, 285977831720522, 665209651033778, 2648883782826194

Offset

1,1

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A000005, A006218, A160399, A351146.

Sequence in context: A259125 A067056 A208428 * A137482 A346033 A277761

Adjacent sequences: A356370 A356371 A356372 * A356374 A356375 A356376

Keyword

nonn

Author

Vaclav Kotesovec, Aug 04 2022

Status

approved