OFFSET
0,3
FORMULA
a(n) = Sum_{k=0..floor(n/3)} n^(n-2*k) * binomial(n,3*k) * binomial(3*k,k).
a(n) ~ exp(3*n^(1/3)/2^(2/3)) * n^(n - 1/6) / (2^(2/3)*sqrt(3*Pi)) * (1 - 79/(36 * 2^(1/3) * n^(1/3))). - Vaclav Kotesovec, May 05 2019
MATHEMATICA
Flatten[{1, Table[n^n * HypergeometricPFQ[{1/3 - n/3, 2/3 - n/3, -n/3}, {1/2, 1}, -27/(4*n^2)], {n, 1, 20}]}] (* Vaclav Kotesovec, May 05 2019 *)
PROG
(PARI) {a(n) = polcoef((1+n*x+n*x^3)^n, n)}
(PARI) {a(n) = sum(k=0, n\3, n^(n-2*k)*binomial(n, 3*k)*binomial(3*k, k))}
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, May 05 2019
STATUS
approved