login
a(n) = A002426(n)*A000984(n); product of central trinomial coefficients and central binomial coefficients.
2

%I #19 Feb 17 2020 11:51:34

%S 1,2,18,140,1330,12852,130284,1348776,14247090,152618180,1654120468,

%T 18096447096,199536967084,2214714164600,24720932068200,

%U 277289164574640,3123590583844530,35318969120870820,400692715550057700,4559427798654821400,52020436064931914580

%N a(n) = A002426(n)*A000984(n); product of central trinomial coefficients and central binomial coefficients.

%H G. C. Greubel, <a href="/A216584/b216584.txt">Table of n, a(n) for n = 0..925</a>

%F a(n) = binomial(2*n, n) * Sum_{k=0..floor(n/2)} binomial(n, 2*k)*binomial(2*k, k).

%F Logarithmic derivative of A216585, after ignoring initial term a(0).

%F a(n) = [x^n*y^n] ( 1 + (x + y)^2 + (x + y)^4 )^n. - _Peter Bala_, Feb 17 2020

%e L.g.f.: L(x) = 2*x + 18*x^2/2 + 140*x^3/3 + 1330*x^4/4 + 12852*x^5/5 + 130284*x^6/6 + ...

%e where

%e exp(L(x)) = 1 + 2*x + 11*x^2 + 66*x^3 + 485*x^4 + 3842*x^5 + 32712*x^6 + ... + A216585(n)*x^n/n + ...

%e The central trinomial coefficients (A002426) begin:

%e [1, 1, 3, 7, 19, 51, 141, 393, 1107, 3139, 8953, 25653, 73789, ...];

%e The central binomial coefficients (A000984) begin:

%e [1, 2, 6, 20, 70, 252, 924, 3432, 12870, 48620, 184756, 705432, ...].

%t Table[Binomial[2*n, n]*Sum[ Binomial[n, 2*k]*Binomial[2*k, k], {k, 0, Floor[n/2]}], {n,0,50}] (* _G. C. Greubel_, Feb 27 2017 *)

%o (PARI) {a(n) = polcoeff((1+x+x^2)^n,n) * polcoeff((1+2*x+x^2)^n,n)}

%o (PARI) {a(n)=binomial(2*n,n)*sum(k=0,n\2,binomial(n,2*k)*binomial(2*k,k))}

%o for(n=0,21,print1(a(n),", "))

%Y Cf. A216585, A151341, A168595, A002426, A000984.

%K nonn

%O 0,2

%A _Paul D. Hanna_, Sep 08 2012