cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-10 of 10 results.

A007863 Number of hybrid binary trees with n internal nodes.

Original entry on oeis.org

1, 2, 7, 31, 154, 820, 4575, 26398, 156233, 943174, 5785416, 35955297, 225914342, 1432705496, 9158708775, 58954911423, 381806076426, 2485972170888, 16263884777805, 106858957537838, 704810376478024, 4664987368511948, 30974829705533240, 206266525653071416
Offset: 0

Views

Author

Jean Pallo (pallo(AT)u-bourgogne.fr)

Keywords

Comments

From Benoit Jubin, May 27 2012: (Start)
Definition of hybrid binary trees:
An (a,n)-labeled binary tree is a binary tree where each internal node is labeled by "a" (for associative) or "n" (for nonassociative). We define on the set of (a,n)-labeled binary trees with a given number of nodes an equivalence relation as follows: denote a tree with a root labeled "a" with left subtree A and right subtree B by AaB. Then we declare the trees (AaB)aC and Aa(BaC) equivalent, and two trees are equivalent if and only if one can go from one to the other by doing such transformations within any of their subtrees.
A hybrid binary tree is an equivalence class of (a,n)-labeled binary trees under this relation. (End)
Also the number of Dyck n-paths with up steps colored in two ways (N or A) and avoiding AA. The 7 Dyck 2-paths are NDND, NDAD, ADND, ADAD, NNDD, NADD, and ANDD. - David Scambler, May 21 2012

Examples

			G.f. = 1 + 2*x + 7*x^2 + 31*x^3 + 154*x^4 + 820*x^5 + 4575*x^6 + ...
		

Crossrefs

Column k=2 of A245049.

Programs

  • Macsyma
    taylor_solve_choose_order:true; taylor_solve( A^3*X^2+A^2*X+A*(X-1)+1,A,X,0,[ 20 ]);
    
  • Maple
    A:= proc(n) option remember; if n=0 then 1 else convert(series((x^2 *A(n-1)^3 +x*A(n-1)^2 +1)/ (1-x), x=0,n+1), polynom) fi end: a:= n-> coeff(A(n), x, n): seq(a(n), n=0..30); # Alois P. Heinz, Aug 22 2008
  • Mathematica
    InverseSeries[Series[(y-y^2-y^3)/(1+y), {y, 0, 24}], x] (* then A(x)=y(x)/x . - Len Smiley, Apr 14 2000 *)
    Table[ HypergeometricPFQ[{-n, 1 + n, 2 + n}, {1, 3/2}, -(1/4)], {n,0,23}] (* Olivier Gérard, Apr 23 2009 *)
    a[ n_] := If[ n < 0, 0, HypergeometricPFQ[{-n, 1 + n, 2 + n}, {1, 3/2}, -1/4]]; (* Michael Somos, Dec 31 2014 *)
  • PARI
    {a(n) = if( n<0, 0, sum(k=0, n, binomial(n+k, n) * binomial(n+k+1, n-k)) / (n+1))};
    
  • PARI
    {a(n) = local(A = 1 + x + x * O(x^n)); for(i=1, n, A = 1 + x * (A + A^2) + x^2 * A^3); polcoeff(A, n)};
    
  • PARI
    {a(n) = local(A=1+x); for(i=1, n, A = exp(sum(m=1, n, sum(j=0, m, binomial(m, j)^2 * (A + x * O(x^n))^j) * x^m / m))); polcoeff(A, n, x)};

Formula

