cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-5 of 5 results.

A321732 Number of nonnegative integer square matrices with sum of entries equal to n, no zero rows or columns, and the same row sums as column sums.

Original entry on oeis.org

1, 1, 3, 11, 53, 317, 2293, 19435, 188851, 2068417, 25203807, 338117445, 4951449055, 78589443061, 1343810727205, 24626270763109, 481489261372381, 10004230113283129, 220125503239710879, 5113204953106107087, 125037079246130168973
Offset: 0

Views

Author

Gus Wiseman, Nov 18 2018

Keywords

Examples

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

Links

Crossrefs

Cf. A000700, A000701, A006052, A007016, A120732, A319056, A320451, A321718, A321719, A321722, A321733, A321734, A321735, A321736, A321739.

Programs

  • Mathematica
    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/@#],Total/@prs2mat[#]==Total/@Transpose[prs2mat[#]]]&]],{n,5}]

Extensions

a(7) onwards from Ludovic Schwob, Apr 03 2024

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

Original entry on oeis.org

1, 1, 2, 7, 30, 153, 939, 6653, 53743, 486576
Offset: 0

Views

Author

Gus Wiseman, Nov 18 2018

Keywords

Examples

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

Crossrefs

Cf. A000700, A007016, A049311, A054976, A057151, A104602, A320451, A321719, A321723, A321732, A321733, A321736, A321739.

Programs

  • Mathematica
    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/@#],OrderedQ[Total/@prs2mat[#]],OrderedQ[Total/@Transpose[prs2mat[#]]],Total/@prs2mat[#]==Total/@Transpose[prs2mat[#]]]&]],{n,5}]

Formula

Let c(y) be the coefficient of m(y) in e(y), where m is monomial symmetric functions and e is elementary symmetric functions. Then a(n) = Sum_{|y| = n} c(y).

A321736 Number of non-isomorphic weight-n multiset partitions whose part-sizes are also their vertex-degrees.

Original entry on oeis.org

1, 1, 2, 4, 9, 17, 42, 92, 231, 579, 1577
Offset: 0

Views

Author

Gus Wiseman, Nov 19 2018

Keywords

Comments

Also the number of nonnegative integer square matrices up to row and column permutations with sum of elements equal to n and no zero rows or columns, with the same multiset of row sums as of column sums.
The weight of a multiset partition is the sum of sizes of its parts. Weight is generally not the same as number of vertices.

Examples

			Non-isomorphic representatives of the a(1) = 1 through a(5) = 17 multiset partitions:
  {{1}}  {{1,1}}    {{1,1,1}}      {{1,1,1,1}}        {{1,1,1,1,1}}
         {{1},{2}}  {{1},{2,2}}    {{1,1},{2,2}}      {{1,1},{1,2,2}}
                    {{2},{1,2}}    {{1,2},{1,2}}      {{1,1},{2,2,2}}
                    {{1},{2},{3}}  {{1},{2,2,2}}      {{1,2},{1,2,2}}
                                   {{2},{1,2,2}}      {{1},{2,2,2,2}}
                                   {{1},{1},{2,3}}    {{2},{1,2,2,2}}
                                   {{1},{2},{3,3}}    {{1},{2,2},{3,3}}
                                   {{1},{3},{2,3}}    {{1},{2,3},{2,3}}
                                   {{1},{2},{3},{4}}  {{1},{2},{3,3,3}}
                                                      {{1},{3},{2,3,3}}
                                                      {{2},{1,2},{3,3}}
                                                      {{2},{1,3},{2,3}}
                                                      {{3},{3},{1,2,3}}
                                                      {{1},{2},{2},{3,4}}
                                                      {{1},{2},{3},{4,4}}
                                                      {{1},{2},{4},{3,4}}
                                                      {{1},{2},{3},{4},{5}}

Crossrefs

Cf. A000700, A007716, A057150, A120732, A319056, A319616, A320451, A321719, A321721, A321722, A321724, A321732, A321733, A321735, A321739.

A321733 Number of (0,1)-matrices with n ones, no zero rows or columns, and the same row sums as column sums.

Original entry on oeis.org

1, 1, 2, 8, 40, 246, 1816, 15630, 153592, 1696760, 20816358, 280807868, 4131117440, 65823490088, 1129256780408
Offset: 0

Views

Author

Gus Wiseman, Nov 18 2018

Keywords

Examples

			The a(4) = 40 matrices:
  [1 1]
  [1 1]
