A321653 -id:A321653 - cp's OEIS frontend

A114736 Number of planar partitions of n where parts strictly decrease along each row and column.

1, 1, 1, 3, 4, 6, 10, 15, 22, 33, 49, 70, 102, 146, 205, 290, 405, 561, 779, 1071, 1463, 1999, 2714, 3667, 4946, 6641, 8880, 11848, 15753, 20870, 27586, 36354, 47766, 62621, 81878, 106785, 138975, 180449, 233778, 302270, 390027, 502256, 645603, 828330, 1060851

Offset: 0

Franklin T. Adams-Watters, Mar 16 2006

nonn

If these partitions are "flattened" into a simple partition, the resulting partitions are those for which any part size present with multiplicity k implies the presence of at least k(k-1)/2 larger parts. E.g., [3,1|1] flattens to [3,1^2], 1 has multiplicity 2, so there must be at least 2*1/2 = 1 part larger than 1 - which is the 3.

			For n = 5, we have the 6 partitions [5], [4,1], [4|1], [3,2], [3|2] and [3,1|1].
From _Gus Wiseman_, Nov 15 2018: (Start)
The a(6) = 10 plane partitions:
  6   5 1   4 2   3 2 1
.
  5   4 1   4   3 2   3 1
  1   1     2   1     2
.
  3
  2
  1
(End)

B. Gordon, Multirowed partitions with strict decrease along columns (Notes on plane partitions IV.), Symposia Amer. Math. Soc. 19 (1971) 91-100.

Alois P. Heinz, Table of n, a(n) for n = 0..85

Cf. A000009, A000219, A001970, A007716, A068313, A117433, A120733, A319646, A321645, A321652, A321653, A321655.