G.f. A(x) satisfies: x^2*A(x)^3 + x*A(x)^2 + (-1+x)*A(x) + 1 = 0.
a(n) = 3F2({-n, n+1, n+2 } ; {1, 3/2})( -(1/4) ). - Olivier Gérard, Apr 23 2009
a(n) = (1/(n+1))*Sum_{k=0..n} binomial(n+k,n)*binomial(n+k+1,n-k). - Vladimir Kruchinin, Dec 24 2010
G.f.: A(x) = exp( Sum_{n>=1} [Sum_{k=0..n} C(n,k)^2*A(x)^k] * x^n/n ). - Paul D. Hanna, Feb 13 2011
The formal inverse of the g.f. A(x) is (sqrt(5*x^2 - 2*x + 1) - (1+x))/(2*x^2). - Paul D. Hanna, Aug 21 2012
The radius of convergence of g.f. A(x) is r = 0.1407810125... with A(r) = 2.1107712092... such that y=A(r) satisfies 5*y^3 - 12*y^2 + 4*y - 2 = 0. - Paul D. Hanna, Aug 21 2012
D-finite with recurrence: 45*n*(n+1)*a(n) - 2*n*(157*n-71)*a(n-1) + 12*(-3*n^2+15*n-14)*a(n-2) + 2*(-14*n^2+43*n-21)*a(n-3) - 4*(n-3)*(2*n-7)*a(n-4) = 0. - R. J. Mathar, Jun 03 2014
Recurrence (of order 3): 5*n*(n+1)*(35*n-62)*a(n) = 6*n*(210*n^2 - 477*n + 181)*a(n-1) - 4*n*(35*n^2 - 132*n + 115)*a(n-2) + 2*(n-2)*(2*n-5)*(35*n-27)*a(n-3). - Vaclav Kotesovec, Jul 11 2014
a(n) ~ sqrt((s*(1+s+2*r*s^2))/(1+3*r*s)) / (2*sqrt(Pi) * r^n * n^(3/2)), where r = 52/(3*(181 + 105*sqrt(105))^(1/3)) - 1/6*(181 + 105*sqrt(105))^(1/3) + 1/3 = 0.1407810125885522212..., s = 1/15*(12 + (1323 - 105*sqrt(105))^(1/3) + (21*(63 + 5*sqrt(105)))^(1/3)) = 2.110771209224758867... . - Vaclav Kotesovec, Jul 11 2014

A215654 G.f. satisfies: A(x) = (1 + x*A(x)^2) * (1 + x*A(x)^3).

Original entry on oeis.org

1, 2, 11, 81, 684, 6257, 60325, 603641, 6210059, 65272503, 697898849, 7566847547, 82999675563, 919376968734, 10269588489433, 115548651723889, 1308374198000780, 14897993185500455, 170482798370871370, 1959574731164246402, 22614008012647634411, 261915716386286916342
Offset: 0

Views

Author

Paul D. Hanna, Aug 19 2012

Keywords

Comments

More generally, for fixed parameters p, q, r, and s, if F(x) satisfies:
F(x) = (1 + x^r*F(x)^(p+1)) * (1 + x^(r+s)*F(x)^(p+q+1)), then
F(x) = exp( Sum_{n>=1} x^(n*r)*F(x)^(n*p)/n * [Sum_{k=0..n} C(n,k)^2 * x^(k*s)*F(x)^(k*q)] ).
The radius of convergence of g.f. A(x) is r = 0.08035832347291483065438962031... with A(r) = 1.5393913914574609282262181402132760790902539070... where y=A(r) satisfies 20*y^3 - 38*y^2 + 15*y - 6 = 0.
r = 1/(187/300*17^(2/3) + 119/75*17^(1/3) + 1273/300). - Vaclav Kotesovec, Sep 17 2013
Number of hybrid ternary trees with n internal nodes. [Hong and Park]. - N. J. A. Sloane, Mar 26 2014

Examples

			G.f.: A(x) = 1 + 2*x + 11*x^2 + 81*x^3 + 684*x^4 + 6257*x^5 + 60325*x^6 +...
Related expansions.
A(x)^2 = 1 + 4*x + 26*x^2 + 206*x^3 + 1813*x^4 + 17032*x^5 +...
A(x)^3 = 1 + 6*x + 45*x^2 + 383*x^3 + 3519*x^4 + 34023*x^5 +...
A(x)^5 = 1 + 10*x + 95*x^2 + 925*x^3 + 9270*x^4 + 95237*x^5 +...
where A(x) = 1 + x*(A(x)^2 + A(x)^3) + x^2*A(x)^5.
The g.f. also satisfies the series:
A(x) = 1 + 2*x*A(x)^2 + 3*x^2*A(x)^4 + 5*x^3*A(x)^6 + 8*x^4*A(x)^8 + 13*x^5*A(x)^10 + 21*x^6*A(x)^12 + 34*x^7*A(x)^14 +...+ Fibonacci(n+2)*x^n*A(x)^(2*n) +...
and consequently, A( x*(1-x-x^2)^2/(1+x)^2 ) = (1+x)/(1-x-x^2).
The logarithm of the g.f. equals the series:
log(A(x)) = (1 + A(x))*x*A(x) + (1 + 2^2*A(x) + A(x)^2)*x^2*A(x)^2/2 +
(1 + 3^2*A(x) + 3^2*A(x)^2 + A(x)^3)*x^3*A(x)^3/3 +
(1 + 4^2*A(x) + 6^2*A(x)^2 + 4^2*A(x)^3 + A(x)^4)*x^4*A(x)^4/4 +
(1 + 5^2*A(x) + 10^2*A(x)^2 + 10^2*A(x)^3 + 5^2*A(x)^4 + A(x)^5)*x^5*A(x)^5/5 +...
Explicitly,
log(A(x)) = 2*x + 18*x^2/2 + 185*x^3/3 + 2006*x^4/4 + 22412*x^5/5 + 255249*x^6/6 + 2946155*x^7/7 + 34342270*x^8/8 +...+ L(n)*x^n/n +...
where L(n) = [x^n] (1+x)^(2*n)/(1-x-x^2)^(2*n) / 2.
		

