|
%I #17 Sep 08 2022 08:44:50
%S 1,11,82,515,2934,15694,80324,397923,1922510,9105690,42438076,
%T 195165646,887516252,3997537980,17857602568,79200753059,349051186494,
%U 1529735010658,6670733733260,28959032959962,125209652884756,539384745200516,2315840230811832,9912689725127950
%N A sum over scaled A000531 related to Catalan numbers C(n).
%C Related to planar maps? - see A000184. - _N. J. A. Sloane_, Mar 11 2007
%H Vincenzo Librandi, <a href="/A029887/b029887.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n) = 4^n*sum(A000531(k+1)/4^k, k=0..n) = (2*n+1)*(2*n+3)*(2*n+5)*C(n)/3-(n+2)*2^(2*n+1); a(n)=4*a(n-1)+A000531(n+1).
%F G.f. c(x)/(1-4*x)^(5/2) = (2-c(x))/(1-4*x)^3, where c(x) = g.f. for Catalan numbers; also convolution of Catalan numbers with A002802.
%F G.f.: (4*x-1+sqrt(1-4*x))/(2*x*(1-4*x)^3). - _Vincenzo Librandi_, Mar 14 2014
%t a[n_] := (2*n+1)*(2*n+3)*(2*n+5)*CatalanNumber[n]/3 - (n+2)*2^(2*n+1); Table[a[n], {n, 0, 19}] (* _Jean-François Alcover_, Mar 12 2014 *)
%t CoefficientList[Series[(4 x - 1 + Sqrt[1 - 4 x])/(2 x (1 - 4 x)^3), {x, 0, 30}], x] (* _Vincenzo Librandi_, Mar 14 2014 *)
%o (Magma) [(2*n+1)*(2*n+3)*(2*n+5)*Catalan(n)/3 - (n+2)*2^(2*n+1): n in [0..30]]; // _Vincenzo Librandi_, Mar 14 2014
%Y Cf. A000184, A000531, A000108, A002802.
%K nonn
%O 0,2
%A _Wolfdieter Lang_
%E More terms from _Vincenzo Librandi_, Mar 14 2014
|
