A006052 -id:A006052 - cp's OEIS frontend

A321729 Number of integer partitions of n whose Young diagram can be partitioned into vertical sections of the same sizes as the parts of the original partition.

1, 1, 1, 2, 3, 4, 6, 8, 12, 16, 22, 28, 40, 51

Offset: 0

Gus Wiseman, Nov 18 2018

First differs from A046682 at a(11) = 28, A046682(11) = 29.
A vertical section is a partial Young diagram with at most one square in each row. For example, a suitable partition (shown as a coloring by positive integers) of the Young diagram of (322) is:
  1 2 3
  1 2
  2 3
Conjecture: a(n) is the number of half-loop-graphical partitions of n. An integer partition is half-loop-graphical if it comprises the multiset of vertex-degrees of some graph with half-loops, where a half-loop is an edge with one vertex, to be distinguished from a full loop, which has two equal vertices.

			The a(1) = 1 through a(8) = 12 partitions whose Young diagram cannot be partitioned into vertical sections of the same sizes as the parts of the original partition are the same as the half-loop-graphical partitions up to n = 8:
  (1)  (11)  (21)   (22)    (221)    (222)     (322)      (332)
             (111)  (211)   (311)    (321)     (2221)     (2222)
                    (1111)  (2111)   (2211)    (3211)     (3221)
                            (11111)  (3111)    (4111)     (3311)
                                     (21111)   (22111)    (4211)
                                     (111111)  (31111)    (22211)
                                               (211111)   (32111)
                                               (1111111)  (41111)
                                                          (221111)
                                                          (311111)
                                                          (2111111)
                                                          (11111111)
For example, the half-loop-graphs
  {{1},{1,2},{1,3},{2,3}}
  {{1},{2},{3},{1,2},{1,3}}
both have degrees y = (3,2,2), so y is counted under a(7).

The complement is counted by A321728.
Cf. A000110, A000258, A000700, A000701, A006052, A007016, A008277, A046682, A319056, A319616, A321730, A321737, A321738.
The following pertain to the conjecture.
Half-loop-graphical partitions by length are A029889 or A339843 (covering).
The version for full loops is A339656.
A027187 counts partitions of even length, ranked by A028260.
A058696 counts partitions of even numbers, ranked by A300061.
A320663/A339888 count unlabeled multiset partitions into singletons/pairs.
A322661 counts labeled covering half-loop-graphs, ranked by A340018/A340019.
A339659 is a triangle counting graphical partitions by length.
Cf. A006129, A025065, A062740, A095268, A096373, A167171, A320461, A338915, A339842, A339844, A339845.

