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-3 of 3 results.

A003168 Number of blobs with 2n+1 edges.

Original entry on oeis.org

1, 1, 4, 21, 126, 818, 5594, 39693, 289510, 2157150, 16348960, 125642146, 976789620, 7668465964, 60708178054, 484093913917, 3884724864390, 31348290348086, 254225828706248, 2070856216759478, 16936016649259364
Offset: 0

Views

Author

Keywords

Comments

a(n) is the number of ways to dissect a convex (2n+2)-gon with non-crossing diagonals so that no (2m+1)-gons (m>0) appear. - Len Smiley
a(n) is the number of plane trees with 2n+1 leaves and all non-leaves having an odd number > 1 of children. - Jordan Tirrell, Jun 09 2017
a(n) is the number of noncrossing cacti with n+1 nodes. See A361242. - Andrew Howroyd, Mar 07 2023

Examples

			a(2)=4 because we may place exactly one diagonal in 3 ways (forming 2 quadrilaterals), or not place any (leaving 1 hexagon).
		

References

  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Cf. A049124 (no 2m-gons).
Row sums of A102537, A243662. Column 2 of A336573.

Programs

  • Haskell
    import Data.List (transpose)
    a003168 0 = 1
    a003168 n = sum (zipWith (*)
       (tail $ a007318_tabl !! n)
       ((transpose $ take (3*n+1) a007318_tabl) !! (2*n+1)))
       `div` fromIntegral n
    -- Reinhard Zumkeller, Oct 27 2013
  • Maple
    Order := 40; solve(series((A-2*A^3)/(1-A^2),A)=x,A);
    A003168 := n -> `if`(n=0,1,A100327(n)/2): seq(A003168(n),n=0..20); # Peter Luschny, Jun 10 2017
  • Mathematica
    a[0] = 1; a[n_] = (2^(-n-1)*(3n)!* Hypergeometric2F1[-1-2n, -2n, -3n, -1])/((2n+1)* n!*(2n)!); Table[a[n], {n, 0, 20}] (* Jean-François Alcover, Jul 25 2011, after Vladimir Kruchinin *)
  • PARI
    a(n)=if(n<0,0,polcoeff(serreverse((x-2*x^3)/(1-x^2)+O(x^(2*n+2))),2*n+1))
    
  • PARI
    {a(n)=local(A=1+x+x*O(x^n));for(i=1,n,A=(1+x*A)/(1-x*A)^2); sum(k=0,n,polcoeff(A^(n-k),k))} \\ Paul D. Hanna, Nov 17 2004
    
  • PARI
    seq(n) = Vec( 1 + serreverse(x/((1+2*x)*(1+x)^2) + O(x*x^n)) ) \\ Andrew Howroyd, Mar 07 2023
    

Formula

a(n) = Sum_{k=1..n} binomial(n, k)*binomial(2*n+k, k-1)/n.
G.f.: A(x) = Sum_{n>=0} a(n)*x^(2*n+1) satisfies (A-2*A^3)/(1-A^2)=x. - Len Smiley.
D-finite with recurrence 4*n*(2*n + 1)*(17*n - 22)*a(n) = (1207*n^3 - 2769*n^2 + 1850*n - 360)*a(n - 1) - 2*(17*n - 5)*(n - 2)*(2*n - 3)*a(n - 2). - Vladeta Jovovic, Jul 16 2004
G.f.: A(x) = 1/(1-G003169(x)) where G003169(x) is the g.f. of A003169. - Paul D. Hanna, Nov 17 2004
a(n) = JacobiP(n-1,1,n+1,3)/n for n > 0. - Mark van Hoeij, Jun 02 2010
a(n) = (1/(2*n+1))*Sum_{j=0..n} (-1)^j*2^(n-j)*binomial(2*n+1,j)*binomial(3*n-j,2*n). - Vladimir Kruchinin, Dec 24 2010
From Gary W. Adamson, Jul 08 2011: (Start)
a(n) = upper left term in M^n, M = the production matrix:
1, 1
3, 3, 1
5, 5, 3, 1
7, 7, 5, 3, 1
9, 9, 7, 5, 3, 1
... (End)
a(n) ~ sqrt(14+66/sqrt(17)) * (71+17*sqrt(17))^n / (sqrt(Pi) * n^(3/2) * 2^(4*n+4)). - Vaclav Kotesovec, Jul 01 2015
From Peter Bala, Oct 05 2015: (Start)
a(n) = (1/n) * Sum_{i = 0..n} 2^(n-i-1)*binomial(2*n,i)* binomial(n,i+1).
O.g.f. = 1 + series reversion( x/((1 + 2*x)*(1 + x)^2) ).
Logarithmically differentiating the modified g.f. 1 + 4*x + 21*x^2 + 126*x^3 + 818*x^4 + ... gives the o.g.f. for A114496, apart from the initial term. (End)
G.f.: A(x) satisfies A = 1 + x*A^3/(1-x*A^2). - Jordan Tirrell, Jun 09 2017
a(n) = A100327(n)/2 for n>=1. - Peter Luschny, Jun 10 2017

