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 18 results. Next

A002294 a(n) = binomial(5*n, n)/(4*n + 1).

Original entry on oeis.org

1, 1, 5, 35, 285, 2530, 23751, 231880, 2330445, 23950355, 250543370, 2658968130, 28558343775, 309831575760, 3390416787880, 37377257159280, 414741863546285, 4628362722856425, 51912988256282175, 584909606696793885, 6617078646960613370
Offset: 0

Views

Author

Keywords

Comments

From Wolfdieter Lang, Sep 14 2007: (Start)
a(n), n >= 1, enumerates quintic trees (rooted, ordered, incomplete) with n vertices (including the root).
This is the Pfaff-Fuss-Catalan sequence C^{m}_n for m = 5. See the Graham et al. reference, p. 347. eq. 7.66. See also the Pólya-Szegő reference.
Also 5-Raney sequence. See the Graham et al. reference, pp. 346-347. (End)
a(n) = A258708(3*n, 2*n) for n > 0. - Reinhard Zumkeller, Jun 23 2015
Conjecturally, a(n) is the number of 4-uniform words on the alphabet [n] that avoid the patterns 231 and 221 (see the Defant and Kravitz link). - Colin Defant, Sep 26 2018
From Stillwell (1995), p. 62: "Eisenstein's Theorem. If y^5 + y = x, then y has a power series expansion y = x - x^5 + 10*x^9/2^1 - 15 * 14 * x^13/3! + 20 * 19 * 18*x^17/4! - ...." - Michael Somos, Sep 19 2019
a(n) is the total number of down steps before the first up step in all 4_1-Dyck paths of length 5*n. A 4_1-Dyck path is a lattice path with steps (1, 4), (1, -1) that starts and ends at y = 0 and stays above the line y = -1. - Sarah Selkirk, May 10 2020
Dropping the first 1 (starting from 1, 5, 35, ... with offset 1), the series reversion gives 1, -5, 15, -35, 70, ... (again offset 1), essentially A000332 and row 5 of A027555. - R. J. Mathar, Aug 17 2023
Number of rooted polyominoes composed of n hexagonal cells of the hyperbolic regular tiling with Schläfli symbol {6,oo}. A rooted polyomino has one external edge identified, and chiral pairs are counted as two. A stereographic projection of the {6,oo} tiling on the Poincaré disk can be obtained via the Christensson link. - Robert A. Russell, Jan 27 2024
This is instance k = 5 of the generalized Catalan family {C(k, n)}_{n>=0} given in a comment of A130564. - Wolfdieter Lang, Feb 05 2024

Examples

			There are a(2) = 5 quintic trees (vertex degree <= 5 and 5 possible branchings) with 2 vertices (one of them the root). Adding one more branch (one more vertex) to these five trees yields 5*5 + binomial(5,2) = 35 = a(3) such trees.
G.f. = 1 + x + 5*x^2 + 35*x^3 + 285*x^4 + 2530*x^5 + 23751*x^6 + 231880*x^7 + ...
G.f. = t + t^5 + 5*t^9 + 35*t^13 + 285*t^17 + 2530*t^21 + 23751*t^25 + 231880*t^29 + ...
		

References

  • Archiv der Mathematik u. Physik, Editor's note: "Über die Bestimmung der Anzahl der verschiedenen Arten, auf welche sich ein n-Eck durch Diagonalen in lauter m-Ecke zerlegen laesst, mit Bezug auf einige Abhandlungen der Herren Lame, Rodrigues, Binet, Catalan und Duhamel in dem Journal de Mathematiques pures et appliquees, publie par Joseph Liouville. T. III. IV.", Archiv der Mathematik u. Physik, 1 (1841), pp. 193ff; see especially p. 198.
  • 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.
  • 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.
  • Ulrike Sattler, Decidable classes of formal power series with nice closure properties, Diplomarbeit im Fach Informatik, Univ. Erlangen - Nürnberg, Jul 27 1994.
  • 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

Cf. A001764, A002296, A258708, A346647 (binomial transform), A346665 (inverse binomial transform).
Fourth column of triangle A062993.
Polyominoes: A221184{n-1} (oriented), A004127 (unoriented), A369473 (chiral), A143546 (achiral), A002293 {5,oo}, A002295 {7,oo}.
Cf. A130564.

