|
Search: id:A056939
|
|
|
| A056939 |
|
Number of antichains (or order ideals) in the poset 3*m*n or plane partitions with rows <= m, columns <= n and entries <= 3 |
|
+0
13
|
|
| 1, 1, 1, 1, 4, 1, 1, 10, 10, 1, 1, 20, 50, 20, 1, 1, 35, 175, 175, 35, 1, 1, 56, 490, 980, 490, 56, 1, 1, 84, 1176, 4116, 4116, 1176, 84, 1, 1, 120, 2520, 14112, 24696, 14112, 2520, 120, 1, 1, 165, 4950, 41580, 116424, 116424, 41580, 4950, 165, 1
(list; table; graph; listen)
|
|
|
OFFSET
|
0,5
|
|
|
COMMENT
|
Determinants of 3 X 3 subarrays of Pascal's triangle A007318 (a matrix entry being set to 0 when not present). - Gerald McGarvey (Gerald.McGarvey(AT)comcast.net), Feb 24 2005
Row sums are {1, 2, 6, 22, 92, 422, 2074, 10754, 58202, 326240, 1882960,...}. - Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 28 2009)
|
|
REFERENCES
|
Berman and Koehler, Cardinalities of finite distributive lattices, Mitteilungen aus dem Mathematischen Seminar Giessen, 121 (1976), p. 103-124
P. A. MacMahon, Combinatory Analysis, section 495, 1916.
R. P. Stanley, Theory and application of plane partitions. II. Studies in Appl. Math. 50 (1971), p. 259-279. Thm. 18.1
Paul Barry, On Integer-Sequence-Based Constructions of Generalized Pascal Triangles, Journal of Integer Sequences, Vol. 9 (2006), Article 06.2.4.
|
|
FORMULA
|
Product[ C(n+m+k, m+k)/C(n+k, k), {k, 0, 2} ]
t(n,m)=2*Binomial[n, m]*Binomial[n + 1, m + 1]*Binomial[n + 2, m + 2]/(( n - m + 1)^2*(n - m + 2)) [From Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 28 2009]
|
|
EXAMPLE
|
Contribution from Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 28 2009: (Start)
{1},
{1, 1},
{1, 4, 1},
{1, 10, 10, 1},
{1, 20, 50, 20, 1},
{1, 35, 175, 175, 35, 1},
{1, 56, 490, 980, 490, 56, 1},
{1, 84, 1176, 4116, 4116, 1176, 84, 1},
{1, 120, 2520, 14112, 24696, 14112, 2520, 120, 1},
{1, 165, 4950, 41580, 116424, 116424, 41580, 4950, 165, 1},
{1, 220, 9075, 108900, 457380, 731808, 457380, 108900, 9075, 220, 1} (End)
|
|
MATHEMATICA
|
Contribution from Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 28 2009: (Start)
t[n_, m_] = 2*Binomial[n, m]*Binomial[n + 1, m + 1]* Binomial[n + 2, m + 2]/((n - m + 1)^2*(n - m + 2));
Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}]
Flatten[%] (End)
|
|
CROSSREFS
|
Cf. A000372, A056932, A001263, A056940, A056941.
Antidiagonals sum to A001181 (Baxter permutations)
Sequence in context: A109955 A089447 A082680 this_sequence A142595 A140711 A164366
Adjacent sequences: A056936 A056937 A056938 this_sequence A056940 A056941 A056942
|
|
KEYWORD
|
nonn,easy,tabl,nice
|
|
AUTHOR
|
Mitch Harris (Harris.Mitchell(AT)mgh.harvard.edu)
|
|
|
Search completed in 0.002 seconds
|