Crossrefs

Column k=3 of A245049.

Programs

  • Maple
    a:= n-> coeff(series(RootOf((1+x*A^2)*(1+x*A^3)-A, A), x, n+1), x, n):
    seq(a(n), n=0..33);  # Alois P. Heinz, Apr 04 2019
  • Mathematica
    CoefficientList[Sqrt[1/x*InverseSeries[Series[x*(1-x-x^2)^2/(1+x)^2,{x,0,20}],x]],x] (* Vaclav Kotesovec, Sep 17 2013 *)
  • Maxima
    a(n):=sum(binomial(2*n+i,i)*binomial(2*n+i+1,n-i),i,0,n)/(2*n+1); /* Vladimir Kruchinin, Apr 04 2019 */
  • PARI
    {a(n)=local(A=1+x+x*O(x^n)); for(i=1, n, A=(1 + x*A^2)*(1 + x*A^3)); polcoeff(A, n)}
    
  • PARI
    {a(n)=polcoeff(sqrt((1/x)*serreverse( x*(1-x-x^2)^2/(1+x +x*O(x^n))^2)), n)}
    for(n=0,31,print1(a(n),", "))
    
  • PARI
    {a(n)=local(A=1+x+x*O(x^n)); for(i=1, n, A=exp(sum(m=1, n, sum(j=0, m, binomial(m, j)^2*A^j)*x^m*A^m/m))); polcoeff(A, n)}
    
  • PARI
    {a(n)=local(A=1+x+x*O(x^n)); for(i=1, n, A=exp(sum(m=1, n, sum(j=0, m, binomial(m, j)^2/A^j)*x^m*A^(2*m)/m))); polcoeff(A, n)}
    
  • PARI
    {a(n)=polcoeff(((1+x)/(1-x-x^2 +x*O(x^n)))^(2*n+1)/(2*n+1),n)}
    

Formula

G.f. A(x) satisfies:
(1) A(x) = sqrt( (1/x)*Series_Reversion( x*(1-x-x^2)^2/(1+x)^2 ) ).
(2) A(x) = exp( Sum_{n>=1} x^n*A(x)^n/n * Sum_{k=0..n} C(n,k)^2 * A(x)^k ).
(3) A(x) = exp( Sum_{n>=1} x^n*A(x)^(2*n)/n * Sum_{k=0..n} C(n,k)^2 / A(x)^k ).
(4) A(x) = Sum_{n>=0} Fibonacci(n+2) * x^n * A(x)^(2*n).
(5) A(x) = G(x*A(x)) where G(x) = A(x/G(x)) is the g.f. of A007863 (number of hybrid binary trees with n internal nodes).
The formal inverse of g.f. A(x) is (sqrt(1-2*x+5*x^2) - (1+x))/(2*x^3).
a(n) = [x^n] ( (1+x)/(1-x-x^2) )^(2*n+1) / (2*n+1).
Recurrence: 100*(n-1)*n*(2*n-1)*(2*n+1)*(4913*n^3 - 26877*n^2 + 49912*n - 30480)*a(n) = 2*(n-1)*(2*n-1)*(6254249*n^5 - 40468670*n^4 + 99110119*n^3 - 109861414*n^2 + 52822608*n - 8566560)*a(n-1) - 3*(2343501*n^7 - 22194333*n^6 + 87905623*n^5 - 187987155*n^4 + 233161624*n^3 - 166253172*n^2 + 62010112*n - 8952000)*a(n-2) + 6*(n-2)*(2*n-5)*(3*n-8)*(3*n-4)*(4913*n^3 - 12138*n^2 + 10897*n - 2532)*a(n-3). - Vaclav Kotesovec, Sep 17 2013
a(n) ~ 1/1020*sqrt(73695 + 11730*17^(2/3) + 28815*17^(1/3)) * (187/300*17^(2/3) + 119/75*17^(1/3) + 1273/300)^n / (n^(3/2)*sqrt(Pi)). - Vaclav Kotesovec, Sep 17 2013
a(n) = 1/(2*n+1)*Sum_{i=0..n} C(2*n+i,i)*C(2*n+i+1,n-i). - Vladimir Kruchinin, Apr 04 2019

