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

A002293 Number of dissections of a polygon: binomial(4*n, n)/(3*n + 1).

Original entry on oeis.org

1, 1, 4, 22, 140, 969, 7084, 53820, 420732, 3362260, 27343888, 225568798, 1882933364, 15875338990, 134993766600, 1156393243320, 9969937491420, 86445222719724, 753310723010608, 6594154339031800, 57956002331347120, 511238042454541545
Offset: 0

Views

Author

Keywords

Comments

The number of rooted loopless n-edge maps in the plane (planar with a distinguished outside face). - Valery A. Liskovets, Mar 17 2005
Number of lattice paths from (1,0) to (3*n+1,n) which, starting from (1,0), only utilize the steps +(1,0) and +(0,1) and additionally, the paths lie completely below the line y = (1/3)*x (i.e., if (a,b) is in the path, then b < a/3). - Joseph Cooper (jecooper(AT)mit.edu), Feb 07 2006
Number of length-n restricted growth strings (RGS) [s(0), s(1), ..., s(n-1)] where s(0) = 0 and s(k) <= s(k-1) + 3, see fxtbook link below. - Joerg Arndt, Apr 08 2011
From Wolfdieter Lang, Sep 14 2007: (Start)
a(n), n >= 1, enumerates quartic trees (rooted, ordered, incomplete) with n vertices (including the root).
Pfaff-Fuss-Catalan sequence C^{m}_n for m = 4. See the Graham et al. reference, p. 347. eq. 7.66. (Second edition, p. 361, eq. 7.67.) See also the Pólya-Szegő reference.
Also 4-Raney sequence. See the Graham et al. reference, pp. 346-347.
(End)
Bacher: "We describe the statistics of checkerboard triangulations obtained by coloring black every other triangle in triangulations of convex polygons." The current sequence (A002293) occurs on p. 12 as one of two "extremal sequences" of an array of coefficients of polynomials, whose generating functions are given in terms of hypergeometric functions. - Jonathan Vos Post, Oct 05 2007
A generating function in terms of a (labyrinthine) solution to a depressed quartic equation is given in the Copeland link for signed A005810. With D(z,t) that g.f., a g.f. for signed A002293 is {[-1+1/D(z,t)]/(4t)}^(1/3). - Tom Copeland, Oct 10 2012
For a relation to the inviscid Burgers's equation, see A001764. - Tom Copeland, Feb 15 2014
For relations to compositional inversion, the Legendre transform, and convex geometry, see the Copeland, the Schuetz and Whieldon, and the Gross (p. 58) links. - Tom Copeland, Feb 21 2017 (See also Gross et al. in A062994. - Tom Copeland, Dec 24 2019)
This is the number of A'Campo bicolored forests of degree n and co-dimension 0. This can be shown using generating functions or a combinatorial approach. See Combe and Jugé link below. - Noemie Combe, Feb 28 2017
Conjecturally, a(n) is the number of 3-uniform words over the alphabet [n] that avoid the patterns 231 and 221 (see the Defant and Kravitz link). - Colin Defant, Sep 26 2018
The compositional inverse o.g.f. pair in Copeland's comment above are related to a pair of quantum fields in Balduf's thesis by Theorem 4.2 on p. 92. Cf. A001764. - Tom Copeland, Dec 13 2019
a(n) is the total number of down steps before the first up step in all 3_1-Dyck paths of length 4*n. A 3_1-Dyck path is a lattice path with steps (1, 3), (1, -1) that starts and ends at y = 0 and stays above the line y = -1. - Sarah Selkirk, May 10 2020
a(n) is the number of pairs (A<=B) of noncrossing partitions of [2n] such that every block of A has exactly two elements. In fact, it is proved that a(n) is the number of planar tied arc diagrams with n arcs (see Aicardi link below). A planar diagram with n arcs represents a noncrossing partition A of [2n] with n blocks, each block containing the endpoints of one arc; each tie connects two arcs, so that the ties define a partition B >= A: the endpoints of two arcs connected by a tie belong to the same block of B. Ties do not cross arcs nor other ties iff B has a planar diagram, i.e., B is a noncrossing partition. - Francesca Aicardi, Nov 07 2022
Dropping the initial 1 (starting 1, 4, 22 with offset 1) yields the REVERT transformation 1, -4 ,10, -20, 35.. essentially A000292 without leading 0. - R. J. Mathar, Aug 17 2023
Number of rooted polyominoes composed of n pentagonal cells of the hyperbolic regular tiling with Schläfli symbol {5,oo}. A rooted polyomino has one external edge identified, and chiral pairs are counted as two. A stereographic projection of the {5,oo} tiling on the Poincaré disk can be obtained via the Christensson link. - Robert A. Russell, Jan 27 2024
This is instance k = 4 of the generalized Catalan family {C(k, n)}A130564.%20-%20_Wolfdieter%20Lang">{n>=0} given in a comment of A130564. - _Wolfdieter Lang, Feb 05 2024
a(n) is the cardinality of the planar ramified Jones monoid PR(J_n). - Diego Arcis, Nov 21 2024

