login
Central coefficients of the triangle A132047.
8

%I #21 Oct 23 2023 11:18:06

%S 1,6,18,60,210,756,2772,10296,38610,145860,554268,2116296,8112468,

%T 31201800,120349800,465352560,1803241170,7000818660,27225405900,

%U 106035791400,413539586460,1614773623320

%N Central coefficients of the triangle A132047.

%C Hankel transform is A144708.

%H G. C. Greubel, <a href="/A144706/b144706.txt">Table of n, a(n) for n = 0..1000</a>

%F G.f.: 3/sqrt(1-4*x) - 2;

%F a(n) = 3*binomial(2*n, n) - 2*0^n.

%F From _Philippe Deléham_, Oct 30 2008: (Start)

%F a(n) = Sum_{k=0..n} A039599(n,k)*A010686(k).

%F a(n) = Sum_{k=0..n} A106566(n,k)*A082505(k+1). (End)

%F D-finite with recurrence: n*a(n) = 2*(2*n-1)*a(n-1). - _R. J. Mathar_, Nov 30 2012

%F E.g.f.: -2 + 3*exp(2*x)*BesselI(0, 2*x). - _G. C. Greubel_, Jun 16 2022

%t Table[3*Binomial[2n,n] -2*Boole[n==0], {n,0,40}] (* _G. C. Greubel_, Jun 16 2022 *)

%o (Magma) [n eq 0 select 1 else 3*(n+1)*Catalan(n): n in [0..40]]; // _G. C. Greubel_, Jun 16 2022

%o (SageMath) [3*binomial(2*n, n) -2*bool(n==0) for n in (0..40)] # _G. C. Greubel_, Jun 16 2022

%o (PARI) a(n) = if(n, 3*binomial(2*n, n), 1) \\ _Charles R Greathouse IV_, Oct 23 2023

%Y Cf. A000108, A010686, A039599, A082505, A106566, A132047, A144708.

%K easy,nonn

%O 0,2

%A _Paul Barry_, Sep 19 2008