A368892 a(n) = Sum_{k=0..floor(n/3)} n^(n-3*k) * binomial(n-2*k,k).

1, 1, 4, 28, 264, 3200, 47521, 835569, 16974208, 391147867, 10080150040, 287244283821, 8967781893889, 304393809948904, 11160668048222588, 439582708115133751, 18509867068477014112, 829768603643818659302, 39454459640462073466945

Offset

0,3

Links

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

Formula

a(n) = [x^n] 1/(1 - n*x - x^3).

a(n) ~ n^n. - Vaclav Kotesovec, Jan 09 2024

Mathematica

Join[{1}, Table[n^n * HypergeometricPFQ[{1/3 - n/3, 2/3 - n/3, -n/3}, {1/2 - n/2, -n/2}, -27/(4*n^3)], {n, 1, 20}]] (* Vaclav Kotesovec, Jan 09 2024 *)

Prog

(PARI) a(n) = sum(k=0, n\3, n^(n-3*k)*binomial(n-2*k, k));

Crossrefs

Cf. A368891, A368893.

Cf. A117716, A084845.

Sequence in context: A196523 A260775 A292810 * A360727 A353013 A284756

Adjacent sequences: A368889 A368890 A368891 * A368893 A368894 A368895

Keyword

nonn,easy

Author

Seiichi Manyama, Jan 09 2024

Status

approved