A319066 -id:A319066 - cp's OEIS frontend

A320328 Number of square multiset partitions of integer partitions of n.

1, 1, 2, 3, 6, 11, 20, 36, 65, 117, 214, 382, 679

Offset: 0

Gus Wiseman, Oct 11 2018

A multiset partition is square if its length is equal to its number of distinct atoms.

			The a(1) = 1 through a(6) = 20 square partitions:
  {{1}}  {{2}}    {{3}}      {{4}}        {{5}}          {{6}}
         {{1,1}}  {{1,1,1}}  {{2,2}}      {{1},{4}}      {{3,3}}
                  {{1},{2}}  {{1},{3}}    {{2},{3}}      {{1},{5}}
                             {{1,1,1,1}}  {{1},{1,3}}    {{2,2,2}}
                             {{1},{1,2}}  {{1},{2,2}}    {{2},{4}}
                             {{2},{1,1}}  {{2},{1,2}}    {{1},{1,4}}
                                          {{3},{1,1}}    {{4},{1,1}}
                                          {{1,1,1,1,1}}  {{1},{1,1,3}}
                                          {{1},{1,1,2}}  {{1,1},{1,3}}
                                          {{1,1},{1,2}}  {{1},{1,2,2}}
                                          {{2},{1,1,1}}  {{1,1},{2,2}}
                                                         {{1,2},{1,2}}
                                                         {{1},{2},{3}}
                                                         {{2},{1,1,2}}
                                                         {{3},{1,1,1}}
                                                         {{1,1,1,1,1,1}}
                                                         {{1},{1,1,1,2}}
                                                         {{1,1},{1,1,2}}
                                                         {{1,2},{1,1,1}}
                                                         {{2},{1,1,1,1}}

