%I #21 Feb 15 2019 16:19:12
%S 1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,1,1,1,1,1,1,2,3,3,4,5,5,5,6,5,5,5,4,
%T 3,3,2,1,1,1,1,1,1,2,3,4,5,7,8,10,12,13,15,17,18,19,20,20,20,20,19,18,
%U 17,15,13,12,10,8,7,5,4,3,2,1,1,1
%N Number T(n,k) of totally symmetric plane partitions with largest part <= n and exactly k orbits under action of the symmetric group S_3; triangle T(n,k), n>=0, 0<=k<=A000292(n), read by rows.
%H Alois P. Heinz, <a href="/A214564/b214564.txt">Rows n = 0..21</a>
%H C. Koutschan, M. Kauers, and D. Zeilberger, <a href="http://www.pnas.org/content/108/6/2196">Proof of George Andrews’s and David Robbins’s q-TSPP conjecture</a>, PNAS (2011), 108: 2196-2199.
%H R. P. Stanley, <a href="http://dx.doi.org/10.1007/BFb0072521">A baker's dozen of conjectures concerning plane partitions</a>, pp. 285-293 of "Combinatoire Enumerative (Montreal 1985)", Lect. Notes Math. 1234, 1986.
%F G.f. of row n: Product_{1<=i<=j<=k<=n} (1-q^(i+j+k-1))/(1-q^(i+j+k-2)).
%e Triangle T(n,k) begins:
%e 1;
%e 1, 1;
%e 1, 1, 1, 1, 1;
%e 1, 1, 1, 2, 2, 2, 2, 2, 1, 1, 1;
%e 1, 1, 1, 2, 3, 3, 4, 5, 5, 5, 6, 5, 5, 5, 4, 3, 3, 2, 1, 1, 1;
%e 1, 1, 1, 2, 3, 4, 5, 7, 8, 10, 12, 13, 15, 17, 18, 19, 20, 20, 20, 20, 19, ...
%e ...
%p gf:= n-> simplify(mul(mul(mul( (1-q^(i+j+k-1))/
%p (1-q^(i+j+k-2)), i=1..j), j=1..k), k=1..n)):
%p T:= n-> seq(coeff(gf(n), q, k), k=0..n*(n+1)*(n+2)/6):
%p seq(T(n), n=0..7);
%Y Row sums give: A005157.
%Y Cf. A000292.
%K nonn,tabf
%O 0,12
%A _Alois P. Heinz_, Jul 21 2012
|