A239108 Number of hybrid 5-ary trees with n internal nodes.

Original entry on oeis.org

1, 2, 19, 253, 3920, 66221, 1183077, 21981764, 420449439, 8223704755, 163727846678, 3307039145618, 67600147666909, 1395822347989531, 29070233296701815, 609950649080323320, 12881240945694949696, 273590092192962485985, 5840400740191969187922
Offset: 0

Views

Author

N. J. A. Sloane, Mar 26 2014

Keywords

Crossrefs

Programs

  • Mathematica
    (1/x InverseSeries[x(1 - x - x^2)^4/(1 + x)^4 + O[x]^20])^(1/4) // CoefficientList[#, x]& (* Jean-François Alcover, Oct 02 2019 *)
  • PARI
    a(n)=local(A=1+x+x*O(x^n)); for(i=1, n, A=(1 + x*A^4)*(1 + x*A^5)); polcoeff(A, n)
    for(n=0, 20, print1(a(n), ", ")) \\ Paul D. Hanna, Mar 30 2014
    
  • PARI
    a(n)=polcoeff( ((1/x)*serreverse( x*(1-x-x^2)^4/(1+x +x*O(x^n))^4))^(1/4), n)
    for(n=0, 20, print1(a(n), ", ")) \\ Paul D. Hanna, Mar 30 2014
    
  • PARI
    a(n)=local(A=1+x+x*O(x^n)); for(i=1, n, A=exp(sum(m=1, n, sum(j=0, m, binomial(m, j)^2*A^j)*x^m*A^(3*m)/m))); polcoeff(A, n)
    for(n=0, 20, print1(a(n), ", ")) \\ Paul D. Hanna, Mar 30 2014
    
  • PARI
    a(n)=local(A=1+x+x*O(x^n)); for(i=1, n, A=exp(sum(m=1, n, sum(j=0, m, binomial(m, j)^2/A^j)*x^m*A^(4*m)/m))); polcoeff(A, n)
    for(n=0, 20, print1(a(n), ", ")) \\ Paul D. Hanna, Mar 30 2014
    
  • PARI
    a(n)=polcoeff(((1+x)/(1-x-x^2 +x*O(x^n)))^(4*n+1)/(4*n+1), n)
    for(n=0, 20, print1(a(n), ", ")) \\ Paul D. Hanna, Mar 30 2014

Formula

From Paul D. Hanna, Mar 30 2014: (Start)
G.f. A(x) satisfies:
(1) A(x) = (1 + x*A(x)^4) * (1 + x*A(x)^5).
(2) A(x) = ( (1/x)*Series_Reversion( x*(1-x-x^2)^4/(1+x)^4 ) )^(1/4).
(3) A(x) = exp( Sum_{n>=1} x^n*A(x)^(3*n)/n * Sum_{k=0..n} C(n,k)^2 * A(x)^k ).
(4) A(x) = exp( Sum_{n>=1} x^n*A(x)^(4*n)/n * Sum_{k=0..n} C(n,k)^2 / A(x)^k ).
(5) A(x) = Sum_{n>=0} Fibonacci(n+2) * x^n * A(x)^(4*n).
(6) A(x) = G(x*A(x)^3) where G(x) = A(x/G(x)^3) is the g.f. of A007863 (number of hybrid binary trees with n internal nodes).
The formal inverse of g.f. A(x) is (sqrt(1-2*x+5*x^2) - (1+x))/(2*x^5).
a(n) = [x^n] ( (1+x)/(1-x-x^2) )^(4*n+1) / (4*n+1).
(End)

