login
a(n) = sum{k=0..floor(n/2), C(2*n-3*k, n)*C(n-k, k)}
1

%I #11 Jan 23 2023 11:39:54

%S 1,2,6,22,85,336,1350,5492,22554,93300,388201,1622868,6811056,

%T 28680356,121111440,512684484,2174928031,9243973062,39354962345,

%U 167799259130,716414975613,3062437147352,13105366936465,56139506687280

%N a(n) = sum{k=0..floor(n/2), C(2*n-3*k, n)*C(n-k, k)}

%F a(n) = sum{k=0..floor(n/2), C(2*n-3*k, n)*C(n-k, k)}

%F Conjecture: 5*n*(n-1)*(3*n-10)*a(n) -3*(n-1)*(21*n^2-63*n-20)*a(n-1) +3*(-3*n^3+107*n^2-446*n+444)*a(n-2) +(3*n^3-259*n^2+1279*n-1575)*a(n-3) +3*(-21*n^3+210*n^2-673*n+694)*a(n-4) -3*(n-3)*(3*n^2-8*n-7)*a(n-5) -2*(n-4)*(3*n-7)*(2*n-9)*a(n-6)=0. - _R. J. Mathar_, Feb 20 2015

%p A105871 := proc(n)

%p add(binomial(2*n-3*k, n)*binomial(n-k, k),k=0..floor(n/2)) ;

%p end proc: # _R. J. Mathar_, Feb 20 2015

%t Table[Sum[Binomial[2n-3k,n]Binomial[n-k,k],{k,0,Floor[n/2]}],{n,0,30}] (* _Harvey P. Dale_, Jan 23 2023 *)

%o (PARI) a(n)=sum(k=0,floor(n/2), binomial(2*n-3*k, n)*binomial(n-k, k) ); /* _Joerg Arndt_, Mar 06 2013 */

%K easy,nonn

%O 0,2

%A _Paul Barry_, Apr 23 2005