A352082 a(n) = Sum_{k=0..floor(n/2)} (n-2*k)^n.

1, 1, 4, 28, 272, 3369, 50816, 903856, 18522624, 429746905, 11135257600, 318719062236, 9987013488640, 340037795872369, 12500401969233920, 493467700789897408, 20819865970795610112, 934939160745193002321, 44523294861684890664960

Offset

0,3

Links

Table of n, a(n) for n=0..18.

Formula

G.f.: Sum_{k>=0} (k * x)^k / (1 - (k * x)^2).

Conjecture: a(n) = (1 - 2^n)*zeta(-n) - (2^n)*zeta(-n, n/2 + 1) for n > 0, where the bivariate zeta function is the Hurwitz zeta function. - Velin Yanev, Mar 25 2024

a(n) ~ n^n / (1 - exp(-2)). - Vaclav Kotesovec, Mar 25 2024

Mathematica

a[0] = 1; a[n_] := Sum[(n-2*k)^n, {k, 0, Floor[n/2]}]; Array[a, 20, 0] (* Amiram Eldar, Apr 16 2022 *)

Prog

(PARI) a(n) = sum(k=0, n\2, (n-2*k)^n);
(PARI) my(N=20, x='x+O('x^N)); Vec(sum(k=0, N, (k*x)^k/(1-(k*x)^2)))

Crossrefs

Cf. A352981, A353013, A353016.

Sequence in context: A129683 A367474 A360730 * A081917 A302583 A302605

Adjacent sequences: A352079 A352080 A352081 * A352083 A352084 A352085

Keyword

nonn,easy

Author

Seiichi Manyama, Apr 16 2022

Status

approved