A239109 Number of hybrid 6-ary trees with n internal nodes.

Original entry on oeis.org

1, 2, 23, 375, 7138, 148348, 3262975, 74673216, 1759690865, 42412172598, 1040644972314, 25907046248766, 652763779424538, 16614703783094140, 426563932954831827, 11033640140115676862, 287265076610919864178, 7522060666571155198520, 197969862318742854908470
Offset: 0

Views

Author

N. J. A. Sloane, Mar 26 2014

Keywords

Crossrefs

Programs

  • Mathematica
    (1/x InverseSeries[x*(1 - x - x^2)^5/(1 + x)^5 + O[x]^20])^(1/5) // CoefficientList[#, x]& (* Jean-François Alcover, Oct 02 2019 *)
  • PARI
    a(n)=local(A=1+x+x*O(x^n)); for(i=1, n, A=(1 + x*A^5)*(1 + x*A^6)); polcoeff(A, n)
    for(n=0, 20, print1(a(n), ", ")) \\ Paul D. Hanna, Mar 30 2014
    
  • PARI
    a(n)=polcoeff( ((1/x)*serreverse( x*(1-x-x^2)^5/(1+x +x*O(x^n))^5))^(1/5), n)
    for(n=0, 20, print1(a(n), ", ")) \\ Paul D. Hanna, Mar 30 2014
    
  • PARI
    a(n)=local(A=1+x+x*O(x^n)); for(i=1, n, A=exp(sum(m=1, n, sum(j=0, m, binomial(m, j)^2*A^j)*x^m*A^(4*m)/m))); polcoeff(A, n)
    for(n=0, 20, print1(a(n), ", ")) \\ Paul D. Hanna, Mar 30 2014
    
  • PARI
    a(n)=local(A=1+x+x*O(x^n)); for(i=1, n, A=exp(sum(m=1, n, sum(j=0, m, binomial(m, j)^2/A^j)*x^m*A^(5*m)/m))); polcoeff(A, n)
    for(n=0, 20, print1(a(n), ", ")) \\ Paul D. Hanna, Mar 30 2014
    
  • PARI
    a(n)=polcoeff(((1+x)/(1-x-x^2 +x*O(x^n)))^(5*n+1)/(5*n+1), n)
    for(n=0, 20, print1(a(n), ", ")) \\ Paul D. Hanna, Mar 30 2014

Formula

From Paul D. Hanna, Mar 30 2014: (Start)
G.f. A(x) satisfies:
(1) A(x) = (1 + x*A(x)^5) * (1 + x*A(x)^6).
(2) A(x) = ( (1/x)*Series_Reversion( x*(1-x-x^2)^5/(1+x)^5 ) )^(1/5).
(3) A(x) = exp( Sum_{n>=1} x^n*A(x)^(4*n)/n * Sum_{k=0..n} C(n,k)^2 * A(x)^k ).
(4) A(x) = exp( Sum_{n>=1} x^n*A(x)^(5*n)/n * Sum_{k=0..n} C(n,k)^2 / A(x)^k ).
(5) A(x) = Sum_{n>=0} Fibonacci(n+2) * x^n * A(x)^(5*n).
(6) A(x) = G(x*A(x)^4) where G(x) = A(x/G(x)^4) is the g.f. of A007863 (number of hybrid binary trees with n internal nodes).
The formal inverse of g.f. A(x) is (sqrt(1-2*x+5*x^2) - (1+x))/(2*x^6).
a(n) = [x^n] ( (1+x)/(1-x-x^2) )^(5*n+1) / (5*n+1).
(End)

A239107 Number of hybrid 4-ary trees with n internal nodes.

Original entry on oeis.org

1, 2, 15, 155, 1854, 24124, 331575, 4736345, 69616637, 1046054129, 15995716263, 248111418112, 3894303176880, 61737213540306, 987116931080661, 15899835212249761, 257758369219909534, 4202381519278498915, 68859442092723799788, 1133401910867109123200
Offset: 0

Views

Author

N. J. A. Sloane, Mar 26 2014

Keywords

Crossrefs