Programs

  • GAP
    List([0..22],n->Binomial(5*n,n)/(4*n+1)); # Muniru A Asiru, Nov 01 2018
  • Haskell
    a002294 n = a002294_list !! n
    a002294_list = [a258708 (3 * n) (2 * n) | n <- [1..]]
    -- Reinhard Zumkeller, Jun 23 2015
    
  • Magma
    [ Binomial(5*n,n)/(4*n+1): n in [0..100]]; // Vincenzo Librandi, Mar 24 2011
    
  • Maple
    seq(binomial(5*k+1,k)/(5*k+1),k=0..30); # Robert FERREOL, Apr 03 2015
    n:=30:G:=series(RootOf(g = 1+x*g^5, g),x=0,n+1):seq(coeff(G,x,k),k=0..n); # Robert FERREOL, Apr 03 2015
  • Mathematica
    CoefficientList[InverseSeries[ Series[ y - y^5, {y, 0, 100}], x], x][[Range[2, 100, 4]]]
    Table[Binomial[5n,n]/(4n+1),{n,0,20}] (* Harvey P. Dale, Dec 30 2011 *)
    a[ n_] := SeriesCoefficient[ HypergeometricPFQ[ {1, 2, 3, 4}/5, {2, 3, 5}/4, x 5^5/4^4], {x, 0, n}]; (* Michael Somos, May 06 2015 *)
    a[ n_] := With[{m = 4 n + 1}, SeriesCoefficient[ InverseSeries @ Series[ x - x^5, {x, 0, m}], {x, 0, m}]]; (* Michael Somos, May 06 2015 *)
  • PARI
    {a(n) = binomial( 5 * n, n) / (4*n + 1)}; /* Michael Somos, Mar 17 2011 */
    
  • PARI
    {a(n) = if( n<0, 0, n = 4*n + 1; polcoeff( serreverse( x - x^5 + x * O(x^n) ), n))}; /* Michael Somos, Mar 17 2011 */
    

Formula