Examples

			There are a(2) = 4 quartic trees (vertex degree <= 4 and 4 possible branchings) with 2 vertices (one of them the root). Adding one more branch (one more vertex) to these four trees yields 4*4 + 6 = 22 = a(3) such trees.
		

References

  • Miklos Bona, editor, Handbook of Enumerative Combinatorics, CRC Press, 2015, page 23.
  • R. L. Graham, D. E. Knuth and O. Patashnik, Concrete Mathematics. Addison-Wesley, Reading, MA, 1990, pp. 200, 347.
  • Peter Hilton and Jean Pedersen, Catalan numbers, their generalization, and their uses, Math. Intelligencer 13 (1991), no. 2, 64-75.
  • V. A. Liskovets and T. R. Walsh, Enumeration of unrooted maps on the plane, Rapport technique, UQAM, No. 2005-01, Montreal, Canada, 2005.
  • G. Pólya and G. Szegő, Problems and Theorems in Analysis, Springer-Verlag, Heidelberg, New York, 2 vols., 1972, Vol. 1, problem 211, p. 146 with solution on p. 348.
  • N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Column k=3 of triangle A062993 and A070914.
Cf. A000260, A002295, A002296, A027836, A062994, A346646 (binomial transform), A346664 (inverse binomial transform).
Polyominoes: A005038 (oriented), A005040 (unoriented), A369471 (chiral), A369472 (achiral), A001764 {4,oo}, A002294 {6,oo}.
Cf. A130564 (for generalized Catalan C(k, n), for = 4).

Programs

  • GAP
    List([0..22],n->Binomial(4*n,n)/(3*n+1)); # Muniru A Asiru, Nov 01 2018
  • Magma
    [ Binomial(4*n,n)/(3*n+1): n in [0..50]]; // Vincenzo Librandi, Apr 19 2011
    
  • Maple
    series(RootOf(g = 1+x*g^4, g),x=0,20); # Mark van Hoeij, Nov 10 2011
    seq(binomial(4*n, n)/(3*n+1),n=0..20); # Robert FERREOL, Apr 02 2015
    # Using the integral representation above:
    Digits:=6;
    R:=proc(x)((I + sqrt(3))*(4*sqrt(256 - 27*x) - 12*I*sqrt(3)*sqrt(x))^(1/3))/16 - ((I - sqrt(3))*(4*sqrt(256 - 27*x) + 12*I*sqrt(3)*sqrt(x))^(1/3))/16;end;
    W:=proc(x) x^(-3/4) * sqrt(4*R(x) - 3^(3/4)*x^(1/4)/sqrt(R(x)))/(2*3^(1/4)*Pi);end;
    # Attention: W(x) is singular at x = 0. Integration is done from  a very small positive x to x = 256/27.
    # For a(8):  ... gives 420732
    evalf(int(x^8*W(x),x=0.000001..256/27));
    # Karol A. Penson, Jul 05 2024
  • Mathematica
    CoefficientList[InverseSeries[ Series[ y - y^4, {y, 0, 60}], x], x][[Range[2, 60, 3]]]
    Table[Binomial[4n,n]/(3n+1),{n,0,25}] (* Harvey P. Dale, Apr 18 2011 *)
    CoefficientList[1 + InverseSeries[Series[x/(1 + x)^4, {x, 0, 60}]], x] (* Gheorghe Coserea, Aug 12 2015 *)
    terms = 22; A[] = 0; Do[A[x] = 1 + x*A[x]^4 + O[x]^terms, terms];
    CoefficientList[A[x], x] (* Jean-François Alcover, Jan 13 2018 *)
  • PARI
    a(n)=binomial(4*n,n)/(3*n+1) /* Charles R Greathouse IV, Jun 16 2011 */
    
  • PARI
    my(x='x+O('x^33)); Vec(1 + serreverse(x/(1+x)^4)) \\ Gheorghe Coserea, Aug 12 2015
    
  • Python
    A002293_list, x = [1], 1
    for n in range(100):
        x = x*4*(4*n+3)*(4*n+2)*(4*n+1)//((3*n+2)*(3*n+3)*(3*n+4))
        A002293_list.append(x) # Chai Wah Wu, Feb 19 2016
    

Formula