.
  [1 1 0][1 1 0][1 0 1][1 0 1][1 0 0]
  [1 0 0][0 0 1][1 0 0][0 1 0][0 1 1]
  [0 0 1][1 0 0][0 1 0][1 0 0][0 1 0]
.
  [1 0 0][0 1 1][0 1 0][0 1 0][0 1 0]
  [0 0 1][1 0 0][1 1 0][1 0 1][0 1 1]
  [0 1 1][1 0 0][0 0 1][0 1 0][1 0 0]
.
  [0 1 0][0 0 1][0 0 1][0 0 1][0 0 1]
  [0 0 1][1 1 0][1 0 0][0 1 0][0 0 1]
  [1 0 1][0 1 0][0 1 1][1 0 1][1 1 0]
.
  [1 0 0 0][1 0 0 0][1 0 0 0][1 0 0 0][1 0 0 0][1 0 0 0]
  [0 1 0 0][0 1 0 0][0 0 1 0][0 0 1 0][0 0 0 1][0 0 0 1]
  [0 0 1 0][0 0 0 1][0 1 0 0][0 0 0 1][0 1 0 0][0 0 1 0]
  [0 0 0 1][0 0 1 0][0 0 0 1][0 1 0 0][0 0 1 0][0 1 0 0]
.
  [0 1 0 0][0 1 0 0][0 1 0 0][0 1 0 0][0 1 0 0][0 1 0 0]
  [1 0 0 0][1 0 0 0][0 0 1 0][0 0 1 0][0 0 0 1][0 0 0 1]
  [0 0 1 0][0 0 0 1][1 0 0 0][0 0 0 1][1 0 0 0][0 0 1 0]
  [0 0 0 1][0 0 1 0][0 0 0 1][1 0 0 0][0 0 1 0][1 0 0 0]
.
  [0 0 1 0][0 0 1 0][0 0 1 0][0 0 1 0][0 0 1 0][0 0 1 0]
  [1 0 0 0][1 0 0 0][0 1 0 0][0 1 0 0][0 0 0 1][0 0 0 1]
  [0 1 0 0][0 0 0 1][1 0 0 0][0 0 0 1][1 0 0 0][0 1 0 0]
  [0 0 0 1][0 1 0 0][0 0 0 1][1 0 0 0][0 1 0 0][1 0 0 0]
.
  [0 0 0 1][0 0 0 1][0 0 0 1][0 0 0 1][0 0 0 1][0 0 0 1]
  [1 0 0 0][1 0 0 0][0 1 0 0][0 1 0 0][0 0 1 0][0 0 1 0]
  [0 1 0 0][0 0 1 0][1 0 0 0][0 0 1 0][1 0 0 0][0 1 0 0]
  [0 0 1 0][0 1 0 0][0 0 1 0][1 0 0 0][0 1 0 0][1 0 0 0]

Crossrefs

Cf. A006052, A007016, A049311, A054976, A057151, A104602, A120732, A319056, A321717, A321723, A321732, A321735, A321736, A321739.

Programs

  • Mathematica
    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[Subsets[Tuples[Range[n],2],{n}],And[Union[First/@#]==Range[Max@@First/@#]==Union[Last/@#],Total/@prs2mat[#]==Total/@Transpose[prs2mat[#]]]&]],{n,5}]

Extensions

a(7)-a(14) from Lars Blomberg, May 23 2019

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

Original entry on oeis.org

1, 1, 3, 9, 37, 177, 1054, 7237, 57447, 512664, 5101453, 55870885, 668438484, 8667987140, 121123281293, 1814038728900, 28988885491655, 492308367375189, 8854101716492463, 168108959387012804, 3360171602215686668, 70527588239926854144, 1550926052235372201700
Offset: 0

Views

Author

Gus Wiseman, Nov 18 2018

Keywords

Examples

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

Crossrefs

Cf. A000700, A006052, A007016, A007716, A120732, A319056, A319616, A320451, A321719, A321722, A321732, A321735, A321736, A321739.

Programs

  • Mathematica
    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/@#],OrderedQ[Total/@prs2mat[#]],OrderedQ[Total/@Transpose[prs2mat[#]]],Total/@prs2mat[#]==Total/@Transpose[prs2mat[#]]]&]],{n,5}]

Formula

Let c(y) be the coefficient of m(y) in h(y), where m is monomial symmetric functions and h is homogeneous symmetric functions. Then a(n) = Sum_{|y| = n} c(y).

Extensions

a(11) - a(22) from Ludovic Schwob, Sep 29 2023
Showing 1-5 of 5 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.