For the connection with the solution of the quintic, hypergeometric series, and Lagrange inversion, see Beukers (2014). - N. J. A. Sloane, Mar 12 2014
G.f.: hypergeometric([1, 2, 3, 4] / 5, [2, 3, 5] / 4, x * 5^5 / 4^4). - Michael Somos, Mar 17 2011
O.g.f. A(x) satisfies A(x) = 1 + x * A(x)^5 = 1 / (1 - x * A(x)^4).
Given g.f. A(x) then z = t * A(t^4) satisfies 0 = z^5 - z + t. - Michael Somos, Mar 17 2011
a(n) = binomial(5*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.
a(n) = upper left term in M^n, M = the production matrix:
1, 1;
4, 4, 1;
10, 10, 4, 1;
20, 20, 10, 4, 1;
...
where (1, 4, 10, 20, ...) is the tetrahedral sequence, A000292. - Gary W. Adamson, Jul 08 2011
D-finite with recurrence: 8*n*(4*n+1)*(2*n-1)*(4*n-1)*a(n) - 5*(5*n-4)*(5*n-3)*(5*n-2)*(5*n-1)*a(n-1) = 0. - R. J. Mathar, Dec 02 2014
a(n) = binomial(5*n + 1, n)/(5*n + 1) = A062993(n+3,3). - Robert FERREOL, Apr 03 2015
a(0) = 1; a(n) = Sum_{i1 + i2 + ... + i5 = n - 1} a(i1) * a(i2) * ... *a(i5) for n >= 1. - Robert FERREOL, Apr 03 2015
From Ilya Gutkovskiy, Jan 15 2017: (Start)
O.g.f.: 5F4([1/5, 2/5, 3/5, 4/5, 1]; [1/2, 3/4, 1, 5/4]; 3125*x/256).[Cancellation of the 1s, see G.f. the above. - Wolfdieter Lang, Feb 05 2024]
E.g.f.: 4F4([1/5, 2/5, 3/5, 4/5]; [1/2, 3/4, 1, 5/4]; 3125*x/256).
a(n) ~ 5^(5*n + 1/2)/(sqrt(Pi) * 2^(8*n + 7/2) * n^(3/2)). (End)
x*A'(x)/A(x) = (A(x) - 1)/(- 4*A(x) + 5) = x + 9*x^2 + 91*x^3 + 969*x^4 + ... is the o.g.f. of A163456. Cf. A001764 and A002293 - A002296. - Peter Bala, Feb 04 2022
G.f. A(x) satisfies A(x) = 1/A(-x*A(x)^9). - Seiichi Manyama, Jun 16 2025

Extensions

More terms from Olivier Gérard, Jul 05 2001

A143554 G.f. A(x) satisfies A(x) = 1 + x*A(x)^5*A(-x)^4.

Original entry on oeis.org

1, 1, 1, 5, 9, 55, 117, 775, 1785, 12350, 29799, 211876, 527085, 3818430, 9706503, 71282640, 184138713, 1366368375, 3573805950, 26735839650, 70625252863, 531838637759, 1416298046436, 10723307329700, 28748759731965, 218658647805780, 589546754316126
Offset: 0

Views

Author

Paul D. Hanna, Aug 24 2008

Keywords

Comments

Number of achiral noncrossing partitions composed of n blocks of size 9. - Andrew Howroyd, Feb 08 2024

Examples

			G.f.: A(x) = 1 + x + x^2 + 5*x^3 + 9*x^4 + 55*x^5 + 117*x^6 + 775*x^7 +...
Let G(x) = 1 + x*G(x)^9 be the g.f. of A062994, then
G(x^2) = A(x)*A(-x) and A(x) = G(x^2) + x*G(x^2)^5 where
G(x) = 1 + x + 9*x^2 + 117*x^3 + 1785*x^4 + 29799*x^5 + 527085*x^6 +...
G(x)^5 = 1 + 5*x + 55*x^2 + 775*x^3 + 12350*x^4 + 211876*x^5 +...
		

Crossrefs

Column k=9 of A369929 and k=10 of A370062.
Cf. A143338, A143546, A143547, A143550, A062994 (bisection).
Cf. A143047.

Programs

  • Mathematica
    terms = 25;
    A[] = 1; Do[A[x] = 1 + x A[x]^5 A[-x]^4 + O[x]^terms // Normal, {terms}];
    CoefficientList[A[x], x] (* Jean-François Alcover, Jul 24 2018 *)
  • PARI
    {a(n)=my(A=1+x*O(x^n));for(i=0,n,A=1+x*A^5*subst(A^4,x,-x));polcoef(A,n)}
    
  • PARI
    {a(n)=my(m=n\2,p=4*(n%2)+1);binomial(9*m+p-1,m)*p/(8*m+p)}

Formula

G.f. satisfies: A(x) = [A(x)*A(-x)] + x*[A(x)*A(-x)]^5.
G.f. satisfies: A(x)*A(-x) = (A(x) + A(-x))/2 = G(x^2) where G(x) = 1 + x*G(x)^9 is the g.f. of A062994.
a(2n) = binomial(9*n,n)/(8*n+1); a(2n+1) = binomial(9*n+4,n)*5/(8*n+5).
a(0) = 1; a(n) = Sum_{i, j, k, l, m>=0 and i+2*j+2*k+2*l+2*m=n-1} a(i) * a(2*j) * a(2*k) * a(2*l) * a(2*m). - Seiichi Manyama, Jul 07 2025
a(0) = 1; a(n) = Sum_{x_1, x_2, ..., x_9>=0 and x_1+x_2+...+x_9=n-1} (-1)^(x_1+x_2+x_3+x_4) * Product_{k=1..9} a(x_k). - Seiichi Manyama, Jul 09 2025

A143547 G.f. A(x) satisfies A(x) = 1 + x*A(x)^4*A(-x)^3.

Original entry on oeis.org

1, 1, 1, 4, 7, 34, 70, 368, 819, 4495, 10472, 59052, 141778, 814506, 1997688, 11633440, 28989675, 170574723, 430321633, 2552698720, 6503352856, 38832808586, 99726673130, 598724403680, 1547847846090, 9335085772194, 24269405074740, 146936230074004, 383846168712104
Offset: 0

Views

Author

Paul D. Hanna, Aug 23 2008

Keywords

Comments

Number of achiral noncrossing partitions composed of n blocks of size 7. - Andrew Howroyd, Feb 08 2024

Examples

			G.f.: A(x) = 1 + x + x^2 + 4*x^3 + 7*x^4 + 34*x^5 + 70*x^6 + 368*x^7 + ...
Let G(x) = 1 + x*G(x)^7 be the g.f. of A002296, then
A(x)*A(-x) = G(x^2) and A(x) = G(x^2) + x*G(x^2)^4 where
G(x) = 1 + x + 7*x^2 + 70*x^3 + 819*x^4 + 10472*x^5 + 141778*x^6 + ...
G(x)^4 = 1 + 4*x + 34*x^2 + 368*x^3 + 4495*x^4 + 59052*x^5 + ...
form the bisections of A(x).
By definition, A(x) = 1 + x*A(x)^4*A(-x)^3 where
A(x)^4 = 1 + 4*x + 10*x^2 + 32*x^3 + 95*x^4 + 332*x^5 + 1074*x^6 + ...
A(-x)^3 = 1 - 3*x + 6*x^2 - 19*x^3 + 51*x^4 - 183*x^5 + 550*x^6 -+ ...
		

Crossrefs

Column k=7 of A369929 and k=8 of A370062.
Cf. A002296 (bisection), A143546.

Programs

  • Mathematica
    terms = 26;
    A[] = 1; Do[A[x] = 1 + x A[x]^4 A[-x]^3 + O[x]^terms // Normal, {terms}];
    CoefficientList[A[x], x] (* Jean-François Alcover, Jul 24 2018 *)
  • PARI
    {a(n)=my(A=1+O(x^(n+1)));for(i=0,n,A=1+x*A^4*subst(A^3,x,-x));polcoef(A,n)}
    
  • PARI
    {a(n)=my(m=n\2,p=3*(n%2)+1);binomial(7*m+p-1,m)*p/(6*m+p)}

Formula

G.f.: A(x) = G(x^2) + x*G(x^2)^4 where G(x^2) = A(x)*A(-x) and G(x) = 1 + x*G(x)^7 is the g.f. of A002296.
a(2n) = binomial(7*n,n)/(6*n+1); a(2n+1) = binomial(7*n+3,n)*4/(6*n+4).
G.f. satisfies: A(x)*A(-x) = (A(x) + A(-x))/2.
a(0) = 1; a(n) = Sum_{i, j, k, l>=0 and i+2*j+2*k+2*l=n-1} a(i) * a(2*j) * a(2*k) * a(2*l). - Seiichi Manyama, Jul 07 2025
a(0) = 1; a(n) = Sum_{x_1, x_2, ..., x_7>=0 and x_1+x_2+...+x_7=n-1} (-1)^(x_1+x_2+x_3) * Product_{k=1..7} a(x_k). - Seiichi Manyama, Jul 08 2025

Extensions

a(26) onwards from Andrew Howroyd, Feb 08 2024

A004127 Number of planar hexagon trees with n hexagons.

Original entry on oeis.org

1, 1, 3, 12, 68, 483, 3946, 34485, 315810, 2984570, 28907970, 285601251, 2868869733, 29227904840, 301430074416, 3141985563575, 33059739636198, 350763452126835, 3749420616902637, 40348040718155170, 436827335493148600
Offset: 1

Views

Author

Keywords

Comments

Number of nonequivalent dissections of a polygon into n hexagons by nonintersecting diagonals up to rotation and reflection. - Andrew Howroyd, Nov 20 2017
Number of unoriented polyominoes composed of n hexagonal cells of the hyperbolic regular tiling with Schläfli symbol {6,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=6 of A295260.
Cf. A002294.
Polyominoes: A221184{n-1} (oriented), A369473 (chiral), A143546 (achiral), A005040 {5,oo}, A005419 {7,oo}.

Programs

  • Maple
    T := proc(n) if floor(n)=n then binomial(5*n+1,n)/(5*n+1) else 0 fi end: U := proc(n) if n mod 2 = 0 then binomial(5*n/2+1, n/2)/(5*n/2+1) else 6*binomial((5*n+1)/2,(n-1)/2)/(5*n+1) fi end: S := n->T(n)/4/(2*n+1)+T(n/2)/6+(5*n-2)*T((n-1)/3)/6/(2*n+1)+T((n-1)/6)/6+7*U(n)/12: seq(S(n),n=1..25); (Emeric Deutsch)
  • Mathematica
    p=6; 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 Theorem 3 on p. 142 in the Beineke-Pippert paper; also the Maple and Mathematica codes here.
a(n) ~ 5^(5*n + 1/2) / (sqrt(Pi) * n^(5/2) * 2^(8*n + 13/2)). - Vaclav Kotesovec, Mar 13 2016
a(n) = A221184(n-1) - A369473(n) = (A221184(n-1) + A143546(n)) / 2 = A369473(n) + A143546(n). - Robert A. Russell, Jan 23 2024

Extensions

More terms from Emeric Deutsch, Jan 22 2004

A233668 a(n) = 6*binomial(5*n + 6,n)/(5*n + 6).

Original entry on oeis.org

1, 6, 45, 380, 3450, 32886, 324632, 3290040, 34034715, 357919100, 3815041230, 41124015036, 447534498320, 4910258796240, 54257308779600, 603260892430960, 6744185681876505, 75764901779438850, 854867886710698755, 9683529727259434200
Offset: 0

Views

Author

Tim Fulford, Dec 14 2013

Keywords

Comments

Fuss-Catalan sequence is a(n,p,r) = r*binomial(n*p + r, n)/(n*p + r); this is the case p = 5, r = 6.

References

  • C. H. Pah, M. R. Wahiddin, Combinatorial Interpretation of Raney Numbers and Tree Enumerations, Open Journal of Discrete Mathematics, 2015, 5, 1-9; http://www.scirp.org/journal/ojdm; http://dx.doi.org/10.4236/ojdm.2015.51001

Crossrefs

Cf. A000245 (k = 3), A006629 (k = 4), A196678 (k = 5), A233743 (k = 7), A233835 (k = 8), A234467 (k = 9), A232265 (k = 10), A229963 (k = 11).

Programs

  • Magma
    [6*Binomial(5*n+6,n)/(5*n+6): n in [0..30]];
  • Mathematica
    Table[6 Binomial[5 n + 6, n]/(5 n + 6), {n, 0, 30}]
  • PARI
    a(n) = 6*binomial(5*n+6,n)/(5*n+6);
    
  • PARI
    {a(n)=local(B=1); for(i=0, n, B=(1+x*B^(5/6))^6+x*O(x^n)); polcoeff(B, n)}
    

Formula

G.f. satisfies: A(x) = {1 + x*A(x)^(p/r)}^r, here p = 5, r = 6.
From _Peter Bala, Oct 16 2015: (Start)
O.g.f. A(x) = 1/x * series reversion (x*C(-x)^6), where C(x) = (1 - sqrt(1 - 4*x))/(2*x) is the o.g.f. for the Catalan numbers A000108. See cross-references for other Fuss-Catalan sequences with o.g.f. 1/x * series reversion (x*C(-x)^k), k = 3 through 11.
A(x)^(1/6) is the o.g.f. for A002294. (End)
D-finite with recurrence 8*n*(4*n+5)*(2*n+3)*(4*n+3)*a(n) -5*(5*n+1)*(5*n+2)*(5*n+3)*(5*n+4)*a(n-1)=0. - R. J. Mathar, Nov 22 2024

A369929 Array read by antidiagonals: T(n,k) is the number of achiral noncrossing partitions composed of n blocks of size k.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 3, 1, 1, 1, 1, 3, 3, 6, 1, 1, 1, 1, 3, 5, 7, 10, 1, 1, 1, 1, 4, 5, 16, 12, 20, 1, 1, 1, 1, 4, 7, 18, 31, 30, 35, 1, 1, 1, 1, 5, 7, 31, 35, 102, 55, 70, 1, 1, 1, 1, 5, 9, 34, 64, 136, 213, 143, 126, 1
Offset: 0

Views

Author

Andrew Howroyd, Feb 07 2024

Keywords

Comments

T(n,2*k-1) is the number of achiral noncrossing k-gonal cacti with n polygons.

Examples

			Array begins:
===============================================
n\k| 1  2   3   4    5    6    7    8     9 ...
---+-------------------------------------------
0  | 1  1   1   1    1    1    1    1     1 ...
1  | 1  1   1   1    1    1    1    1     1 ...
2  | 1  1   1   1    1    1    1    1     1 ...
3  | 1  2   2   3    3    4    4    5     5 ...
4  | 1  3   3   5    5    7    7    9     9 ...
5  | 1  6   7  16   18   31   34   51    55 ...
6  | 1 10  12  31   35   64   70  109   117 ...
7  | 1 20  30 102  136  296  368  651   775 ...
8  | 1 35  55 213  285  663  819 1513  1785 ...
9  | 1 70 143 712 1155 3142 4495 9304 12350 ...
...
		

Crossrefs

Columns are: A000012, A001405(n-1), A047749 (k=3), A369930 (k=4), A143546 (k=5), A143547 (k=7), A143554 (k=9), A192893 (k=11).

Programs

  • PARI
    \\ u(n,k,r) are Fuss-Catalan numbers.
    u(n,k,r) = {r*binomial(k*n + r, n)/(k*n + r)}
    e(n,k) = {sum(j=0, n\2, u(j, k, 1+(n-2*j)*k/2))}
    T(n, k)={if(n==0, 1, if(k%2, if(n%2, 2*u(n\2, k, (k+1)/2), u(n/2, k, 1) + u(n/2-1, k, k)), e(n, k) + if(n%2, u(n\2, k, k/2)))/2)}

Formula

T(n,k) = 2*A303929(n,k) - A303694(n,k).
T(n,2*k-1) = 2*A361239(n,k) - A361236(n,k).

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

Original entry on oeis.org

1, 1, 2, 4, 9, 22, 52, 140, 340, 969, 2394, 7084, 17710, 53820, 135720, 420732, 1068012, 3362260, 8579560, 27343888, 70068713, 225568798, 580034052, 1882933364, 4855986044, 15875338990, 41043559340, 134993766600
Offset: 1

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.

Crossrefs

Column k=5 of A370060.
Polyominoes: A005038 (oriented), A005040 (unoriented), A369471 (chiral), A002293 (rooted), A047749 {4,oo}, A143546 {6,oo}.

Programs

  • Mathematica
    p=5; 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,35}]

Formula

For n even, a(n) = C(2n,n/2)/(3n/2+1).
For n odd, a(n) = 4*C(2n-1,(n-1)/2)/(3n+1).
a(n+2)/a(n) ~ 256/27. a(2m+1)/a(2m) ~ 32/9; a(2m)/a(2m-1) ~ 8/3.
a(n) = 2*A005040(n) - A005038(n) = A005038(n) - 2*A369471(n) = A005040(n) - A369471(n).
G.f.: G(z^2)+z*G(z^2)^2, where G(z)=1+z*G(z)^4, the generating function for A002293.
a(2m) = A002293(m) ~ (4^4/3^3)^m*sqrt(4/(2*Pi*(3*m)^3)). - Robert A. Russell, Jul 15 2024

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).

A221184 Number of colored quivers in the 4-mutation class of a quiver of Dynkin type A_n.

Original entry on oeis.org

1, 1, 3, 19, 118, 931, 7756, 68685, 630465, 5966610, 57805410, 571178751, 5737638778, 58455577800, 602859152496, 6283968796705, 66119469155523, 701526880303315, 7498841128986109, 80696081185766970, 873654669882574580
Offset: 0

Views

Author

N. J. A. Sloane, Jan 22 2013

Keywords

Comments

Also, number of nonequivalent dissections of a polygon into n+1 hexagons by nonintersecting diagonals up to rotation. - Andrew Howroyd, Nov 20 2017
Number of oriented polyominoes composed of n+1 hexagonal cells of the hyperbolic regular tiling with Schläfli symbol {6,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

Crossrefs

Column k=6 of A295224.
Polyominoes: A004127 (unoriented), A369473 (chiral), A143546 (achiral), A001683(n+2) {3,oo}, A005034 {4,oo}, A005038 {5,oo}.

Programs

  • Mathematica
    u[n_, k_, r_] := r*Binomial[(k - 1)*n + r, n]/((k - 1)*n + r);
    T[n_, k_] := u[n, k, 1] + (If[EvenQ[n], u[n/2, k, 1], 0] - u[n, k, 2])/2 + DivisorSum[GCD[n - 1, k], EulerPhi[#]*u[(n - 1)/#, k, k/#] &]/k;
    a[n_] := T[n + 1, 6];
    Table[a[n], {n, 0, 20}] (* Jean-François Alcover, Jun 14 2018, after Andrew Howroyd *)
    p=6; 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)]+DivisorSum[GCD[p,n-1],EulerPhi[#]Binomial[((p-1)n+1)/#,(n-1)/#]/((p-1)n+1)&,#>1&],{n,30}] (* Robert A. Russell, Jan 23 2024 *)

Formula

a(n) ~ 5^(5*n + 11/2) / (sqrt(Pi) * n^(5/2) * 2^(8*n + 27/2)). - Vaclav Kotesovec, Jun 15 2018
a(n-1) = A004127(n) + A369473(n) = 2*A004127(n) - A143546(n) = 2*A369473(n) + A143546(n). - Robert A. Russell, Jan 23 2024

Extensions

a(0)=1 and a(18)-a(20) corrected by Andrew Howroyd, Nov 20 2017

A233738 2*binomial(5*n+10, n)/(n+2).

Original entry on oeis.org

1, 10, 95, 920, 9135, 92752, 959595, 10084360, 107375730, 1156073100, 12565671261, 137702922560, 1519842008360, 16880051620320, 188519028884675, 2115822959020080, 23851913523156675, 269958280013904870, 3066451080298820830, 34946186787944832400
Offset: 0

Views

Author

Tim Fulford, Dec 15 2013

Keywords

Comments

Fuss-Catalan sequence is a(n,p,r) = r*binomial(np+r,n)/(np+r), this is the case p=5, r=10.

Crossrefs

Programs

  • Magma
    [2*Binomial(5*n+10, n)/(n+2): n in [0..30]]; // Vincenzo Librandi, Dec 16 2013
  • Maple
    A233738:=n->2*binomial(5*n+10,n)/(n+2): seq(A233738(n), n=0..30); # Wesley Ivan Hurt, Sep 07 2014
  • Mathematica
    Table[2 Binomial[5 n + 10, n]/(n + 2), {n, 0, 40}] (* Vincenzo Librandi, Dec 16 2013 *)
  • PARI
    a(n) = 2*binomial(5*n+10,n)/(n+2);
    
  • PARI
    {a(n)=local(B=1); for(i=0, n, B=(1+x*B^(1/2))^10+x*O(x^n)); polcoeff(B, n)}
    

Formula

G.f. satisfies: B(x) = {1 + x*B(x)^(p/r)}^r, where p=5, r=10.
a(n) = 2*A004344(n)/(n+2). - Wesley Ivan Hurt, Sep 07 2014
G.f.: hypergeom([2, 11/5, 12/5, 13/5, 14/5], [11/4, 3, 13/4, 7/2], (3125/256)*x). - Robert Israel, Sep 07 2014
D-finite with recurrence 8*(2*n+5)*(4*n+7)*(n+2)*(4*n+9)*a(n) -(n+1)*(13877*n^3+45630*n^2+46579*n+14034)*a(n-1) +210*(5*n+1)*(5*n+2)*(5*n+3)*(5*n+4)*a(n-2)=0. - R. J. Mathar, Nov 22 2024
D-finite with recurrence 8*n*(2*n+5)*(4*n+7)*(n+2)*(4*n+9)*a(n) -5*(5*n+6)*(5*n+7)*(5*n+8)*(5*n+9)*(n+1)*a(n-1)=0. - R. J. Mathar, Nov 22 2024
Showing 1-10 of 18 results. Next