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

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

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

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

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
Showing 1-4 of 4 results.