%I #21 Apr 12 2023 11:08:21
%S 1,2,8,24,76,249,836,2860,9932,34918,124032,444448,1604664,5831765,
%T 21316860,78319140,289064460,1071275370,3984871440,14872552560,
%U 55678270440,209027020410,786750047304,2968257334104,11223268563896,42522737574604,161415556062656,613813414982656
%N The number of complete binary trees with bicolored twigs. A twig is a vertex with one child on the boundary and the other child having no descendants.
%H G. C. Greubel, <a href="/A228404/b228404.txt">Table of n, a(n) for n = 0..1000</a>
%H S. B. Ekhad and M. Yang, <a href="http://sites.math.rutgers.edu/~zeilberg/tokhniot/oMathar1maple12.txt">Proofs of Linear Recurrences of Coefficients of Certain Algebraic Formal Power Series Conjectured in the On-Line Encyclopedia Of Integer Sequences</a>, (2017).
%F G.f.: 1 - x + 2*x*C^2 + x*C^4 where C is the g.f. for the Catalan numbers A000108.
%F Conjecture: -5*(n+3)*(n-2)*a(n) +5*(-n^2-n+18)*a(n-1) +5*(-n^2-n+48)*a(n-2) +(-5*n^2+20029*n+720)*a(n-3) +(-5*n^2-104153*n+186654)*
%F a(n-4) +(-5*n^2 +130153*n -508806)*a(n-5) +13650*(2*n-11)*(n-7)*a(n-6) = 0. - _R. J. Mathar_, Aug 08 2015
%F From _G. C. Greubel_, May 03 2021: (Start)
%F a(n) = C(n+2) - 2*C(n+1) + 2*C(n) with a(0) = 1, a(1) = 2, and C(n) = A000108(n).
%F E.g.f.: (-x^2*(1+x) + 2*exp(2*x) *( x*(1+x)*BesselI(0, 2*x) - (1+x^2)*BesselI(1, 2*x))/x^2. (End)
%e For n = 2 there are two complete binary trees. Both consist of two twigs so can be colored 4 ways each.
%t Table[If[n<2, n+1, CatalanNumber[n+2] -2*CatalanNumber[n+1] +2*CatalanNumber[n]], {n,0,30}] (* _G. C. Greubel_, May 03 2021 *)
%o (PARI)
%o x = 'x + O('x^66);
%o C = serreverse( x/( 1/(1-x) ) ) / x; \\ Catalan A000108
%o gf = 1 - x + 2*x*C^2 + x*C^4;
%o Vec(gf) \\ _Joerg Arndt_, Aug 22 2013
%o (Magma) [1,2] cat [Catalan(n+2) -2*Catalan(n+1) +2*Catalan(n): n in [2..30]]; // _G. C. Greubel_, May 03 2021
%o (Sage) [1,2]+[catalan_number(n+2) -2*catalan_number(n+1) +2*catalan_number(n) for n in (2..30)] # _G. C. Greubel_, May 03 2021
%Y Without the bicoloring A228403 is the result.
%Y Cf. A000108.
%K nonn
%O 0,2
%A _Louis Shapiro_, Aug 21 2013
|