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

1, 1, 9, 55, 4289, 47376, 10358713, 162592977, 70065589761, 1419907258279, 1015035028009001, 25173466118539344, 26947505294538873409, 790057195504021692521, 1183327797361056503499225, 40027334070963910087734751, 79925496016112851520801796097

Offset

0,3

Links

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

Formula

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

a(n) ~ n^(3*n/2) if n is even and a(n) ~ n^((3*n-1)/2)/2 if n is odd. - Vaclav Kotesovec, Jan 09 2024

Mathematica

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

Prog

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

Crossrefs

Cf. A171180, A368888.

Sequence in context: A041148 A307844 A114026 * A245488 A242604 A212150

Adjacent sequences: A368886 A368887 A368888 * A368890 A368891 A368892

Keyword

nonn,easy

Author

Seiichi Manyama, Jan 09 2024

Status

approved