Cf. A000219, A001970, A047968, A050342, A089259, A141268, A261049, A289501, A305551, A316983, A319066, A319312, A319616, A320330, A320331.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];
Table[Length[Select[Join@@mps/@IntegerPartitions[n],Length[#]==Length[Union@@#]&]],{n,8}]

A306319 Number of length-rectangular twice-partitions of n.

Original entry on oeis.org

1, 1, 3, 5, 10, 14, 26, 35, 60, 82, 131, 177, 286, 376, 582, 793, 1202, 1610, 2450, 3274, 4906, 6665, 9770, 13274, 19690, 26506, 38596, 53006, 76432, 104189, 150844, 205282, 294304, 404146, 573140, 786169, 1119457, 1527554, 2155953, 2965567, 4163955, 5701816

Offset: 0

Gus Wiseman, Feb 07 2019

nonn

A twice partition of n is a sequence of integer partitions, one of each part in an integer partition of n. It is length-rectangular if all parts have the same number of parts.

			The a(5) = 14 length-rectangular twice-partitions:
  [5] [4 1] [3 2] [3 1 1] [2 2 1] [2 1 1 1] [1 1 1 1 1]
.
  [4] [3] [2 1]
  [1] [2] [1 1]
.
  [3] [2]
  [1] [2]
  [1] [1]
.
  [2]
  [1]
  [1]
  [1]
.
  [1]
  [1]
  [1]
  [1]
  [1]

Dominates A319066 (rectangular partitions of partitions), which dominates A323429 (rectangular plane partitions).

Cf. A000219, A001970, A063834 (twice-partitions), A089299, A271619, A279787 (sum-rectangular twice-partitions), A305551, A306017, A306318 (square case), A323531.

Table[Length[Join@@Table[Select[Tuples[IntegerPartitions/@ptn],SameQ@@Length/@#&],{ptn,IntegerPartitions[n]}]],{n,20}]

A358905 Number of sequences of integer partitions with total sum n that are rectangular, meaning all lengths are equal.

Original entry on oeis.org

1, 1, 3, 6, 13, 24, 49, 91, 179, 341, 664, 1280, 2503, 4872, 9557, 18750, 36927, 72800, 143880, 284660, 564093, 1118911, 2221834, 4415417, 8781591, 17476099, 34799199, 69327512, 138176461, 275503854, 549502119, 1096327380, 2187894634, 4367310138, 8719509111

Offset: 0

Gus Wiseman, Dec 07 2022

nonn

			The a(0) = 1 through a(4) = 13 sequences:
  ()  ((1))  ((2))     ((3))        ((4))
             ((11))    ((21))       ((22))
             ((1)(1))  ((111))      ((31))
                       ((1)(2))     ((211))
                       ((2)(1))     ((1111))
                       ((1)(1)(1))  ((1)(3))
                                    ((2)(2))
                                    ((3)(1))
                                    ((11)(11))
                                    ((1)(1)(2))
                                    ((1)(2)(1))
                                    ((2)(1)(1))
                                    ((1)(1)(1)(1))

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

The case of set partitions is A038041.
The version for weakly decreasing lengths is A141199, strictly A358836.
For equal sums instead of lengths we have A279787.
The case of twice-partitions is A306319, distinct A358830.
The unordered version is A319066.
The case of plane partitions is A323429.
The case of constant sums also is A358833.
A055887 counts sequences of partitions with total sum n.
A281145 counts same-trees.
A319169 counts partitions with constant Omega, ranked by A320324.
A358911 counts compositions with constant Omega, distinct A358912.
Cf. A000041, A000219, A001970, A063834, A218482, A305551, A358835.

ptnseq[n_]:=Join@@Table[Tuples[IntegerPartitions/@comp],{comp,Join@@Permutations/@IntegerPartitions[n]}];
Table[Length[Select[ptnseq[n],SameQ@@Length/@#&]],{n,0,10}]

P(n,y) = {1/prod(k=1, n, 1 - y*x^k + O(x*x^n))}
seq(n) = {my(g=P(n,y)); Vec(1 + sum(k=1, n, 1/(1 - polcoef(g, k, y)) - 1))} \\ Andrew Howroyd, Dec 31 2022

G.f.: 1 + Sum_{k>=1} (1/(1 - [y^k]P(x,y)) - 1) where P(x,y) = 1/Product_{k>=1} (1 - y*x^k). - Andrew Howroyd, Dec 31 2022

Terms a(16) and beyond from Andrew Howroyd, Dec 31 2022

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

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 19, 23, 25, 27, 29, 31, 32, 36, 37, 41, 43, 47, 49, 53, 59, 61, 64, 67, 71, 73, 79, 81, 83, 89, 97, 100, 101, 103, 107, 109, 113, 121, 125, 127, 128, 131, 137, 139, 149, 151, 157, 163, 167, 169, 173, 179, 181, 191, 193

Offset: 1

Gus Wiseman, Jan 13 2019

nonn

First differs from A137944 in lacking 120.

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

			6480 belongs to the sequence because it is the Heinz number of (3,2,2,2,2,1,1,1,1), which can be arranged in the following ways:
  [1 1 3] [1 2 2] [1 2 2] [1 3 1] [2 1 2] [2 1 2] [2 2 1] [2 2 1] [3 1 1]
  [2 2 1] [1 2 2] [3 1 1] [2 1 2] [1 3 1] [2 1 2] [1 1 3] [2 2 1] [1 2 2]
  [2 2 1] [3 1 1] [1 2 2] [2 1 2] [2 1 2] [1 3 1] [2 2 1] [1 1 3] [1 2 2]

Index entries for sequences related to Heinz numbers

Complement of A323304.
Cf. A006052, A007016, A056239, A112798, A120733, A319056, A319066, A321719.
Cf. A323300, A323302, 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[100],!Select[ptnmats[#],And[SameQ@@Total/@#,SameQ@@Total/@Transpose[#]]&]=={}&]

A358911 Number of integer compositions of n whose parts all have the same number of prime factors, counted with multiplicity.

Original entry on oeis.org

1, 1, 2, 2, 3, 4, 4, 7, 9, 12, 20, 21, 39, 49, 79, 109, 161, 236, 345, 512, 752, 1092, 1628, 2376, 3537, 5171, 7650, 11266, 16634, 24537, 36173, 53377, 78791, 116224, 171598, 253109, 373715, 551434, 814066, 1201466, 1773425, 2617744, 3864050, 5703840, 8419699

Offset: 0

Gus Wiseman, Dec 11 2022

nonn

			The a(1) = 1 through a(8) = 9 compositions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (23)     (33)      (25)       (35)
                    (1111)  (32)     (222)     (52)       (44)
                            (11111)  (111111)  (223)      (53)
                                               (232)      (233)
                                               (322)      (323)
                                               (1111111)  (332)
                                                          (2222)
                                                          (11111111)

Alois P. Heinz, Table of n, a(n) for n = 0..4000 (first 101 terms from Lucas A. Brown)
Lucas A. Brown, Python program.

The case of partitions is A319169, ranked by A320324.
The weakly decreasing version is A358335, strictly A358901.
For sequences of partitions see A358905.
A001222 counts prime factors, distinct A001221.
A011782 counts compositions.
A358902 = compositions with weakly decreasing A001221, strictly A358903.
A358909 = partitions with weakly decreasing A001222, complement A358910.
Cf. A056239, A063834, A064573, A218482, A279787, A300335, A319066, A319071, A358831, A358908.

b:= proc(n, i) option remember; uses numtheory; `if`(n=0, 1, add(
     (t-> `if`(i<0 or i=t, b(n-j, t), 0))(bigomega(j)), j=1..n))
    end:
a:= n-> b(n, -1):
seq(a(n), n=0..44);  # Alois P. Heinz, Feb 12 2024

Table[Length[Select[Join @@ Permutations/@IntegerPartitions[n],SameQ@@PrimeOmega/@#&]],{n,0,10}]

a(21) and beyond from Lucas A. Brown, Dec 15 2022

A375396 Numbers not divisible by the square of any prime factor except (possibly) the least. Hooklike numbers.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 51, 52, 53, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71

Offset: 1

Gus Wiseman, Aug 16 2024

nonn

Also numbers k such that the minima of the maximal anti-runs in the weakly increasing sequence of prime factors of k (with multiplicity) are identical. Here, an anti-run is a sequence with no adjacent equal parts, and the minima of the maximal anti-runs in a sequence are obtained by splitting it into maximal anti-run subsequences and taking the least term of each. Note the prime factors can alternatively be taken in weakly decreasing order.
The complement is a superset of A036785 = products of a squarefree number and a prime power.
The asymptotic density of this sequence is (1/zeta(2)) * (1 + Sum_{p prime} (1/(p^2-p)) / Product_{primes q <= p} (1 + 1/q)) = 0.884855661165... . - Amiram Eldar, Oct 26 2024

			The prime factors of 300 are {2,2,3,5,5}, with maximal anti-runs {{2},{2,3,5},{5}}, with minima (2,2,5), so 300 is not in the sequence.

Amiram Eldar, Table of n, a(n) for n = 1..10000
Gus Wiseman, Sequences counting and ranking compositions by their leaders (for six types of runs).

The complement is a superset of A036785.
For maxima instead of minima we have A065200, counted by A034296.
The complement for maxima is A065201, counted by A239955.
Partitions of this type are counted by A115029.
A version for compositions is A374519, counted by A374517.
Also positions of identical rows in A375128, sums A374706, ranks A375400.
The complement is A375397, counted by A375405.
For distinct instead of identical minima we have A375398, counts A375134.
The complement for distinct minima is A375399, counted by A375404.
A000041 counts integer partitions, strict A000009.
A003242 counts anti-run compositions, ranks A333489.
A011782 comps counts compositions.
A number's prime factors (A027746, reverse A238689) have sum A001414, min A020639, max A006530.
A number's prime indices (A112798, reverse A296150) have sum A056239, min A055396, max A061395.
Both have length A001222, distinct A001221.
See the formula section for the relationships with A005117, A028234.
Cf. A000005, A013661, A046660, A272919, A319066, A358905, A374686, A374704, A374742, A375133, A375136, A375401.

Select[Range[100],SameQ@@Min /@ Split[Flatten[ConstantArray@@@FactorInteger[#]],UnsameQ]&]

is(k) = if(k > 1, my(e = factor(k)[, 2]); vecprod(e) == e[1], 1); \\ Amiram Eldar, Oct 26 2024

{a(n)} = {k >= 1 : A028234(k) is in A005117}. - Peter Munn, May 09 2025

A320330 Number of T_0 multiset partitions of integer partitions of n.

Original entry on oeis.org

1, 1, 3, 5, 13, 25, 50, 100, 195, 366, 707, 1333, 2440

Offset: 0

Gus Wiseman, Oct 11 2018

The dual of a multiset partition has, for each vertex, one part consisting of the indices (or positions) of the parts containing that vertex, counted with multiplicity. For example, the dual of {{1,2},{2,2}} is {{1},{1,2,2}}. The T_0 condition means the dual is strict.

			The a(1) = 1 through a(5) = 25 multiset partitions:
  {{1}}  {{2}}      {{3}}          {{4}}              {{5}}
         {{1,1}}    {{1,1,1}}      {{2,2}}            {{1,1,3}}
         {{1},{1}}  {{1},{2}}      {{1,1,2}}          {{1,2,2}}
                    {{1},{1,1}}    {{1},{3}}          {{1},{4}}
                    {{1},{1},{1}}  {{2},{2}}          {{2},{3}}
                                   {{1,1,1,1}}        {{1,1,1,2}}
                                   {{1},{1,2}}        {{1},{1,3}}
                                   {{2},{1,1}}        {{1},{2,2}}
                                   {{1},{1,1,1}}      {{2},{1,2}}
                                   {{1,1},{1,1}}      {{3},{1,1}}
                                   {{1},{1},{2}}      {{1,1,1,1,1}}
                                   {{1},{1},{1,1}}    {{1},{1,1,2}}
                                   {{1},{1},{1},{1}}  {{1,1},{1,2}}
                                                      {{1},{1},{3}}
                                                      {{1},{2},{2}}
                                                      {{2},{1,1,1}}
                                                      {{1},{1,1,1,1}}
                                                      {{1,1},{1,1,1}}
                                                      {{1},{1},{1,2}}
                                                      {{1},{2},{1,1}}
                                                      {{1},{1},{1,1,1}}
                                                      {{1},{1,1},{1,1}}
                                                      {{1},{1},{1},{2}}
                                                      {{1},{1},{1},{1,1}}
                                                      {{1},{1},{1},{1},{1}}

Cf. A001970, A047968, A050342, A089259, A141268, A261049, A289501, A305551, A316983, A319066, A319312, A320328, A320331.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];
dual[eds_]:=Table[First/@Position[eds,x],{x,Union@@eds}];
Table[Length[Select[Join@@mps/@IntegerPartitions[n],UnsameQ@@dual[#]&]],{n,8}]

A319071 Number of integer partitions of n whose product of parts is a perfect power and whose parts all have the same number of prime factors, counted with multiplicity.

Original entry on oeis.org

1, 0, 0, 0, 2, 0, 2, 0, 3, 2, 3, 0, 4, 1, 4, 3, 7, 1, 7, 1, 8, 6, 8, 0, 15, 5, 12, 6, 15, 4, 22, 4, 24, 12, 22, 8, 35, 7, 30, 16, 42, 9, 50, 9, 50, 30, 53, 7, 79, 22, 72, 33, 87, 21, 109, 26, 111, 55, 117, 24, 168, 40, 149, 65, 178, 59

Offset: 0

Gus Wiseman, Oct 10 2018

nonn

The positions of zeros appear to be A048278.

			The a(4) = 2 through a(16) = 7 integer partitions (G = 16):
  4   33   8     9    55     66      94  77       555     G
  22  222  44    333  3322   444         5522     33333   88
           2222       22222  3333        332222   333222  664
                             222222      2222222          4444
                                                          5533
                                                          333322
                                                          22222222

Cf. A003963, A048278, A064573, A279787, A305551, A319056, A319066, A319169, A320322, A320323.

Table[Length[Select[IntegerPartitions[n],And[GCD@@FactorInteger[Times@@#][[All,2]]>1,SameQ@@PrimeOmega/@#]&]],{n,30}]

A320331 Number of strict T_0 multiset partitions of integer partitions of n.

Original entry on oeis.org

1, 1, 2, 4, 8, 17, 30, 61, 110, 207, 381, 711, 1250

Offset: 0

Gus Wiseman, Oct 11 2018

The dual of a multiset partition has, for each vertex, one part consisting of the indices (or positions) of the parts containing that vertex, counted with multiplicity. For example, the dual of {{1,2},{2,2}} is {{1},{1,2,2}}. The T_0 condition means the dual is strict.

			The a(1) = 1 through a(5) = 17 multiset partitions:
  {{1}}  {{2}}    {{3}}        {{4}}          {{5}}
         {{1,1}}  {{1,1,1}}    {{2,2}}        {{1,1,3}}
                  {{1},{2}}    {{1,1,2}}      {{1,2,2}}
                  {{1},{1,1}}  {{1},{3}}      {{1},{4}}
                               {{1,1,1,1}}    {{2},{3}}
                               {{1},{1,2}}    {{1,1,1,2}}
                               {{2},{1,1}}    {{1},{1,3}}
                               {{1},{1,1,1}}  {{1},{2,2}}
                                              {{2},{1,2}}
                                              {{3},{1,1}}
                                              {{1,1,1,1,1}}
                                              {{1},{1,1,2}}
                                              {{1,1},{1,2}}
                                              {{2},{1,1,1}}
                                              {{1},{1,1,1,1}}
                                              {{1,1},{1,1,1}}
                                              {{1},{2},{1,1}}

Cf. A001970, A047968, A050342, A089259, A141268, A261049, A289501, A305551, A319066, A319312, A320328, A320330.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];
dual[eds_]:=Table[First/@Position[eds,x],{x,Union@@eds}];
Table[Length[Select[Join@@mps/@IntegerPartitions[n],And[UnsameQ@@#,UnsameQ@@dual[#]]&]],{n,8}]

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

cp's OEIS Frontend

A320328 Number of square multiset partitions of integer partitions of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A306319 Number of length-rectangular twice-partitions of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A358905 Number of sequences of integer partitions with total sum n that are rectangular, meaning all lengths are equal.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A358911 Number of integer compositions of n whose parts all have the same number of prime factors, counted with multiplicity.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Extensions

A375396 Numbers not divisible by the square of any prime factor except (possibly) the least. Hooklike numbers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A320330 Number of T_0 multiset partitions of integer partitions of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A319071 Number of integer partitions of n whose product of parts is a perfect power and whose parts all have the same number of prime factors, counted with multiplicity.

Views

Author

Keywords

Comments

Examples

Crossrefs