%I #6 Nov 15 2018 21:12:22
%S 1,1,1,5,5,14,44,72,147,381,1405
%N Number of nonnegative integer matrices with sum of entries equal to n and no zero rows or columns, with strictly decreasing row sums and column sums.
%e The a(5) = 14 matrices:
%e [5] [4 1] [3 2]
%e .
%e [4] [4 0] [3 1] [3 1] [3] [3 0] [3 0] [2 2] [2 1] [2 1] [1 2]
%e [1] [0 1] [1 0] [0 1] [2] [1 1] [0 2] [1 0] [2 0] [1 1] [2 0]
%t prs2mat[prs_]:=Table[Count[prs,{i,j}],{i,Union[First/@prs]},{j,Union[Last/@prs]}];
%t multsubs[set_,k_]:=If[k==0,{{}},Join@@Table[Prepend[#,set[[i]]]&/@multsubs[Drop[set,i-1],k-1],{i,Length[set]}]];
%t Table[Length[Select[multsubs[Tuples[Range[n],2],n],And[Union[First/@#]==Range[Max@@First/@#],Union[Last/@#]==Range[Max@@Last/@#],OrderedQ[Total/@prs2mat[#],Greater],OrderedQ[Total/@Transpose[prs2mat[#]],Greater]]&]],{n,6}]
%Y Cf. A000219, A001970, A007716, A068313, A114736, A117433, A120733, A319646, A321645, A321652, A321654, A321655.
%K nonn,more
%O 0,4
%A _Gus Wiseman_, Nov 15 2018
|