OFFSET
0,3
COMMENTS
Number of ways to fill a (not necessarily square) matrix with the parts of an integer partition of n so that the rows and columns are weakly decreasing.
EXAMPLE
The a(5) = 14 matrices:
[5] [4 1] [3 2] [3 1 1] [2 2 1] [2 1 1 1] [1 1 1 1 1]
.
[4] [3] [2 1]
[1] [2] [1 1]
.
[3] [2]
[1] [2]
[1] [1]
.
[2]
[1]
[1]
[1]
.
[1]
[1]
[1]
[1]
[1]
MATHEMATICA
Table[Sum[Length[Select[Union[Sort/@Tuples[IntegerPartitions[#, {k}]&/@ptn]], And@@OrderedQ/@Transpose[#]&]], {ptn, IntegerPartitions[n]}, {k, Min[ptn]}], {n, 30}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jan 15 2019
STATUS
approved