Programs

  • Mathematica
    (1/x InverseSeries[x(1 - x - x^2)^3/(1 + x)^3 + O[x]^21])^(1/3) // CoefficientList[#, x]& (* Jean-François Alcover, Oct 02 2019 *)
  • PARI
    a(n)=local(A=1+x+x*O(x^n)); for(i=1, n, A=(1 + x*A^3)*(1 + x*A^4)); polcoeff(A, n)
    for(n=0, 20, print1(a(n), ", ")) \\ Paul D. Hanna, Mar 30 2014
    
  • PARI
    a(n)=polcoeff( ((1/x)*serreverse( x*(1-x-x^2)^3/(1+x +x*O(x^n))^3))^(1/3), n)
    for(n=0, 20, print1(a(n), ", ")) \\ Paul D. Hanna, Mar 30 2014
    
  • PARI
    a(n)=local(A=1+x+x*O(x^n)); for(i=1, n, A=exp(sum(m=1, n, sum(j=0, m, binomial(m, j)^2*A^j)*x^m*A^(2*m)/m))); polcoeff(A, n)
    for(n=0, 20, print1(a(n), ", ")) \\ Paul D. Hanna, Mar 30 2014
    
  • PARI
    a(n)=local(A=1+x+x*O(x^n)); for(i=1, n, A=exp(sum(m=1, n, sum(j=0, m, binomial(m, j)^2/A^j)*x^m*A^(3*m)/m))); polcoeff(A, n) \\ Paul D. Hanna, Mar 30 2014
    for(n=0, 20, print1(a(n), ", "))
    
  • PARI
    a(n)=polcoeff(((1+x)/(1-x-x^2 +x*O(x^n)))^(3*n+1)/(3*n+1), n)
    for(n=0, 20, print1(a(n), ", ")) \\ Paul D. Hanna, Mar 30 2014

Formula

From Paul D. Hanna, Mar 30 2014: (Start)
G.f. A(x) satisfies:
(1) A(x) = (1 + x*A(x)^3) * (1 + x*A(x)^4).
(2) A(x) = ( (1/x)*Series_Reversion( x*(1-x-x^2)^3/(1+x)^3 ) )^(1/3).
(3) A(x) = exp( Sum_{n>=1} x^n*A(x)^(2*n)/n * Sum_{k=0..n} C(n,k)^2 * A(x)^k ).
(4) A(x) = exp( Sum_{n>=1} x^n*A(x)^(3*n)/n * Sum_{k=0..n} C(n,k)^2 / A(x)^k ).
(5) A(x) = Sum_{n>=0} Fibonacci(n+2) * x^n * A(x)^(3*n).
(6) A(x) = G(x*A(x)^2) where G(x) = A(x/G(x)^2) is the g.f. of A007863 (number of hybrid binary trees with n internal nodes).
The formal inverse of g.f. A(x) is (sqrt(1-2*x+5*x^2) - (1+x))/(2*x^4).
a(n) = [x^n] ( (1+x)/(1-x-x^2) )^(3*n+1) / (3*n+1).
(End)
a(n) = 1/(3*n+1) * Sum_{i=0..n} C(3*n+i,i)*C(3*n+i+1,n-i). - Alois P. Heinz, Jul 10 2014

A245050 Number of hybrid 7-ary trees with n internal nodes.

Original entry on oeis.org

1, 2, 27, 521, 11764, 290305, 7585749, 206294771, 5778015219, 165541098701, 4828687088591, 142916854642246, 4281359716909135, 129567073833995237, 3955263087052174005, 121649279851846182073, 3766009580469162813492, 117260083892211493754415
Offset: 0

Views

Author

Alois P. Heinz, Jul 10 2014

Keywords

Crossrefs

Column k=7 of A245049.

Programs

  • Maple
    a:= n-> add(binomial(6*n+i, i)*binomial(6*n+i+1, n-i), i=0..n)/(6*n+1):
    seq(a(n), n=0..20);

Formula

a(n) = 1/(6*n+1) * Sum_{i=0..n} C(6*n+i,i)*C(6*n+i+1,n-i).
a(n) = [x^n] ((1+x)/(1-x-x^2))^(6*n+1) / (6*n+1).
G.f. satisfies: A(x) = (1+x*A(x)^6) * (1+x*A(x)^7).

A245051 Number of hybrid 8-ary trees with n internal nodes.

Original entry on oeis.org

1, 2, 31, 691, 18054, 515892, 15615159, 492007235, 15968172965, 530169356965, 17922457144129, 614796956579459, 21346411113410148, 748762981653051898, 26493592534823331169, 944491728494004127029, 33892155096781949014406, 1223212951343094980654244
Offset: 0

