|
%I #21 Sep 19 2019 07:49:46
%S 1,1,3,1,12,16,1,35,150,125,1,90,900,2160,1296,1,217,4410,22295,36015,
%T 16807,1,504,19264,179200,573440,688128,262144,1,1143,78246,1240029,
%U 6889050,15707034,14880348,4782969,1,2550,302500,7770000,69510000,264600000,462000000,360000000,100000000
%N Triangle T(n,k) read by rows: T(n,k) is the number of unrooted hypertrees on n labeled vertices with k hyperedges, n >= 2, 1 <= k <= n-1.
%C See A210586 for the definition of a hypertree and for the enumeration of rooted hypertrees.
%H Andrew Howroyd, <a href="/A210587/b210587.txt">Table of n, a(n) for n = 2..1276</a>
%H R. Bacher, <a href="http://arxiv.org/abs/1102.2708">On the enumeration of labelled hypertrees and of labelled bipartite trees</a>, arXiv:1102.2708 [math.CO], 2011.
%H J. McCammond and J. Meier, <a href="http://www.math.ucsb.edu/~mccammon/papers/htpandelltwo.pdf">The hypertree poset and the l^2-Betti numbers of the motion group of the trivial link</a>, Mathematische Annalen 328 (2004), no. 4, 633-652.
%F T(n,k) = n^(k-1)*Stirling2(n-1,k). T(n,k) = 1/n*A210586(n,k).
%F E.g.f. A(x,t) = t + x*t^2/2! + (x + 3*x^2)*t^3/3! + ..., where t*d/dt(A(x,t)) is the e.g.f. for A210586.
%F Dobinski-type formula for the row polynomials: R(n,x) = exp(-n*x)*sum {k = 0..inf} n^(k-1)*k^(n-1)x^k/k!.
%F Row sums A030019.
%e Triangle begins
%e .n\k.|....1.....2......3......4......5......6
%e = = = = = = = = = = = = = = = = = = = = = = =
%e ..2..|....1
%e ..3..|....1.....3
%e ..4..|....1....12.....16
%e ..5..|....1....35....150....125
%e ..6..|....1....90....900...2160...1296
%e ..7..|....1...217...4410..22295..36015..16807
%e ...
%e Example of a hypertree with two hyperedges, one a 2-edge {3,4) and one a 3-edge {1,2,3}.
%e ........__________........................
%e ......./..........\.______................
%e ......|....1...../.\......\...............
%e ......|.........|.3.|....4.|..............
%e ......|....2.....\./______/...............
%e .......\__________/.......................
%e ..........................................
%e T(4,2) = 12. The twelve unrooted hypertrees on 4 vertices {1,2,3,4} with 2 hyperedges (one a 2-edge and one a 3-edge) have hyperedges:
%e {1,2,3} and {3,4); {1,2,3} and {2,4); {1,2,3} and {1,4);
%e {1,2,4} and {1,3); {1,2,4} and {2,3); {1,2,4} and {3,4);
%e {1,3,4} and {1,2); {1,3,4} and {2,3); {1,3,4} and {2,4);
%e {2,3,4} and {1,2); {2,3,4} and {1,3); {2,3,4} and {1,4).
%p with(combinat):
%p A210587 := (n, k) -> n^(k-1)*stirling2(n-1, k):
%p for n from 2 to 10 do seq(A210587(n, k), k = 1..n-1) end do;
%p # _Peter Bala_, Oct 28 2015
%t T[n_, k_] := n^(k - 1)*StirlingS2[n - 1, k];
%t Table[T[n, k], {n, 2, 10}, {k, 1, n - 1}] // Flatten (* _Jean-François Alcover_, Sep 19 2019 *)
%o (PARI) T(n,k) = {n^(k-1)*stirling(n-1,k,2)}
%o for(n=2, 10, for(k=1, n-1, print1(T(n, k), ", ")); print); \\ _Andrew Howroyd_, Aug 28 2018
%Y Cf. A030019 (row sums). Cf. A210586, A048993.
%K nonn,easy,tabl
%O 2,3
%A _Peter Bala_, Mar 26 2012
|