A102537 Triangle T(n,k) read by rows: (1/n) * C(2n+k,k-1) * C(n,k); n, k >= 1.

Original entry on oeis.org

1, 1, 3, 1, 8, 12, 1, 15, 55, 55, 1, 24, 156, 364, 273, 1, 35, 350, 1400, 2380, 1428, 1, 48, 680, 4080, 11628, 15504, 7752, 1, 63, 1197, 9975, 41895, 92169, 100947, 43263, 1, 80, 1960, 21560, 123970, 396704, 708400, 657800, 246675, 1, 99, 3036, 42504
Offset: 1

Views

Author

Ralf Stephan, Jan 14 2005

Keywords

Comments

Number of dissections of a convex (2n+2)-gon by k-1 noncrossing diagonals into (2j+2)-gons, 1 <= j <= n-1.
Apparently, a signed, refined version of this array is given on page 65 of the Einziger link, related to the antipode of a Hopf algebra. - Tom Copeland, May 19 2015
The f-vectors of the simplicial noncrossing hypertree complexes of McCammond (p. 15). The reduced Euler characteristics are the signed Catalan numbers A000108. - Tom Copeland, May 19 2017
The rows seem to give (up to sign) the coefficients in the expansion of the integer-valued polynomial ((x+1)*(x+2)*...*(x+2n+1))*((x+n+2)*(x+n+3)*...*(x+2n)) / ((2n+1)!*(n)!) in the basis made of the binomial(x+i,i). - F. Chapoton, Nov 01 2022
Chapoton's observation above is correct: the precise expansion is ((x+1)*(x+2)*...*(x+2n+1))*((x+n+2)*(x+n+3)*...*(x+2n)) / ((2n+1)!*n!) = Sum_{k = 1..n} (-1)^(k+1)*T(n,n+1-k)*binomial(x+3*n+1-k, 3*n+1-k), as can be verified using the WZ algorithm. For example, n = 3 gives (x+1)*(x+2)*(x+3)*(x+4)*(x+5)*(x+6)*(x+7)*(x+5)(x+6)/(7!*3!) = 12*binomial(x+9,9) - 8*binomial(x+8,8) + binomial(x+7,7). - Peter Bala, Jun 25 2023

Examples

			Triangle begins
  1;
  1,  3;
  1,  8,   12;
  1, 15,   55,    55;
  1, 24,  156,   364,    273;
  1, 35,  350,  1400,   2380,   1428;
  1, 48,  680,  4080,  11628,  15504,   7752;
  1, 63, 1197,  9975,  41895,  92169, 100947,  43263;
  1, 80, 1960, 21560, 123970, 396704, 708400, 657800, 246675;
		

Crossrefs

Left-hand columns include A005563. Right-hand columns include essentially A001764 and A013698.
Row sums are in A003168.
Cf. A243662 for rows reversed.

Programs

  • Magma
    [[1/n * Binomial(2*n+k,k-1) * Binomial(n,k): k in [1..n]]: n in [1.. 15]]; // Vincenzo Librandi, May 20 2015
  • Mathematica
    Table[1/n*Binomial[2 n + k, k - 1] Binomial[n, k], {n, 10}, {k, n}] // Flatten (* Michael De Vlieger, May 20 2017 *)

A243663 Triangle read by rows: the reversed x = 1+q Narayana triangle at m=3.

Original entry on oeis.org

1, 4, 1, 22, 11, 1, 140, 105, 21, 1, 969, 969, 306, 34, 1, 7084, 8855, 3850, 700, 50, 1, 53820, 80730, 44850, 11500, 1380, 69, 1, 420732, 736281, 498771, 166257, 28665, 2457, 91, 1, 3362260, 6724520, 5379616, 2215136, 503440, 62930, 4060, 116, 1
Offset: 1

Views

Author

N. J. A. Sloane, Jun 13 2014

Keywords

Comments

See Novelli-Thibon (2014) for precise definition.

Examples

			Triangle begins:
     1
     4,    1
    22,   11,    1
   140,  105,   21,   1
   969,  969,  306,  34,  1
  7084, 8855, 3850, 700, 50, 1
  ...
		

Crossrefs

Cf. A001263, A243662 (m=2).

Programs

  • Mathematica
    T[m_][n_, k_] := Binomial[(m + 1) n + 1 - k, n - k] Binomial[n, k - 1]/n;
    Table[T[3][n, k], {n, 1, 9}, {k, 1, n}] // Flatten (* Jean-François Alcover, Feb 12 2019 *)

Formula

T(n,k) = binomial(4*n+1-k,n-k) * binomial(n,k-1) / n for 1 <= k <= n, more generally: T_m(n,k) = binomial((m+1)*n+1-k,n-k) * binomial(n,k-1) / n for 1 <= k <= n and some fixed integer m > 1. - Werner Schulte, Nov 22 2018

Extensions

More terms from Werner Schulte, Nov 22 2018
Showing 1-3 of 3 results.