O.g.f. satisfies: A(x) = 1 + x*A(x)^4 = 1/(1 - x*A(x)^3).
a(n) = binomial(4*n,n-1)/n, n >= 1, a(0) = 1. From the Lagrange series of the o.g.f. A(x) with its above given implicit equation.
From Karol A. Penson, Apr 02 2010: (Start)
Integral representation as n-th Hausdorff power moment of a positive function on the interval [0, 256/27]:
a(n) = Integral_{x=0..256/27}(x^n((3/256) * sqrt(2) * sqrt(3) * ((2/27) * 3^(3/4) * 27^(1/4) * 256^(/4) * hypergeom([-1/12, 1/4, 7/12], [1/2, 3/4], (27/256)*x)/(sqrt(Pi) * x^(3/4)) - (2/27) * sqrt(2) * sqrt(27) * sqrt(256) * hypergeom([1/6, 1/2, 5/6], [3/4, 5/4], (27/256)*x)/ (sqrt(Pi) * sqrt(x)) - (1/81) * 3^(1/4) * 27^(3/4) * 256^(1/4) * hypergeom([5/12, 3/4, 13/12], [5/4, 3/2], (27/256)*x/(sqrt(Pi)*x^(1/4)))/sqrt(Pi))).
This representation is unique as it represents the solution of the Hausdorff moment problem.
O.g.f.: hypergeom([1/4, 1/2, 3/4], [2/3, 4/3], (256/27)*x);
E.g.f.: hypergeom([1/4, 1/2, 3/4], [2/3, 1, 4/3], (256/27)*x). (End)
a(n) = upper left term in M^n, M = the production matrix:
1, 1
3, 3, 1
6, 6, 3, 1
...
(where 1, 3, 6, 10, ...) is the triangular series. - Gary W. Adamson, Jul 08 2011
O.g.f. satisfies g = 1+x*g^4. If h is the series reversion of x*g, so h(x*g)=x, then (x-h(x))/x^2 is the o.g.f. of A006013. - Mark van Hoeij, Nov 10 2011
a(n) = binomial(4*n+1, n)/(4*n+1) = A062993(n+2,2). - Robert FERREOL, Apr 02 2015
a(n) = Sum_{i=0..n-1} Sum_{j=0..n-1-i} Sum_{k=0..n-1-i-j} a(i)*a(j)*a(k)*a(n-1-i-j-k) for n>=1; and a(0) = 1. - Robert FERREOL, Apr 02 2015
a(n) ~ 2^(8*n+1/2) / (sqrt(Pi) * n^(3/2) * 3^(3*n+3/2)). - Vaclav Kotesovec, Jun 03 2015
From Peter Bala, Oct 16 2015: (Start)
A(x)^2 is o.g.f. for A069271; A(x)^3 is o.g.f. for A006632;
A(x)^5 is o.g.f. for A196678; A(x)^6 is o.g.f. for A006633;
A(x)^7 is o.g.f. for A233658; A(x)^8 is o.g.f. for A233666;
A(x)^9 is o.g.f. for A006634; A(x)^10 is o.g.f. for A233667. (End)
D-finite with recurrence: a(n+1) = a(n)*4*(4*n + 3)*(4*n + 2)*(4*n + 1)/((3*n + 2)*(3*n + 3)*(3*n + 4)). - Chai Wah Wu, Feb 19 2016
E.g.f.: F([1/4, 1/2, 3/4], [2/3, 1, 4/3], 256*x/27), where F is the generalized hypergeometric function. - Stefano Spezia, Dec 27 2019
x*A'(x)/A(x) = (A(x) - 1)/(- 3*A(x) + 4) = x + 7*x^2 + 55*x^3 + 455*x^4 + ... is the o.g.f. of A224274. Cf. A001764 and A002294 - A002296. - Peter Bala, Feb 04 2022
a(n) = hypergeom([1 - n, -3*n], [2], 1). Row sums of A173020. - Peter Bala, Aug 31 2023
G.f.: t*exp(4*t*hypergeom([1, 1, 5/4, 3/2, 7/4], [4/3, 5/3, 2, 2], (256*t)/27))+1. - Karol A. Penson, Dec 20 2023
From Karol A. Penson, Jul 03 2024: (Start)
a(n) = Integral_{x=0..256/27} x^(n)*W(x)dx, n>=0, where W(x) = x^(-3/4) * sqrt(4*R(x) - 3^(3/4)*x^(1/4)/sqrt(R(x)))/(2*3^(1/4)*Pi), with R(x) = ((i + sqrt(3))*(4*sqrt(256 - 27*x) -12*i*sqrt(3*x))^(1/3))/16 - ((i - sqrt(3))*(4*sqrt(256 - 27*x) + 12*i* sqrt(3*x))^(1/3))/16, where i is the imaginary unit.
The elementary function W(x) is positive on the interval x = (0, 256/27) and is equal to the combination of hypergeometric functions in my formula from 2010; see above.
(Pi*W(x))^6 satisfies an algebraic equation of order 6, with integer polynomials as coefficients. (End)
G.f.: (Sum_{n >= 0} binomial(4*n+1, n)*x^n) / (Sum_{n >= 0} binomial(4*n, n)*x^n). - Peter Bala, Dec 14 2024
G.f. A(x) satisfies A(x) = 1/A(-x*A(x)^7). - Seiichi Manyama, Jun 16 2025

A047749 If n = 2*m then a(n) = binomial(3*m, m)/(2*m+1), if n=2*m+1 then a(n) = binomial(3*m+1, m+1)/(2*m+1).

Original entry on oeis.org

1, 1, 1, 2, 3, 7, 12, 30, 55, 143, 273, 728, 1428, 3876, 7752, 21318, 43263, 120175, 246675, 690690, 1430715, 4032015, 8414640, 23841480, 50067108, 142498692, 300830572, 859515920, 1822766520, 5225264024, 11124755664, 31983672534, 68328754959, 196947587823, 422030545335
Offset: 0

Views

Author

Keywords

Comments

Hankel transform appears to be a signed aerated version of A059492. - Paul Barry, Apr 16 2008
Row sums of inverse Riordan array (1, x*(1-x^2))^(-1). - Paul Barry, Apr 16 2008
a(n) is the number of permutations of length n avoiding 213 in the classical sense which are breadth-first search reading words of increasing unary-binary trees. For more details, see the entry for permutations avoiding 231 at A245898. - Manda Riehl, Aug 05 2014
From David Callan, Aug 22 2014: (Start)
a(n) is the number of ordered trees (A000108) with n vertices in which every non-root non-leaf vertex has exactly one leaf child (no restriction on its non-leaf children). For example, a(4) counts the 3 trees
| |
\/ \|/ \/
(End)
From Emeric Deutsch, Oct 28 2014: (Start)
a(n) is the number of symmetric ternary trees having n internal nodes.
a(n) is the number of symmetric non-crossing rooted trees having n edges.
a(n) is the number of symmetric even trees having 2n edges.
a(n) is the number of symmetric diagonally convex directed polyominoes having n diagonals.
(End)
For the above 4 items see the Deutsch-Feretic-Noy reference.
a(n) is also the number of self-dual labeled non-crossing trees with n edges. See my paper in the links section. - Nikos Apostolakis, Jun 11 2019
Number of achiral polyominoes composed of n square cells of the hyperbolic regular tiling with Schläfli symbol {4,oo}. A stereographic projection of this tiling on the Poincaré disk can be obtained via the Christensson link. An achiral polyomino is identical to its reflection. - Robert A. Russell, Jan 20 2024

Examples

			G.f. = 1 + x + x^2 + 2*x^3 + 3*x^4 + 7*x^5 + 12*x^6 + 30*x^7 + 55*x^8 + ...
		

Crossrefs

Column k=3 of A369929 and k=4 of A370062.
Cf. A006013 is the odd-indexed terms of this sequence.
Polyominoes: A005034 (oriented), A005036 (unoriented), A369315 (chiral), A385149 (asymmetric), A001764 (rooted), A208355(n-1) {3,oo}, A369472 {5,oo}.

Programs

  • Magma
    G:=Gamma; [Round((1+(-1)^n)*G(3*n/2+1)/(G(n/2+1)*Factorial(n+1)) + (1-(-1)^n)*G((3*n+1)/2)/(G((n+3)/2)*Factorial(n)))/2: n in [0..35]]; // G. C. Greubel, Jul 07 2019
    
  • Maple
    A047749 := proc(m) if m mod 2 = 1 then x := (m-1)/2; RETURN((3*x+1)!/((x+1)!*(2*x+1)!)); fi; x := m/2; RETURN((3*x)!/(x!*(2*x+1)!)); end;
    A047749 := proc(m) local x; if m mod 2 = 1 then x := (m-1)/2; RETURN((3*x+1)!/((x+1)!*(2*x+1)!)); fi; RETURN(A001764(m/2)); end;
  • Mathematica
    a[ n_] := If[ n < 1, Boole[n == 0], SeriesCoefficient[ InverseSeries[ Series[ (x + 2 x^2) / (1 + x)^3, {x, 0, n}]], {x, 0, n}]]; (* Michael Somos, Oct 29 2014 *)
    Table[If[OddQ[n],2Binomial[(3n-1)/2,(n-1)/2],Binomial[3n/2,n/2]]/(n+1),{n,0,40}] (* Robert A. Russell, Jan 19 2024 *)
  • PARI
    {a(n)=local(A=1+x);for(i=1,n,A=1+x*A^2*subst(A,x,-x+x*O(x^n)));polcoeff(A,n)} \\ Paul D. Hanna, Sep 20 2009
    
  • PARI
    x='x+O('x^66);
    C(x)=serreverse(x-x^3); /* =x+x^3+3*x^5+12*x^7+55*x^9 +..., cf. A001764 */
    s=1/(1-C(x)); /* g.f. */
    Vec(s) /* Joerg Arndt, Apr 16 2011 */
    
  • PARI
    apr(n, p, r) = r*binomial(n*p+r, n)/(n*p+r);
    a(n) = apr(n\2, 3, n%2+1); \\ Seiichi Manyama, Jul 20 2025
    
  • Python
    from math import comb
    def A047749(n): return comb(n+(a:=n>>1),a+(b:=n&1))//(n+1-b) # Chai Wah Wu, Jul 30 2022
  • Sage
    def A047749_list(n) :
        D = [0]*n; D[1] = 1
        R = []; b = False; h = 1
        for i in range(n) :
            for k in (1..h) :
                D[k] = D[k] + D[k-1]
            R.append(D[h])
            if b : h += 1
            b = not b
        return R
    A047749_list(35) # Peter Luschny, May 03 2012
    
  • Sage
    [1]+[((1+(-1)^n)*binomial(3*n/2,n/2)/(n+1) + (1-(-1)^n)* binomial((3*n-1)/2, (n+1)/2)/n)/2 for n in (1..35)] # G. C. Greubel, Jul 07 2019
    