prs2mat[prs_]:=Table[Count[prs,{i,j}],{i,Union[First/@prs]},{j,Union[Last/@prs]}];
multsubs[set_,k_]:=If[k==0,{{}},Join@@Table[Prepend[#,set[[i]]]&/@multsubs[Drop[set,i-1],k-1],{i,Length[set]}]];
Table[Length[Select[multsubs[Tuples[Range[n],2],n],And[Union[First/@#]==Range[Max@@First/@#],Union[Last/@#]==Range[Max@@Last/@#],And@@(OrderedQ[#,Greater]&/@prs2mat[#]),And@@(OrderedQ[#,Greater]&/@Transpose[prs2mat[#]])]&]],{n,5}] (* Gus Wiseman, Nov 15 2018 *)

Clarified definition, added 30 terms and reference. - Dennis K Moore, Jan 12 2011

a(40)-a(44) from Alois P. Heinz, Sep 26 2018

A117433 Number of planar partitions of n with all part sizes distinct.

Original entry on oeis.org

1, 1, 1, 3, 3, 5, 9, 11, 15, 21, 35, 41, 59, 75, 103, 149, 187, 243, 321, 413, 527, 735, 895, 1165, 1467, 1885, 2335, 2997, 3853, 4765, 5977, 7473, 9269, 11531, 14255, 17537, 22201, 26897, 33233, 40613, 50027, 60637, 74459, 89963, 109751, 134407, 162117, 195859

Offset: 0

Franklin T. Adams-Watters, Mar 16 2006, Apr 01 2008

nonn

Matches A072706 for n < 10, since a unimodal composition into distinct parts can be placed uniquely as a hook. Starting with n = 10, additional partitions are possible (starting with [4,3|2,1] and [4,2|3,1]).

			From _Gus Wiseman_, Nov 15 2018: (Start)
The a(10) = 35 strict plane partitions (A = 10):
  A  64  73  82  532  91  541  631  721  4321
.
  9  54  63  72  432  8  53  71  431  7  43  52  61  421  6  42  51
  1  1   1   1   1    2  2   2   2    3  21  3   3   3    4  31  4
.
  7  6  5  43  42  5  41
  2  3  4  2   3   3  3
  1  1  1  1   1   2  2
.
  4
  3
  2
  1
(End)

Alois P. Heinz, Table of n, a(n) for n = 0..1000 (first 100 terms from Franklin T. Adams-Watters)
OEIS Wiki, Plane partitions

Cf. A000219, A072706, A117434, A000009.

Cf. A001970, A007716, A068313, A114736, A120733, A319646, A321645, A321652, A321653, A321655, A321659, A321660.

b:= proc(n, i) b(n, i):= `if`(n=0, [1], `if`(i<1, [], zip((x, y)
      -> x+y, b(n, i-1), `if`(i>n, [], [0, b(n-i, i-1)[]]), 0)))
    end:
g:= proc(n) g(n):= `if`(n<2, 1, (n-1)*g(n-2) +g(n-1)) end:
a:= proc(n) b(n, n); add(%[i]*g(i-1), i=1..nops(%)) end:
seq(a(n), n=0..60);  # Alois P. Heinz, Nov 18 2012

prs2mat[prs_]:=Table[Count[prs,{i,j}],{i,Union[First/@prs]},{j,Union[Last/@prs]}];
multsubs[set_,k_]:=If[k==0,{{}},Join@@Table[Prepend[#,set[[i]]]&/@multsubs[Drop[set,i-1],k-1],{i,Length[set]}]];
Table[Length[Select[multsubs[Tuples[Range[n],2],n],And[Union[First/@#]==Range[Max@@First/@#],Union[Last/@#]==Range[Max@@Last/@#],UnsameQ@@DeleteCases[Join@@prs2mat[#],0],And@@(OrderedQ[#,Greater]&/@prs2mat[#]),And@@(OrderedQ[#,Greater]&/@Transpose[prs2mat[#]])]&]],{n,5}] (* Gus Wiseman, Nov 15 2018 *)
zip[f_, x_List, y_List, z_] := With[{m = Max[Length[x], Length[y]]}, f[PadRight[x, m, z], PadRight[y, m, z]]];
b[n_, i_] := b[n, i] = If[n == 0, {1}, If[i < 1, {}, zip[Plus, b[n, i - 1], If[i > n, {}, Join[{0}, b[n - i, i - 1]]], 0]]];
g[n_] := g[n] = If[n < 2, 1, (n - 1)*g[n - 2] + g[n - 1]];
a[n_] := With[{bn = b[n, n]}, Sum[bn[[i]]*g[i - 1], {i, 1, Length[bn]}]];
Table[a[n], {n, 0, 60}] (* Jean-François Alcover, Dec 05 2023, after Alois P. Heinz *)

a(n) = Sum_{k=1..floor((sqrt(8*n+1)-1)/2)} A000085(k)*A008289(n,k).

A068313 Number of (0,1)-matrices with sum of entries equal to n and no zero rows or columns, with weakly decreasing row sums and column sums.

Original entry on oeis.org

1, 4, 15, 82, 457, 3231, 24055, 209375, 1955288, 20455936, 229830841, 2828166755, 37228913365, 528635368980, 7990596990430, 128909374528433, 2202090635802581, 39837079499488151, 759320365206705013, 15234890522990662422, 320634889654149218205, 7068984425261215971205

Offset: 1

Axel Kohnert (axel.kohnert(AT)uni-bayreuth.de), Feb 25 2002

nonn

This is the sum over the matrix of base change from the elementary symmetric functions to the monomial symmetric functions.

			a(2) = 4 because there are 4 different 0-1 matrices of weight 2: 1 10 01 11,1, 01, 10.
From _Gus Wiseman_, Nov 15 2018: (Start)
The a(3) = 15 matrices:
  [1 1 1]
.
  [1 1] [1 1 0] [1 0 1] [0 1 1]
  [1 0] [0 0 1] [0 1 0] [1 0 0]
.
  [1] [1 0] [1 0] [1 0 0] [1 0 0] [0 1] [0 1 0] [0 1 0] [0 0 1] [0 0 1]
  [1] [1 0] [0 1] [0 1 0] [0 0 1] [1 0] [1 0 0] [0 0 1] [1 0 0] [0 1 0]
  [1] [0 1] [1 0] [0 0 1] [0 1 0] [1 0] [0 0 1] [1 0 0] [0 1 0] [1 0 0]
(End)

I. G. Macdonald, Symmetric Functions and Hall Polynomials, Oxford 1979, p. 57.

Ludovic Schwob, Table of n, a(n) for n = 1..37
Ludovic Schwob, On the enumeration of double cosets and self-inverse double cosets, arXiv:2506.04007 [math.CO], 2025. See p. 14.

Cf. A000219, A001970, A007716, A049311, A101370, A117433, A120733, A321646, A321652, A321653, A321654.

prs2mat[prs_]:=Table[Count[prs,{i,j}],{i,Union[First/@prs]},{j,Union[Last/@prs]}];
Table[Length[Select[Subsets[Tuples[Range[n],2],{n}],And[Union[First/@#]==Range[Max@@First/@#],Union[Last/@#]==Range[Max@@Last/@#],OrderedQ[Total/@prs2mat[#]],OrderedQ[Total/@T[prs2mat[#]]]]&]],{n,5}] (* Gus Wiseman, Nov 15 2018 *)

Name changed by Gus Wiseman, Nov 15 2018

a(20) onwards from Ludovic Schwob, Oct 13 2023

A321645 Number of distinct row/column permutations of plane partitions of n.

Original entry on oeis.org

1, 1, 3, 11, 32, 96, 290, 864, 2502, 7134, 20081

Offset: 0

Gus Wiseman, Nov 15 2018

			The a(3) = 11 permutations of plane partitions:
  [3] [2 1] [1 2] [1 1 1]
.
  [2] [1 1] [1 1] [1] [1 0] [0 1]
  [1] [1 0] [0 1] [2] [1 1] [1 1]
.
  [1]
  [1]
  [1]

Cf. A000219, A001970, A007716, A008480, A068313, A114736, A120733, A316983, A319646.

Cf. A321646, A321647, A321648, A321652, A321653, A321655.

submultisetQ[M_,N_]:=Or[Length[M]==0,MatchQ[{Sort[List@@M],Sort[List@@N]},{{x_,Z___},{_,x_,W___}}/;submultisetQ[{Z},{W}]]];
multsubs[set_,k_]:=If[k==0,{{}},Join@@Table[Prepend[#,set[[i]]]&/@multsubs[Drop[set,i-1],k-1],{i,Length[set]}]];
Table[Length[Select[multsubs[Tuples[Range[n],2],n],And[Union[First/@#]==Range[Max@@First/@#],Union[Last/@#]==Range[Max@@Last/@#],OrderedQ[Sort[Map[Last,GatherBy[Sort[Reverse/@#],First],{2}],submultisetQ],submultisetQ],OrderedQ[Sort[Sort/@Map[Last,GatherBy[#,First],{2}],submultisetQ],submultisetQ]]&]],{n,6}]

A321652 Number of nonnegative integer matrices with sum of entries equal to n and no zero rows or columns, with weakly decreasing row sums and column sums.

Original entry on oeis.org

1, 1, 5, 19, 107, 573, 4050, 29093, 249301, 2271020, 23378901, 257871081, 3132494380, 40693204728, 572089068459, 8566311524788, 137165829681775, 2327192535461323, 41865158805428687, 793982154675640340, 15863206077534914434, 332606431999260837036, 7309310804287502958322, 167896287022455809865568

Offset: 0

Gus Wiseman, Nov 15 2018

nonn

			The a(3) = 19 matrices:
  [3] [2 1] [1 1 1]
.
  [2] [2 0] [1 1] [1 1 0] [1 0 1] [0 1 1]
  [1] [0 1] [1 0] [0 0 1] [0 1 0] [1 0 0]
.
  [1] [1 0] [1 0] [1 0 0] [1 0 0] [0 1] [0 1 0] [0 1 0] [0 0 1] [0 0 1]
  [1] [1 0] [0 1] [0 1 0] [0 0 1] [1 0] [1 0 0] [0 0 1] [1 0 0] [0 1 0]
  [1] [0 1] [1 0] [0 0 1] [0 1 0] [1 0] [0 0 1] [1 0 0] [0 1 0] [1 0 0]

Ludovic Schwob, Table of n, a(n) for n = 0..39
Ludovic Schwob, On the enumeration of double cosets and self-inverse double cosets, arXiv:2506.04007 [math.CO], 2025. See p. 13.

Cf. A000219, A001970, A007716, A068313, A114736, A120733, A319646, A321645, A321653, A321654, A321655.

prs2mat[prs_]:=Table[Count[prs,{i,j}],{i,Union[First/@prs]},{j,Union[Last/@prs]}];
multsubs[set_,k_]:=If[k==0,{{}},Join@@Table[Prepend[#,set[[i]]]&/@multsubs[Drop[set,i-1],k-1],{i,Length[set]}]];
Table[Length[Select[multsubs[Tuples[Range[n],2],n],And[Union[First/@#]==Range[Max@@First/@#],Union[Last/@#]==Range[Max@@Last/@#],OrderedQ[Total/@prs2mat[#]],OrderedQ[Total/@Transpose[prs2mat[#]]]]&]],{n,6}]

Sum of coefficients in the expansions of all homogeneous symmetric functions in terms of monomial symmetric functions. In other words, if Sum_{|y| = n} h(y) = Sum_{|y| = n} c_y * m(y), then a(n) = Sum_{|y| = n} c_y.

a(10) onwards from Ludovic Schwob, Aug 29 2023

A321662 Number of non-isomorphic multiset partitions of weight n whose incidence matrix has all distinct entries.

Original entry on oeis.org

1, 1, 1, 3, 3, 5, 13, 15, 23, 33, 49, 59, 83, 101, 133, 281, 321, 477, 655, 941, 1249, 1795, 2241, 3039, 3867, 5047, 6257, 8063, 11459, 13891, 18165, 23149, 29975, 37885, 49197, 61829, 89877, 109165, 145673, 185671, 246131, 310325, 408799, 514485, 668017, 871383

Offset: 0

Gus Wiseman, Nov 15 2018

nonn

The incidence matrix of a multiset partition has entry (i, j) equal to the multiplicity of vertex i in part j.
Also the number of positive integer matrices up to row and column permutations with sum of elements equal to n and no zero rows or columns, with all different entries.
The weight of a multiset partition is the sum of sizes of its parts. Weight is generally not the same as number of vertices.

			Non-isomorphic representatives of the a(3) = 3 through a(7) = 15 multiset partitions:
  {{111}}    {{1111}}    {{11111}}    {{111111}}      {{1111111}}
  {{122}}    {{1222}}    {{11222}}    {{112222}}      {{1112222}}
  {{1}{11}}  {{1}{111}}  {{12222}}    {{122222}}      {{1122222}}
                         {{1}{1111}}  {{122333}}      {{1222222}}
                         {{11}{111}}  {{1}{11111}}    {{1223333}}
                                      {{11}{1111}}    {{1}{111111}}
                                      {{1}{11222}}    {{11}{11111}}
                                      {{11}{1222}}    {{111}{1111}}
                                      {{112}{222}}    {{1}{112222}}
                                      {{122}{222}}    {{11}{12222}}
                                      {{2}{11222}}    {{112}{2222}}
                                      {{22}{1222}}    {{122}{2222}}
                                      {{1}{11}{111}}  {{2}{112222}}
                                                      {{22}{12222}}
                                                      {{1}{11}{1111}}

Andrew Howroyd, Table of n, a(n) for n = 0..1000

Cf. A000219, A007716, A008289, A059201, A114736, A117433, A120733, A121860, A321653, A321659, A321660, A321661.

(* b = A121860 *) b[n_] := Sum[n!/(d! (n/d)!), {d, Divisors[n]}];
(* c = A008289 *) c[n_, k_] := c[n, k] = If[n < k || k < 1, 0, If[n == 1, 1, c[n - k, k] + c[n - k, k - 1]]];
a[n_] := If[n == 0, 1, Sum[ (b[k] + b[k + 1] - 2) c[n, k], {k, 1, n}]];
a /@ Range[0, 45] (* Jean-François Alcover, Sep 14 2019 *)

\\ here b(n) is A121860(n).
b(n)={sumdiv(n, d, n!/(d!*(n/d)!))}
seq(n)={my(B=vector((sqrtint(8*(n+1))+1)\2, n, if(n==1, 1, b(n-1)+b(n)-2))); apply(p->sum(i=0, poldegree(p), B[i+1]*polcoef(p, i)), Vec(prod(k=1, n, 1 + x^k*y + O(x*x^n))))} \\ Andrew Howroyd, Nov 16 2018

a(n) = Sum_{k>=1} (A121860(k) + A121860(k+1) - 2)*A008289(n,k) for n > 0. - Andrew Howroyd, Nov 17 2018

Terms a(11) and beyond from Andrew Howroyd, Nov 16 2018

A321659 Number of nonnegative integer matrices with sum of entries equal to n and no zero rows or columns, whose nonzero entries are all distinct.

Original entry on oeis.org

1, 1, 1, 9, 9, 17, 161, 169, 313, 465, 5313, 5465, 10457, 15313, 25009, 271929, 286329, 537953, 799121, 1297369, 1805161, 20532897, 21292017, 40508297, 59738825, 97431073, 135137569, 209525865, 2089381929, 2200470833, 4135252289, 6124698121, 9937836505

Offset: 0

Gus Wiseman, Nov 15 2018

nonn

			The a(5) = 17 matrices:
  [5] [4 1] [3 2] [2 3] [1 4]
.
  [4] [4 0] [3] [3 0] [2] [2 0] [1] [1 0] [0 4] [0 3] [0 2] [0 1]
  [1] [0 1] [2] [0 2] [3] [0 3] [4] [0 4] [1 0] [2 0] [3 0] [4 0]

Andrew Howroyd, Table of n, a(n) for n = 0..1000

Cf. A000219, A007716, A008289, A101370, A114736, A117433, A120733, A321645, A321653, A321655, A321660, A321661, A321662.

prs2mat[prs_]:=Table[Count[prs,{i,j}],{i,Union[First/@prs]},{j,Union[Last/@prs]}];
multsubs[set_,k_]:=If[k==0,{{}},Join@@Table[Prepend[#,set[[i]]]&/@multsubs[Drop[set,i-1],k-1],{i,Length[set]}]];
Table[Length[Select[multsubs[Tuples[Range[n],2],n],And[Union[First/@#]==Range[Max@@First/@#],Union[Last/@#]==Range[Max@@Last/@#],UnsameQ@@DeleteCases[Join@@prs2mat[#],0]]&]],{n,5}]

\\ here b(n) is A101370(n).
b(n)={sum(m=0, n, sum(k=0, m, stirling(m,k,2)*k!)^2*polcoef(log(1+x+O(x*x^n))^m, n)/m!)}
seq(n)={my(B=vector((sqrtint(8*(n+1))+1)\2, n, b(n-1))); apply(p->sum(i=0, poldegree(p), B[i+1]*i!*polcoef(p, i)), Vec(prod(k=1, n, 1 + x^k*y + O(x*x^n))))} \\ Andrew Howroyd, Nov 16 2018

a(n) = Sum_{k>=1} A101370(k)*k!*A008289(n,k) for n > 0. - Andrew Howroyd, Nov 17 2018

Terms a(11) and beyond from Andrew Howroyd, Nov 16 2018

A321660 Number of nonnegative integer matrices with sum of entries equal to n and no zero rows or columns, whose entries are all distinct.

Original entry on oeis.org

1, 1, 1, 5, 5, 9, 45, 49, 85, 125, 233, 273, 417, 529, 745, 2573, 2861, 4761, 6837, 10489, 14317, 22637, 28289, 40041, 52041, 70177, 88561, 117605, 234773, 274761, 407469, 553681, 792613, 1052525, 1493033, 1959009, 3135537, 3904129, 5475673, 7173725, 9853325

Offset: 0

Gus Wiseman, Nov 15 2018

nonn

			The a(5) = 9 matrices:
  [5] [4 1] [3 2] [2 3] [1 4]
.
  [4] [3] [2] [1]
  [1] [2] [3] [4]

Andrew Howroyd, Table of n, a(n) for n = 0..1000

Cf. A000005, A000219, A007716, A008289, A114736, A117433, A120733, A321645, A321653, A321655, A321659, A321661, A321662.

prs2mat[prs_]:=Table[Count[prs,{i,j}],{i,Union[First/@prs]},{j,Union[Last/@prs]}];
multsubs[set_,k_]:=If[k==0,{{}},Join@@Table[Prepend[#,set[[i]]]&/@multsubs[Drop[set,i-1],k-1],{i,Length[set]}]];
Table[Length[Select[multsubs[Tuples[Range[n],2],n],And[Union[First/@#]==Range[Max@@First/@#],Union[Last/@#]==Range[Max@@Last/@#],UnsameQ@@Join@@prs2mat[#]]&]],{n,5}]

seq(n)={my(B=vector((sqrtint(8*(n+1))+1)\2, n, if(n==1, 1, (n-1)!*numdiv(n-1) + n!*(numdiv(n) - 2)))); apply(p->sum(i=0, poldegree(p), B[i+1]*polcoef(p, i)), Vec(prod(k=1, n, 1 + x^k*y + O(x*x^n))))} \\ Andrew Howroyd, Nov 16 2018

a(n) = Sum_{k>=1} (k!*A000005(k) + (k+1)!*(A000005(k+1) - 2))*A008289(n,k) for n > 0. - Andrew Howroyd, Nov 17 2018

Terms a(11) and beyond from Andrew Howroyd, Nov 16 2018

A321661 Number of non-isomorphic multiset partitions of weight n where the nonzero entries of the incidence matrix are all distinct.

Original entry on oeis.org

1, 1, 1, 4, 4, 7, 22, 25, 40, 58, 186, 204, 347, 478, 734, 2033, 2402, 3814, 5464, 8142, 11058, 30142, 34437, 55940, 77794, 116954, 156465, 229462, 533612, 640544, 994922, 1397896, 2048316, 2778750, 3987432, 5292293, 11921070, 14076550, 21802928, 29917842, 44080285

Offset: 0

Gus Wiseman, Nov 15 2018

nonn

The incidence matrix of a multiset partition has entry (i, j) equal to the multiplicity of vertex i in part j.
Also the number of positive integer matrices up to row and column permutations with sum of elements equal to n and no zero rows or columns, whose nonzero entries are all distinct.
The weight of a multiset partition is the sum of sizes of its parts. Weight is generally not the same as number of vertices.

			Non-isomorphic representatives of the a(1) = 1 through a(6) = 22 multiset partitions:
  {{1}}  {{11}}  {{111}}    {{1111}}    {{11111}}    {{111111}}
                 {{122}}    {{1222}}    {{11222}}    {{112222}}
                 {{1}{11}}  {{1}{111}}  {{12222}}    {{122222}}
                 {{1}{22}}  {{1}{222}}  {{1}{1111}}  {{122333}}
                                        {{11}{111}}  {{1}{11111}}
                                        {{11}{222}}  {{11}{1111}}
                                        {{1}{2222}}  {{1}{11222}}
                                                     {{11}{1222}}
                                                     {{11}{2222}}
                                                     {{112}{222}}
                                                     {{11}{2333}}
                                                     {{1}{22222}}
                                                     {{122}{222}}
                                                     {{1}{22333}}
                                                     {{122}{333}}
                                                     {{2}{11222}}
                                                     {{22}{1222}}
                                                     {{1}{11}{111}}
                                                     {{1}{11}{222}}
                                                     {{1}{22}{222}}
                                                     {{1}{22}{333}}
                                                     {{2}{11}{222}}

Andrew Howroyd, Table of n, a(n) for n = 0..1000

Cf. A000219, A007716, A008289, A059201, A059849, A114736, A117433, A120733, A321653, A321659, A321660, A321662.

\\ here b(n) is A059849(n).
b(n)={sum(k=0, n, stirling(n,k,1)*sum(i=0, k, stirling(k,i,2))^2)}
seq(n)={my(B=vector((sqrtint(8*(n+1))+1)\2, n, b(n-1))); apply(p->sum(i=0, poldegree(p), B[i+1]*polcoef(p,i)), Vec(prod(k=1, n, 1 + x^k*y + O(x*x^n))))} \\ Andrew Howroyd, Nov 16 2018

a(n) = Sum_{k>=1} A059849(k)*A008289(n,k) for n > 0. - Andrew Howroyd, Nov 17 2018

Terms a(11) and beyond from Andrew Howroyd, Nov 16 2018

cp's OEIS Frontend

A114736 Number of planar partitions of n where parts strictly decrease along each row and column.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Mathematica

Extensions

A117433 Number of planar partitions of n with all part sizes distinct.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A068313 Number of (0,1)-matrices with sum of entries equal to n and no zero rows or columns, with weakly decreasing row sums and column sums.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Mathematica

Extensions

A321645 Number of distinct row/column permutations of plane partitions of n.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A321652 Number of nonnegative integer matrices with sum of entries equal to n and no zero rows or columns, with weakly decreasing row sums and column sums.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A321662 Number of non-isomorphic multiset partitions of weight n whose incidence matrix has all distinct entries.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A321659 Number of nonnegative integer matrices with sum of entries equal to n and no zero rows or columns, whose nonzero entries are all distinct.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula