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.

A135021 Triangle read by rows: T(n,r) = number of maximum r-uniform acyclic hypergraphs of order n and size n-r+1, 1 <= r <= n+1.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 16, 6, 1, 1, 1, 125, 70, 10, 1, 1, 1, 1296, 1215, 200, 15, 1, 1, 1, 16807, 27951, 5915, 455, 21, 1, 1, 1, 262144, 799708, 229376, 20230, 896, 28, 1, 1, 1, 4782969, 27337500, 10946964, 1166886, 55566, 1596, 36, 1, 1, 1, 100000000, 1086190605, 618435840, 82031250, 4429152, 131250, 2640, 45, 1, 1
Offset: 0

Views

Author

John Nnamdi (john_info_2008(AT)bbvczx.com), Feb 10 2008

Keywords

Comments

T(n,r) is the number of (r-1)-trees on n nodes. - Andrew Howroyd, Mar 02 2024

Examples

			From _Bruno Berselli_, Dec 08 2012: (Start)
Triangle begins:
  1;
  1,       1;
  1,       1,        1;
  1,       3,        1,        1;
  1,      16,        6,        1,       1;
  1,     125,       70,       10,       1,     1;
  1,    1296,     1215,      200,      15,     1,    1;
  1,   16807,    27951,     5915,     455,    21,    1,  1;
  1,  262144,   799708,   229376,   20230,   896,   28,  1, 1;
  1, 4782969, 27337500, 10946964, 1166886, 55566, 1596, 36, 1, 1;
(End)
		

Crossrefs

Columns 1..5 are A000012, A000272, A036361, A036362, A036506.
Cf. A370770 (unlabeled version).

Programs

  • Maple
    seq(seq(binomial(n,r-1)*(n*(r-1)-r^2+2*r)^(n-r-1),r=1..n),n=1..11);
  • Mathematica
    T[n_, r_] := Binomial[n, r - 1]*(n (r - 1) - r^2 + 2 r)^(n - r - 1);
    Table[T[n, r], {n, 1, 5}, {r, 1, n}] (* G. C. Greubel, Sep 16 2016 *)
  • PARI
    T(n,r) = binomial(n,r-1)*(n*(r-1)-r^2+2*r)^(n-r-1) \\ Andrew Howroyd, Mar 02 2024

Formula

T(n,r) = binomial(n,r-1)*(n*(r-1)-r^2+2*r)^(n-r-1).

Extensions

Diagonal r=n+1 inserted by Andrew Howroyd, Mar 02 2024