OFFSET
0,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
FORMULA
G.f.: -(2*x*sqrt(-3*x^2-2*x+1)-2*x-2)/(-3*x^3+sqrt(-3*x^2-2*x+1)*(x^2+2*x+1)-5*x^2-x+1).
a(n) = (2*n + 1)*3F2(1-n/2,3/2-n/2,-n; 2,2-n; 4). - Ilya Gutkovskiy, Nov 25 2016
a(n) ~ 3^(n+3/2)/(4*sqrt(Pi*n)). - Vaclav Kotesovec, Nov 27 2016
MATHEMATICA
Table[(2 n + 1)/(n + 1) Sum[Binomial[n + 1, j] Binomial[n - j - 1, n - 2 j], {j, 0, Floor[n/2]}], {n, 0, 27}] (* or *)
CoefficientList[Series[-(2 x # - 2 x - 2)/(-3 x^3 + # (x^2 + 2 x + 1) - 5 x^2 - x + 1) &@ Sqrt[-3 x^2 - 2 x + 1], {x, 0, 27}], x] (* Michael De Vlieger, Nov 24 2016 *)
PROG
(Maxima) a(n):=((2*n+1)*sum(binomial(n+1, j)*binomial(n-j-1, n-2*j), j, 0, n/2))/(n+1);
(PARI) a(n) = (2*n+1)*sum(j=0, n\2, binomial(n+1, j)*binomial(n-j-1, n-2*j))/(n+1); \\ Michel Marcus, Dec 03 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Kruchinin, Nov 24 2016
STATUS
approved