Formula

G.f. is 1+Z, where Z satisfies x*Z^3 + (3*x-2)*Z^2 + (3*x-1)*Z + x = 0. Equivalently, the g.f. Y satisfies x*Y^3 - 2*Y^2 + 3*Y - 1 = 0. - Vladeta Jovovic, Dec 06 2002
Reversion of g.f. (x-2*x^2)/(1-x)^3 (ignoring signs). - Ralf Stephan, Mar 22 2004
G.f.: (4/(3*x))*(sin((1/3)*asin(sqrt(27*x^2/4))))^2 +(2/sqrt(3*x^2))*sin((1/3)*asin(sqrt(27*x^2/4))). - Paul Barry, Nov 08 2006
G.f.: 1/(1-2*sin(asin(3*sqrt(3)*x/2)/3)/sqrt(3)). - Paul Barry, Apr 16 2008
From Paul D. Hanna, Sep 20 2009: (Start)
G.f. satisfies: A(x) = 1 + x*A(x)^2*A(-x);
also, A(x)*A(-x) = B(x^2) where B(x) = 1 + x*B(x)^3 = g.f. of A001764. (End)
G.f.: 1/(1-C(x)) where C(x) = Reverse(x-x^3) = x + x^3 + 3*x^5 + 12*x^7 + 55*x^9 + ... (cf. A001764). - Joerg Arndt, Apr 16 2011
G.f.: G(z^2)+z*G(z^2)^2, where G(z) = 1 + z*G(z)^3, the generating function for A001764. - Robert A. Russell, Jan 26 2024
From Gary W. Adamson, Jul 14 2011: (Start)
a(n) is the upper left term in M^n, M = the infinite square production matrix:
1, 1, 0, 0, 0, 0, ...
0, 0, 1, 0, 0, 0, ...
1, 1, 0, 1, 0, 0, ...
0, 0, 1, 0, 1, 0, ...
1, 1, 0, 1, 0, 1, ...
... (End)
Conjecture D-finite with recurrence: 8*n*(n+1)*a(n) + 36*n*(n-2)*a(n-1) - 6*(9*n^2-18*n+14)*a(n-2) - 27*(3*n-7)*(3*n-8)*a(n-3) = 0. - R. J. Mathar, Dec 19 2011
0 = a(n)*(+7308954*a(n+2) - 16659999*a(n+3) - 4854519*a(n+4) + 6201838*a(n+5)) + a(n+1)*(-406053*a(n+2) - 1627560*a(n+3) + 1683538*a(n+4) - 245747*a(n+5)) + a(n+2)*(+45117*a(n+2) + 235870*a(n+3) + 173953*a(n+4) - 484295*a(n+5)) + a(n+3)*(-41820*a(n+3) - 50184*a(n+4) + 22304*a(n+5)) for all n in Z if a(-1) = -2/3. - Michael Somos, Oct 29 2014
a(0) = 1; a(n) = Sum_{i=0..n-1} Sum_{j=0..n-i-1} (-1)^i * a(i) * a(j) * a(n-i-j-1). - Ilya Gutkovskiy, Jul 28 2021
a(n) = binomial(A032766(n),floor((n+1)/2))/(2*floor(n/2)+1). - Miko Labalan, Nov 28 2023
a(n) = 2*A005036(n) - A005034(n) = A005034(n) - 2*A369315(n) = A005036(n) - A369315(n). - Robert A. Russell, Jan 20 2024
From Robert A. Russell, Mar 20 2024: (Start)
a(n) = U(n) in the Beineke and Pippert link.
G.f.: E(1)(t*E(3)(t^2)) (second entry in Table 1), where E(d)(t) is defined in formula 3 of Hering link. (End)
From Robert A. Russell, Jul 15 2024: (Start)
a(2m) = A001764(m) ~ (3^3/2^2)^m*sqrt(3/(2*Pi*(2*m)^3)).
a(n+2)/a(n) ~ 27/4; a(2m+1)/a(2m) ~ 3; a(2m)/a(2m-1) ~ 9/4. (End)
a(n) ~ 3^((6n+3)/4)/(sqrt(Pi)*2^((2n-1)/2)*(2n+1)^(3/2)). - Miko Labalan, Dec 05 2024
a(0) = 1; a(n) = Sum_{k=0..floor((n-1)/2)} a(2*k) * a(n-1-2*k). - Seiichi Manyama, Jul 07 2025