spsu[,{}]:={{}};spsu[foo,set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@spsu[Select[foo,Complement[#,Complement[set,s]]=={}&],Complement[set,s]]]/@Cases[foo,{i,_}];
ptnpos[y_]:=Position[Table[1,{#}]&/@y,1];
ptnverts[y_]:=Select[Join@@Table[Subsets[ptnpos[y],{k}],{k,Reverse[Union[y]]}],UnsameQ@@First/@#&];
Table[Length[Select[IntegerPartitions[n],Length[Select[spsu[ptnverts[#],ptnpos[#]],Function[p,Sort[Length/@p]==Sort[#]]]]>0&]],{n,8}]

a(n) is the number of integer partitions y of n such that the coefficient of m(y) in e(y) is nonzero, where m is monomial symmetric functions and e is elementary symmetric functions.

a(n) = A000041(n) - A321728(n).

A321720 Number of non-normal (0,1) semi-magic squares with sum of entries equal to n.

Original entry on oeis.org

1, 1, 2, 6, 25, 120, 726, 5040, 40410, 362881, 3630840, 39916800, 479069574, 6227020800, 87181402140, 1307674370040, 20922977418841, 355687428096000, 6402388104196400, 121645100408832000, 2432903379962038320, 51090942171778378800, 1124000886592995642000, 25852016738884976640000

Offset: 0

Gus Wiseman, Nov 18 2018

nonn

A non-normal semi-magic square is a nonnegative integer matrix with row sums and column sums all equal to d, for some d|n.

Andrew Howroyd, Table of n, a(n) for n = 0..180
Wikipedia, Magic square
Index entries for sequences related to magic squares

Cf. A006052, A007016, A057151, A068313, A008300, A101370, A104602, A120732, A271103, A319056, A319616.

Cf. A321717, A321719, A321722, A321723.

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

a(p) = p! for p prime as the squares are all permutation matrices of order p and a(n) >= n! for n > 1 (see comments in A321717 and A321719). - Chai Wah Wu, Jan 13 2019

a(n) = Sum_{d|n, d<=n/d} A008300(n/d, d) for n > 0. - Andrew Howroyd, Apr 11 2020

a(7) from Chai Wah Wu, Jan 13 2019
a(8)-a(15) from Chai Wah Wu, Jan 14 2019
a(16)-a(21) from Chai Wah Wu, Jan 16 2019
Terms a(22) and beyond from Andrew Howroyd, Apr 11 2020

A321724 Irregular triangle read by rows where T(n,k) is the number of non-isomorphic non-normal semi-magic square multiset partitions of weight n and length d = A027750(n, k).

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 3, 1, 1, 1, 1, 3, 5, 1, 1, 5, 1, 1, 3, 7, 1, 1, 1, 1, 4, 9, 12, 11, 1, 1, 1, 1, 4, 15, 1, 1, 13, 31, 1, 1, 5, 43, 22, 1, 1, 1, 1, 5, 22, 103, 30, 1, 1, 1, 1, 6, 106, 264, 42, 1, 1, 30, 383, 1, 1, 6, 56, 1, 1, 1, 1, 7, 45, 321, 2804, 1731, 77, 1

Offset: 1

Gus Wiseman, Nov 18 2018

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 row sums and column sums all equal to d.
A non-normal semi-magic square multiset partition of weight n is a multiset partition of weight n whose part sizes and vertex degrees are all equal to d, for some d|n.
The weight of a multiset partition is the sum of sizes of its parts. Weight is generally not the same as number of vertices.

			Triangle begins:
  1
  1 1
  1 1
  1 2 1
  1 1
  1 2 3 1
  1 1
  1 3 5 1
  1 5 1
  1 3 7 1
Inequivalent representatives of the T(10,3) = 7 semi-magic squares (zeros not shown):
  [2    ] [2    ] [2    ] [2    ] [2    ] [11   ] [11   ]
  [ 2   ] [ 2   ] [ 2   ] [ 11  ] [ 11  ] [11   ] [1 1  ]
  [  2  ] [  2  ] [  11 ] [ 11  ] [ 1 1 ] [  11 ] [ 1 1 ]
  [   2 ] [   11] [  1 1] [   11] [  1 1] [  1 1] [  1 1]
  [    2] [   11] [   11] [   11] [   11] [   11] [   11]

Andrew Howroyd, Table of n, a(n) for n = 1..207 (rows 1..50)
Wikipedia, Magic square

Row sums are A321721.
Cf. A006052, A007016, A007716, A027750, A057150, A120732, A271103, A319056, A319616.
Cf. A321718, A321719, A321722, A333733.

T(n,k) = A333733(d, n/d), where d = A027750(n, k). - Andrew Howroyd, Apr 11 2020

a(28)-a(39) from Chai Wah Wu, Jan 16 2019
Terms a(40) and beyond from Andrew Howroyd, Apr 11 2020
Edited by Peter Munn, Mar 05 2025

A323347 Number of integer partitions of n whose parts can be arranged into a (not necessarily square) matrix with equal row-sums and equal column-sums.

Original entry on oeis.org

1, 1, 2, 2, 3, 2, 5, 2, 5, 3, 6, 2, 11, 2, 7, 7, 10, 2, 18, 2, 17, 13, 9, 2, 50, 3, 10, 24, 34, 2, 85, 2, 51, 46, 12, 9, 261, 2, 13, 80, 257, 2, 258, 2, 323, 431, 15, 2, 1533, 3, 227, 206, 1165, 2, 971, 483, 2409, 309, 18, 2

Offset: 0

Gus Wiseman, Jan 13 2019

Rectangles must be of size m X k where m, k are divisors of n and mk <= n. This implies that a(p) = 2 for p prime, since the only allowable rectangles must be of size 1 X 1 corresponding to the partition (p), or 1 X p or p X 1 corresponding to the partition (1,1,...,1). Similarly, a(p^2) = 3 since the allowable rectangles must be of sizes 1 X 1 (partition (p^2)), 1 X p or p X 1 (partition (p,p,...,p)), 1 X p^2, p^2 X 1 and p X p (partition (1,1,...,1)). - Chai Wah Wu, Jan 14 2019

			The a(8) = 5 integer partitions are (8), (44), (2222), (3311), (11111111).
The a(12) = 11 integer partitions (C = 12):
  (C)
  (66)
  (444)
  (3333)
  (4422)
  (5511)
  (222222)
  (332211)
  (22221111)
  (222111111)
  (111111111111)
For example, the arrangements of (222111111) are:
  [1 1 2] [1 1 2] [1 2 1] [1 2 1] [2 1 1] [2 1 1]
  [1 2 1] [2 1 1] [1 1 2] [2 1 1] [1 1 2] [1 2 1]
  [2 1 1] [1 2 1] [2 1 1] [1 1 2] [1 2 1] [1 1 2]

A000041(n) = A323348(n) + a(n).
Cf. A006052, A007016, A120733, A319056, A319066, A321719.
Cf. A323300, A323302, A323304, A323306, A323349.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
ptnmats[n_]:=Union@@Permutations/@Select[Union@@(Tuples[Permutations/@#]&/@Map[primeMS,facs[n],{2}]),SameQ@@Length/@#&];
Table[Length[Select[IntegerPartitions[n],!Select[ptnmats[Times@@Prime/@#],And[SameQ@@Total/@#,SameQ@@Total/@Transpose[#]]&]=={}&]],{n,10}]

a(p) = 2 and a(p^2) = 3 for p prime (see comment). - Chai Wah Wu, Jan 14 2019

a(17)-a(53) from Chai Wah Wu, Jan 15 2019

a(54)-a(59) from Chai Wah Wu, Jan 16 2019

A321723 Number of non-normal magic squares whose entries are all 0 or 1 and sum to n.

Original entry on oeis.org

1, 1, 0, 0, 9, 20, 96, 656, 5584, 48913, 494264, 5383552, 65103875, 840566080, 11834159652, 176621049784, 2838040416201, 48060623405312

Offset: 0

Gus Wiseman, Nov 18 2018

A non-normal magic square is a square matrix with row sums, column sums, and both diagonals all equal to d, for some d|n.

			The a(4) = 9 magic squares:
  [1 1]
  [1 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 0 0 1][0 0 0 1]
  [0 0 1 0][0 0 0 1][0 0 1 0][0 0 0 1][1 0 0 0][0 1 0 0][1 0 0 0][0 1 0 0]
  [0 0 0 1][0 1 0 0][1 0 0 0][0 0 1 0][0 1 0 0][0 0 0 1][0 0 1 0][1 0 0 0]
  [0 1 0 0][0 0 1 0][0 0 0 1][1 0 0 0][0 0 0 1][1 0 0 0][0 1 0 0][0 0 1 0]

Wikipedia, Magic square
Index entries for sequences related to magic squares

Cf. A006052, A007016, A057151, A068313, A101370, A104602, A120732, A271103, A319056, A319616.

Cf. A321717, A321718, A321719, A321720, A321721, A321722.

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/@#],SameQ@@Join[{Tr[prs2mat[#]],Tr[Reverse[prs2mat[#]]]},Total/@prs2mat[#],Total/@Transpose[prs2mat[#]]]]&]],{n,5}]

a(n) >= A007016(n) with equality if n is prime. - Chai Wah Wu, Jan 15 2019

a(7)-a(15) from Chai Wah Wu, Jan 15 2019

a(16)-a(17) from Chai Wah Wu, Jan 16 2019

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

Gus Wiseman, Nov 18 2018

nonn

			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]

Ludovic Schwob, Table of n, a(n) for n = 0..30

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

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}]

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

A323302 Number of ways to arrange the parts of the integer partition with Heinz number n into a matrix with equal row-sums and equal column-sums.

Original entry on oeis.org

1, 1, 1, 2, 1, 0, 1, 2, 2, 0, 1, 0, 1, 0, 0, 3, 1, 0, 1, 0, 0, 0, 1, 0, 2, 0, 2, 0, 1, 0, 1, 2, 0, 0, 0, 2, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 2, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 4, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 3, 0, 1, 0, 0, 0, 0

Offset: 1

Gus Wiseman, Jan 13 2019

nonn

The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).

			The a(900) = 12 matrix-arrangements of (3,3,2,2,1,1):
  [1 2 3] [1 3 2] [2 1 3] [2 3 1] [3 1 2] [3 2 1]
  [3 2 1] [3 1 2] [2 3 1] [2 1 3] [1 3 2] [1 2 3]
.
  [1 3] [1 3] [2 2] [2 2] [3 1] [3 1]
  [2 2] [3 1] [1 3] [3 1] [1 3] [2 2]
  [3 1] [2 2] [3 1] [1 3] [2 2] [1 3]

Positions of zeros are a superset of A106543.
Cf. A000005, A001222, A006052, A007016, A008480, A056239, A112798, A120733, A319056, A321719, A321721.
Cf. A323300, A323303, A323305, A323306, A323347, A323349.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
ptnmats[n_]:=Union@@Permutations/@Select[Union@@(Tuples[Permutations/@#]&/@Map[primeMS,facs[n],{2}]),SameQ@@Length/@#&];
Table[Length[Select[ptnmats[n],And[SameQ@@Total/@#,SameQ@@Total/@Transpose[#]]&]],{n,100}]

A321730 Number of ways to partition the Young diagram of an integer partition of n into vertical sections of the same sizes as the parts of the original partition.

Original entry on oeis.org

1, 1, 1, 3, 8, 23, 79, 303, 1294, 5934, 29385, 156232, 884893

Offset: 0

Gus Wiseman, Nov 18 2018

A vertical section is a partial Young diagram with at most one square in each row. For example, a suitable partition (shown as a coloring by positive integers) of the Young diagram of (322) is:
2 3
2
3

			The a(5) = 23 partitions of Young diagrams of integer partitions of 5 into vertical sections of the same sizes as the parts of the original partition, shown as colorings by positive integers:
  1 2 3   1 2 3   1 2 3
  1       2       3
  1       2       3
.
  1 2   1 2   1 2   1 2   1 2   1 2   1 2   1 2   1 2   1 2
  1 2   1 3   1 3   2 1   3 1   3 1   2 3   3 2   2 3   3 2
  3     2     3     3     2     3     1     1     3     3
.
  1 2   1 2   1 2   1 2   1 2   1 2   1 2   1 2   1 2
  1     3     3     2     3     3     3     3     3
  3     1     4     3     2     4     3     4     4
  4     4     1     4     4     2     4     3     4
.
  1
  2
  3
  4
  5

Cf. A000110, A000258, A000700, A000701, A006052, A007016, A008277, A321728, A321729, A321731, A321737, A321738.

spsu[,{}]:={{}};spsu[foo,set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@spsu[Select[foo,Complement[#,Complement[set,s]]=={}&],Complement[set,s]]]/@Cases[foo,{i,_}];
ptnpos[y_]:=Position[Table[1,{#}]&/@y,1];
ptnverts[y_]:=Select[Join@@Table[Subsets[ptnpos[y],{k}],{k,Reverse[Union[y]]}],UnsameQ@@First/@#&];
Table[Sum[Length[Select[spsu[ptnverts[y],ptnpos[y]],Function[p,Sort[Length/@p]==Sort[y]]]],{y,IntegerPartitions[n]}],{n,5}]

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

Gus Wiseman, Nov 18 2018

			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]

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

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}]

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

A323304 Heinz numbers of integer partitions that cannot be arranged into a matrix with equal row-sums and equal column-sums.

Original entry on oeis.org

6, 10, 12, 14, 15, 18, 20, 21, 22, 24, 26, 28, 30, 33, 34, 35, 38, 39, 40, 42, 44, 45, 46, 48, 50, 51, 52, 54, 55, 56, 57, 58, 60, 62, 63, 65, 66, 68, 69, 70, 72, 74, 75, 76, 77, 78, 80, 82, 84, 85, 86, 87, 88, 90, 91, 92, 93, 94, 95, 96, 98, 99, 102, 104, 105

Offset: 1

Gus Wiseman, Jan 13 2019

nonn

The first term of this sequence absent from A106543 is 144.

The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).

Index entries for sequences related to Heinz numbers

Complement of A323306.
Cf. A006052, A007016, A008480, A056239, A112798, A120733, A319056, A321719, A321721.
Cf. A323300, A323302, A323305, A323347, A323348,  A323349.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
ptnmats[n_]:=Union@@Permutations/@Select[Union@@(Tuples[Permutations/@#]&/@Map[primeMS,facs[n],{2}]),SameQ@@Length/@#&];
Select[Range[2,1000],Select[ptnmats[#],And[SameQ@@Total/@#,SameQ@@Total/@Transpose[#]]&]=={}&]

cp's OEIS Frontend

A321729 Number of integer partitions of n whose Young diagram can be partitioned into vertical sections of the same sizes as the parts of the original partition.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A321720 Number of non-normal (0,1) semi-magic squares with sum of entries equal to n.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A321724 Irregular triangle read by rows where T(n,k) is the number of non-isomorphic non-normal semi-magic square multiset partitions of weight n and length d = A027750(n, k).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Formula

Extensions

A323347 Number of integer partitions of n whose parts can be arranged into a (not necessarily square) matrix with equal row-sums and equal column-sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

Extensions

A321723 Number of non-normal magic squares whose entries are all 0 or 1 and sum to n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

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.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A323302 Number of ways to arrange the parts of the integer partition with Heinz number n into a matrix with equal row-sums and equal column-sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A321730 Number of ways to partition the Young diagram of an integer partition of n into vertical sections of the same sizes as the parts of the original partition.

Views

Author

Keywords

Comments

Examples