OFFSET
1,2
EXAMPLE
The a(3) = 5 matrices:
[1 0 0] [1 0 0] [0 1 0] [0 0 1] [1 1]
[0 1 0] [0 0 1] [1 0 0] [0 1 0] [1 0]
[0 0 1] [0 1 0] [0 0 1] [1 0 0]
MATHEMATICA
a[0] = 1;
a[n_] := a[n] = Length[Select[Subsets[Tuples[Range[n], 2], {n}], Module[{matrix, rows, cols}, matrix = ConstantArray[0, {n, n}]; (matrix[[#[[1]], #[[2]]]] = 1) & /@ #; rows = Total[matrix, {2}]; cols = Total[matrix, {1}]; And[Union[First /@ #] == Range[Max @@ First /@ #], Union[Last /@ #] == Range[Max @@ Last /@ #], Sort[Reverse /@ #] == #, OrderedQ[Reverse[rows]], OrderedQ[Reverse[cols]]]] &]];
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Ludovic Schwob, May 18 2024
STATUS
approved