A143546 G.f. A(x) satisfies A(x) = 1 + x*A(x)^3*A(-x)^2.

Original entry on oeis.org

1, 1, 1, 3, 5, 18, 35, 136, 285, 1155, 2530, 10530, 23751, 100688, 231880, 996336, 2330445, 10116873, 23950355, 104819165, 250543370, 1103722620, 2658968130, 11777187240, 28558343775, 127067830773, 309831575760, 1383914371728, 3390416787880, 15194457001440
Offset: 0

Views

Author

Paul D. Hanna, Aug 23 2008

Keywords

Comments

Number of achiral polyominoes composed of n hexagonal cells of the hyperbolic regular tiling with Schläfli symbol {6,oo}. A stereographic projection of the {6,oo} tiling on the Poincaré disk can be obtained via the Christensson link. - Robert A. Russell, Jan 23 2024
Number of achiral noncrossing partitions composed of n blocks of size 5. - Andrew Howroyd, Feb 08 2024

Examples

			G.f.: A(x) = 1 + x + x^2 + 3*x^3 + 5*x^4 + 18*x^5 + 35*x^6 + 136*x^7 + ...
A(x) = 1 + x*A(x)^3*A(-x)^2 where
A(x)^3 = 1 + 3x + 6x^2 + 16x^3 + 39x^4 + 114x^5 + 304x^6 + 936x^7 + ...
A(-x)^2 = 1 - 2x + 3x^2 - 8x^3 + 17x^4 - 52x^5 + 125x^6 - 408x^7 + ...
Also, A(x) = G(x^2) + x*G(x^2)^3 where
G(x) = 1 + x + 5*x^2 + 35*x^3 + 285*x^4 + 2530*x^5 + 23751*x^6 + ...
G(x)^3 = 1 + 3*x + 18*x^2 + 136*x^3 + 1155*x^4 + 10530*x^5 + ...
		

