OFFSET
0,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..100
FORMULA
a(n) = Sum_{k=0..floor(n/2)} binomial(2*n-3*k,n-k)*(n^2-n*k-k^2-k)/((2*n-3*k)*(2*n-3*k-1)), for n>=3.
G.f.: (2-9*x+3*x^2+4*x^3+(x+3*x^2)*sqrt(1-4*x))/(2*(1-4*x)*(1-x+x^3)).
MATHEMATICA
T[n_, k_]=If[n==k, 1, Binomial[2n-k, n-k](n^2+n k-k^2-k)/((2n-k)(2n-k-1))]
Table[Sum[T[n-k, k], {k, 0, Floor[n/2]}], {n, 0, 22}]
PROG
(Maxima) T(n, k):=if n=k then 1 else binomial(2*n-k, n-k)*(n^2+n*k-k^2-k)/((2*n-k)*(2*n-k-1));
makelist(sum(T(n-k, k), k, 0, floor(n/2)), n, 0, 22);
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Emanuele Munarini, Apr 18 2011
STATUS
approved