Views

Author

Alois P. Heinz, Jul 10 2014

Keywords

Crossrefs

Column k=8 of A245049.

Programs

  • Maple
    a:= n-> add(binomial(7*n+i, i)*binomial(7*n+i+1, n-i), i=0..n)/(7*n+1):
    seq(a(n), n=0..20);

Formula

a(n) = 1/(7*n+1) * Sum_{i=0..n} C(7*n+i,i)*C(7*n+i+1,n-i).
a(n) = [x^n] ((1+x)/(1-x-x^2))^(7*n+1) / (7*n+1).
G.f. satisfies: A(x) = (1+x*A(x)^7) * (1+x*A(x)^8).

A245052 Number of hybrid 9-ary trees with n internal nodes.

Original entry on oeis.org

1, 2, 35, 885, 26264, 852909, 29347189, 1051325430, 38798085127, 1464834251301, 56313293080748, 2196846557946047, 86747889084025665, 3460614563468144968, 139261626165295942419, 5646457490910228197571, 230445856010164690649448, 9459481451214159977362615
Offset: 0

Views

Author

Alois P. Heinz, Jul 10 2014

Keywords

Crossrefs

Column k=9 of A245049.

Programs

  • Maple
    a:= n-> add(binomial(8*n+i, i)*binomial(8*n+i+1, n-i), i=0..n)/(8*n+1):
    seq(a(n), n=0..20);

Formula

a(n) = 1/(8*n+1) * Sum_{i=0..n} C(8*n+i,i)*C(8*n+i+1,n-i).
a(n) = [x^n] ((1+x)/(1-x-x^2))^(8*n+1) / (8*n+1).
G.f. satisfies: A(x) = (1+x*A(x)^8) * (1+x*A(x)^9).

A245053 Number of hybrid 10-ary trees with n internal nodes.

Original entry on oeis.org

1, 2, 39, 1103, 36650, 1333156, 51392991, 2062946770, 85311756697, 3609589528430, 155513170273468, 6799151325525095, 300899538364069838, 13453346159391591392, 606776046327452415295, 27573839101542183831805, 1261298294289947726165466, 58029238642196850552991302
Offset: 0

Views

Author

Alois P. Heinz, Jul 10 2014

Keywords

Crossrefs

Column k=10 of A245049.

Programs

  • Maple
    a:= n-> add(binomial(9*n+i, i)*binomial(9*n+i+1, n-i), i=0..n)/(9*n+1):
    seq(a(n), n=0..20);

Formula

a(n) = 1/(9*n+1) * Sum_{i=0..n} C(9*n+i,i)*C(9*n+i+1,n-i).
a(n) = [x^n] ((1+x)/(1-x-x^2))^(9*n+1) / (9*n+1).
G.f. satisfies: A(x) = (1+x*A(x)^9) * (1+x*A(x)^10).

A245054 Number of hybrid (n+1)-ary trees with n internal nodes.

Original entry on oeis.org

1, 2, 11, 155, 3920, 148348, 7585749, 492007235, 38798085127, 3609589528430, 387451906370509, 47166300422957938, 6423902286587614629, 968148639856266236900, 159999832729471473179245, 28775750341340155354161817, 5595702924360902427922341048
Offset: 0

Views

Author

Alois P. Heinz, Jul 10 2014

Keywords

Crossrefs

Main diagonal of A245049.

Programs

  • Maple
    a:= n-> add(binomial(n^2+i, i)*binomial(n^2+i+1, n-i), i=0..n)/(n^2+1):
    seq(a(n), n=0..20);
  • Mathematica
    Table[Sum[Binomial[n^2+i,i]*Binomial[n^2+i+1, n-i], {i,0,n}]/(n^2+1),{n,0,20}] (* Vaclav Kotesovec, Jul 11 2014 *)

Formula

a(n) = 1/(n^2+1) * Sum_{i=0..n} C(n^2+i,i) * C(n^2+i+1,n-i).
a(n) = [x^n] ((1+x)/(1-x-x^2))^(n^2+1) / (n^2+1).
a(n) = A245049(n,n+1).
a(n) ~ 2^(n-1/2) * exp(n+1/4) * n^(n-5/2) / sqrt(Pi). - Vaclav Kotesovec, Jul 11 2014
Showing 1-10 of 10 results.