Crossrefs

Column k=5 of A369929 and k=6 of A370062.
Cf. A118970.
Polyominoes: A221184(n-1) (oriented), A004127 (unoriented), A369473 (chiral), A002294 (rooted), A047749 {4,oo}, A369472 {5,oo}.

Programs

  • Mathematica
    terms = 28;
    A[] = 1; Do[A[x] = 1 + x A[x]^3 A[-x]^2 + O[x]^terms // Normal, {terms}];
    CoefficientList[A[x], x] (* Jean-François Alcover, Jul 24 2018 *)
    p=6; Table[If[EvenQ[n],Binomial[(p-1)n/2,n/2]/((p-2)n/2+1),If[OddQ[p],(p-1)Binomial[(p-1)n/2-1,(n-1)/2]/((p-2)n+1),p Binomial[(p-1)n/2-1/2,(n-1)/2]/((p-2)n+2)]],{n,0,35}] (* Robert A. Russell, Jan 23 2024 *)
  • PARI
    {a(n)=my(A=1+O(x^(n+1)));for(i=0,n,A=1+x*A^3*subst(A^2,x,-x));polcoef(A,n)}
    
  • PARI
    {a(n)=my(m=n\2,p=2*(n%2)+1);binomial(5*m+p-1,m)*p/(4*m+p)}

Formula

G.f.: A(x) = G(x^2) + x*G(x^2)^3 where G(x) = 1 + x*G(x)^5 is the g.f. of A002294.
a(2n) = binomial(5*n,n)/(4*n+1); a(2n+1) = binomial(5*n+2,n)*3/(4*n+3).
From Robert A. Russell, Jan 23 2024: (Start)
a(n+2)/a(n) ~ 3125/256. a(2m+1)/a(2m) ~ 75/16; a(2m)/a(2m-1) ~ 125/48.
a(n) = 2*A004127(n) - A221184(n-1) = A221184(n-1) - 2*A369473(n) = A004127(n) - A369473(n). (End)
a(2m) = A002294(m) ~ (5^5/4^4)^m*sqrt(5/(2*Pi*(4*m)^3)). - Robert A. Russell, Jul 15 2024
From Seiichi Manyama, Jul 07 2025: (Start)
G.f. A(x) satisfies A(x)*A(-x) = (A(x) + A(-x))/2 = G(x^2), where G(x) = 1 + x*G(x)^5 is the g.f. of A002294.
a(0) = 1; a(n) = Sum_{i, j, k>=0 and i+2*j+2*k=n-1} a(i) * a(2*j) * a(2*k). (End)
a(0) = 1; a(n) = Sum_{i, j, k, l, m>=0 and i+j+k+l+m=n-1} (-1)^(i+j) * a(i) * a(j) * a(k) * a(l) * a(m). - Seiichi Manyama, Jul 08 2025

A005038 Number of nonequivalent dissections of a polygon into n pentagons by nonintersecting diagonals up to rotation.

Original entry on oeis.org

1, 1, 2, 12, 57, 366, 2340, 16252, 115940, 854981, 6444826, 49554420, 387203390, 3068067060, 24604111560, 199398960212, 1631041938108, 13451978877748, 111765327780200, 934774244822704, 7865200653146905
Offset: 1

Views

Author

Keywords

Comments

Also, with a different offset, number of colored quivers in the 3-mutation class of a quiver of Dynkin type A_n. - N. J. A. Sloane, Jan 22 2013
Number of oriented polyominoes composed of n pentagonal cells of the hyperbolic regular tiling with Schläfli symbol {5,oo}. A stereographic projection of this tiling on the Poincaré disk can be obtained via the Christensson link. For oriented polyominoes, chiral pairs are counted as two. - Robert A. Russell, Jan 23 2024

References

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

Crossrefs

Column k=5 of A295224.
Polyominoes: A005040 (unoriented), A369471 (chiral), A369472 (achiral), A001683(n+2) {3,oo}, A005034 {4,oo}, A221184{n-1} {6,oo}.

Programs

  • Mathematica
    p=5; Table[Binomial[(p-1)n, n]/(((p-2)n+1)((p-2)n+2)) +If[OddQ[n], 0, Binomial[(p-1)n/2, n/2]/((p-2)n+2)]+Plus @@ Map[EulerPhi[ # ]Binomial[((p-1)n+1)/#, (n-1)/# ]/((p-1)n+1)&, Complement[Divisors[GCD[p, n-1]], {1}]], {n, 1, 20}] (* Robert A. Russell, Dec 11 2004 *)

Formula

a(n) ~ 2^(8*n + 1/2) / (sqrt(Pi) * n^(5/2) * 3^(3*n + 5/2)). - Vaclav Kotesovec, Mar 13 2016
a(n) = A005040(n) + A369471(n) = 2*A005040(n) - A369472(n) = 2*A369471(n) + A369472(n). - Robert A. Russell, Jan 23 2024

Extensions

a(21) corrected by Sean A. Irvine, Mar 11 2016
Name edited by Andrew Howroyd, Nov 20 2017

A005040 Number of nonequivalent dissections of a polygon into n pentagons by nonintersecting diagonals up to rotation and reflection.

Original entry on oeis.org

1, 1, 2, 8, 33, 194, 1196, 8196, 58140, 427975, 3223610, 24780752, 193610550, 1534060440, 12302123640, 99699690472, 815521503060, 6725991120004, 55882668179880, 467387136083296, 3932600361607809, 33269692212847056, 282863689410850236, 2415930985594609548
Offset: 1

Views

Author

Keywords

Comments

Number of unoriented polyominoes composed of n pentagonal cells of the hyperbolic regular tiling with Schläfli symbol {5,oo}. A stereographic projection of this tiling on the Poincaré disk can be obtained via the Christensson link. For unoriented polyominoes, chiral pairs are counted as one. - Robert A. Russell, Jan 23 2024

References

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

Crossrefs

Column k=5 of A295260.
Polyominoes: A005038 (oriented), A369471 (chiral), A369472 (achiral), A000207 {3,oo}, A005036 {4,oo}, A004127 {6,oo}, A005419 {7,oo}.

Programs

  • Mathematica
    p=5; Table[(Binomial[(p-1)n, n]/(((p-2)n+1)((p-2)n+2)) + If[OddQ[n], If[OddQ[p], Binomial[(p-1)n/2, (n-1)/2]/n, (p+1)Binomial[((p-1)n-1)/2, (n-1)/2]/((p-2)n+2)], 3Binomial[(p-1)n/2, n/2]/((p-2)n+2)]+Plus @@ Map[EulerPhi[ # ]Binomial[((p-1)n+1)/#, (n-1)/# ]/((p-1)n+1)&, Complement[Divisors[GCD[p, n-1]], {1, 2}]])/2, {n, 1, 20}] (* Robert A. Russell, Dec 11 2004 *)

Formula

See Mathematica code.
a(n) ~ 2^(8*n - 1/2) / (sqrt(Pi) * n^(5/2) * 3^(3*n + 5/2)). - Vaclav Kotesovec, Mar 13 2016
a(n) = A005038(n) - A369471(n) = (A005038(n) + A369472(n)) / 2 = A369471(n) + A369472(n). - Robert A. Russell, Jan 23 2024

Extensions

More terms from Sascha Kurz, Oct 13 2001.
Name edited by Andrew Howroyd, Nov 20 2017.

A370062 Array read by antidiagonals: T(n,k) is the number of achiral dissections of a polygon into n k-gons by nonintersecting diagonals, n >= 1, k >= 3.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 2, 3, 2, 1, 1, 3, 4, 7, 5, 1, 1, 3, 5, 9, 12, 5, 1, 1, 4, 6, 18, 22, 30, 14, 1, 1, 4, 7, 21, 35, 52, 55, 14, 1, 1, 5, 8, 34, 51, 136, 140, 143, 42, 1, 1, 5, 9, 38, 70, 190, 285, 340, 273, 42, 1, 1, 6, 10, 55, 92, 368, 506, 1155, 969, 728, 132
Offset: 1

Views

Author

Andrew Howroyd, Feb 08 2024

Keywords

Comments

The polygon prior to dissection will have n*(k-2)+2 sides.

Examples

			Array begins:
=============================================
n\k|  3   4   5    6    7    8    9    10 ...
---+-----------------------------------------
1  |  1   1   1    1    1    1    1     1 ...
2  |  1   1   1    1    1    1    1     1 ...
3  |  1   2   2    3    3    4    4     5 ...
4  |  2   3   4    5    6    7    8     9 ...
5  |  2   7   9   18   21   34   38    55 ...
6  |  5  12  22   35   51   70   92   117 ...
7  |  5  30  52  136  190  368  468   775 ...
8  | 14  55 140  285  506  819 1240  1785 ...
9  | 14 143 340 1155 1950 4495 6545 12350 ...
  ...
		

Crossrefs

Columns are A208355(n-1), A047749 (k=4), A369472 (k=5), A143546 (k=6), A143547 (k=8), A143554 (k=10), A192893 (k=12).
Cf. A070914 (rooted), A295224 (oriented), A295260 (unoriented), A369929, A370060 (achiral rooted at cell).

Programs

  • PARI
    \\ here u is Fuss-Catalan sequence with p = k-1.
    u(n, k, r) = {r*binomial((k - 1)*n + r, n)/((k - 1)*n + r)}
    T(n, k) = {(if(n%2, u((n-1)/2, k, k\2), if(k%2, u(n/2-1, k, k-1), u(n/2, k, 1))))}
    for(n=1, 9, for(k=3, 10, print1(T(n, k), ", ")); print);

Formula

T(n,k) = 2*A295260(n,k) - A295224(n,k).
T(n,2*k+1) = A370060(n,2*k+1).
T(n,2*k) = A369929(n,2*k-1).

A369471 Number of chiral pairs of polyominoes composed of n pentagonal cells of the hyperbolic regular tiling with Schläfli symbol {5,oo}.

Original entry on oeis.org

4, 24, 172, 1144, 8056, 57800, 427006, 3221216, 24773668, 193592840, 1534006620, 12301987920, 99699269740, 815520435048, 6725987757744, 55882659600320, 467387108739408, 3932600291539096, 33269691987278258, 282863688830816184
Offset: 4

Views

Author

Robert A. Russell, Jan 23 2024

Keywords

Comments

A stereographic projection of the {5,oo} tiling on the Poincaré disk can be obtained via the Christensson link. Each member of a chiral pair is a reflection but not a rotation of the other.

Crossrefs

Polyominoes: A005038 (oriented), A005040 (unoriented), A369472 (achiral), A369315 {4,oo}.

Programs

  • Mathematica
    p=5; Table[(Binomial[(p-1)n, n]/(((p-2)n+1)((p-2)n+2))-If[OddQ[n], If[OddQ[p], Binomial[(p-1)n/2, (n-1)/2]/n, (p+1)Binomial[((p-1)n-1)/2, (n-1)/2]/((p-2)n+2)-Binomial[((p-1)n+1)/2, (n-1)/2]/((p-1)n+1)], Binomial[(p-1)n/2, n/2]/((p-2)n+2)]+DivisorSum[GCD[p, n-1], EulerPhi[#]Binomial[((p-1)n+1)/#, (n-1)/#]/((p-1)n+1)&, #>1&])/2, {n, 4, 30}]

Formula

a(n) = A005038(n) - A005040(n) = (A005038(n) - A369472(n)) / 2 = A005040(n) - A369472(n).

A370060 Array read by antidiagonals: T(n,k) is the number of achiral dissections of a polygon into n k-gons by nonintersecting diagonals rooted at a cell, n >= 1, k >= 3.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 3, 2, 1, 1, 2, 4, 2, 1, 1, 4, 4, 12, 5, 1, 1, 3, 6, 9, 18, 5, 1, 1, 5, 6, 26, 22, 55, 14, 1, 1, 4, 8, 21, 45, 52, 88, 14, 1, 1, 6, 8, 45, 51, 204, 140, 273, 42, 1, 1, 5, 10, 38, 84, 190, 380, 340, 455, 42, 1, 1, 7, 10, 69, 92, 500, 506, 1771, 969, 1428, 132
Offset: 1

Views

Author

Andrew Howroyd, Feb 08 2024

Keywords

Comments

The polygon prior to dissection will have n*(k-2)+2 sides.

Examples

			Array begins:
=============================================
n\k|  3   4   5    6    7    8    9    10 ...
---+-----------------------------------------
1  |  1   1   1    1    1    1    1     1 ...
2  |  1   1   1    1    1    1    1     1 ...
3  |  1   3   2    4    3    5    4     6 ...
4  |  2   4   4    6    6    8    8    10 ...
5  |  2  12   9   26   21   45   38    69 ...
6  |  5  18  22   45   51   84   92   135 ...
7  |  5  55  52  204  190  500  468   992 ...
8  | 14  88 140  380  506 1008 1240  2100 ...
9  | 14 273 340 1771 1950 6200 6545 15990 ...
  ...
		

Crossrefs

Columns k=3..6 are A208355(n-1), A124817(n-1), A369472, A370061.
Cf. A070914 (rooted), A295222 (oriented), A295259 (unoriented), A369929, A370062 (achiral unrooted).

Programs

  • PARI
    \\ here u is Fuss-Catalan sequence with p = k-1.
    u(n, k, r) = {r*binomial((k - 1)*n + r, n)/((k - 1)*n + r)}
    T(n, k) = {if(k%2, if(n%2, u((n-1)/2, k, (k-1)/2), u(n/2-1, k, (k-1))), if(n%2, u((n-1)/2, k, k/2+1), u(n/2-1, k, k)) )}
    for(n=1, 9, for(k=3, 10, print1(T(n, k), ", ")); print);

Formula

T(n,k) = 2*A295259(n,k) - A295222(n,k).
T(n,2*k+1) = A370062(n,2*k+1).
Showing 1-8 of 8 results.