A381715 -id:A381715 - cp's OEIS frontend

A381993 Number of integer partitions of n that cannot be partitioned into constant multisets with a common sum.

0, 0, 0, 1, 1, 5, 4, 13, 13, 25, 33, 54, 54, 99, 124, 166, 207, 295, 352, 488, 591, 780, 987, 1253, 1488, 1951, 2419, 2993, 3665, 4563, 5508, 6840, 8270, 10127, 12289, 14869, 17781, 21635, 25992, 31167, 37184, 44581, 53008, 63259, 75076, 89080, 105531, 124752, 146842, 173516, 204141, 239921, 281461, 329929, 385852

Offset: 0

Gus Wiseman, Mar 17 2025

nonn

			The multiset partition {{2},{2},{1,1},{1,1}} has both properties (constant blocks and common sum), so (2,2,1,1,1,1) is not counted under a(8). We can also use {{2,2},{1,1,1,1}}.
The a(3) = 1 through a(8) = 13 partitions:
  (21)  (31)  (32)    (42)   (43)      (53)
              (41)    (51)   (52)      (62)
              (221)   (321)  (61)      (71)
              (311)   (411)  (322)     (332)
              (2111)         (331)     (431)
                             (421)     (521)
                             (511)     (611)
                             (2221)    (3221)
                             (3211)    (3311)
                             (4111)    (4211)
                             (22111)   (5111)
                             (31111)   (32111)
                             (211111)  (311111)

Twice-partitions of this type (constant with equal) are counted by A279789.
Multiset partitions of this type are ranked by A326534 /\ A355743.
For distinct instead of equal block-sums we have A381717.
These partitions are ranked by A381871, zeros of A381995.
For strict instead of constant blocks we have A381994, see A381719, A382080.
The strict case is A382076.
Normal multiset partitions of this type are counted by A382204.
A001055 counts factorizations, strict A045778.
A050361 counts factorizations into distinct prime powers, see A381715.
A317141 counts coarsenings of prime indices, refinements A300383.
Cf. A000688, A006171, A047966, A265947, A279784, A381453, A381455, A381635, A381636, A381992.

mce[y_]:=Table[ConstantArray[y[[1]],#]&/@ptn,{ptn,IntegerPartitions[Length[y]]}];
Table[Length[Select[IntegerPartitions[n],Length[Select[Join@@@Tuples[mce/@Split[#]],SameQ@@Total/@#&]]==0&]],{n,0,30}]

a(31)-a(54) from Robert Price, Mar 31 2025

A381637 Number of multisets that can be obtained by taking the sum of each block of a multiset partition of the prime indices of n into blocks with distinct sums.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 2, 2, 1, 3, 1, 3, 2, 2, 1, 3, 1, 2, 2, 3, 1, 4, 1, 3, 2, 2, 2, 4, 1, 2, 2, 4, 1, 5, 1, 3, 3, 2, 1, 4, 1, 3, 2, 3, 1, 5, 2, 5, 2, 2, 1, 5, 1, 2, 2, 4, 2, 5, 1, 3, 2, 4, 1, 5, 1, 2, 3, 3, 2, 5, 1, 5, 2, 2, 1, 6, 2, 2, 2

Offset: 1

Gus Wiseman, Mar 10 2025

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

			The prime indices of 84 are {1,1,2,4}, with 7 multiset partitions into blocks with distinct sums:
  {{1,1,2,4}}
  {{1},{1,2,4}}
  {{2},{1,1,4}}
  {{1,1},{2,4}}
  {{1,2},{1,4}}
  {{1},{2},{1,4}}
  {{1},{4},{1,2}}
with block-sums: {8}, {1,7}, {2,6}, {2,6}, {3,5}, {1,2,5}, {1,3,4}, of which 6 are distinct, so a(84) = 6.

Allowing any block-sums gives A317141  (lower A300383), before sums A001055.
Before taking sums we had A321469.
For distinct blocks instead of distinct block-sums we have A381452.
If each block is a set we have A381634 (zeros A381806), before sums A381633.
For equal instead of distinct block-sums we have A381872, before sums A321455.
Other multiset partitions of prime indices:
- For multisets of constant multisets (A000688) see A381455 (upper), A381453 (lower).
- For set multipartitions (A050320) see A381078 (upper), A381454 (lower).
- For sets of constant multisets (A050361) see A381715.
- For sets of constant multisets with distinct sums (A381635) see A381716, A381636.
A003963 gives product of prime indices.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A265947 counts refinement-ordered pairs of integer partitions.
Cf. A000720, A001222, A001970, A002846, A045778, A066328, A213385, A299200, A299201, A299202, A300385, A317142.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[mset_]:=Union[Sort[Sort/@(#/.x_Integer:>mset[[x]])]&/@sps[Range[Length[mset]]]];
Table[Length[Union[Sort[Total/@#]&/@Select[mps[prix[n]],UnsameQ@@Total/@#&]]],{n,100}]

A383014 Numbers whose prime indices can be partitioned into constant blocks with a common sum.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Apr 22 2025

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798, sum A056239.

			The prime indices of 36 are {1,1,2,2}, and a partition into constant blocks with a common sum is: {{2},{2},{1,1}}, so 36 is in the sequence.
The prime indices of 43200 are {1,1,1,1,1,1,2,2,2,3,3}, and a partition into constant blocks with a common sum is: {{{1,1,1,1,1,1},{2,2,2},{3,3}}}, so 43200 is in the sequence.
The prime indices of 520000 are {1,1,1,1,1,1,3,3,3,3,6} and a partition into constant blocks with a common sum is: {{1,1,1,1,1,1},{3,3},{3,3},{6}}, so 520000 is in the sequence.
The terms together with their prime indices begin:
   1: {}
   2: {1}
   3: {2}
   4: {1,1}
   5: {3}
   7: {4}
   8: {1,1,1}
   9: {2,2}
  11: {5}
  12: {1,1,2}
  13: {6}
  16: {1,1,1,1}
  17: {7}
  19: {8}
  23: {9}
  25: {3,3}
  27: {2,2,2}
  29: {10}
  31: {11}
  32: {1,1,1,1,1}
  36: {1,1,2,2}
  37: {12}
  40: {1,1,1,3}

Twice-partitions of this type (constant blocks with a common sum) are counted by A279789.
Includes all elements of A353833.
For distinct sums we have the complement of A381636.
For strict blocks we have the complement of A381719.
For distinct sums and strict blocks we have the complement of A381806.
The complement is A381871, counted by A381993.
These are the positions of positive terms in A381995.
Partitions of this type are counted by A383093.
Constant blocks: A000688, A006171, A279784, A295935, A381453 (lower), A381455 (upper).
A001055 counts factorizations (multiset partitions of prime indices), strict A045778.
A050361 counts factorizations into distinct prime powers.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A317141 counts coarsenings of prime indices, refinements A300383.
Cf. A000720, A000961, A001222, A321469, A381635, A381715, A381716, A381717.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]];
mce[y_]:=Table[ConstantArray[y[[1]],#]&/@ptn, {ptn,IntegerPartitions[Length[y]]}];
Select[Range[100], Select[Join@@@Tuples[mce/@Split[prix[#]]], SameQ@@Total/@#&]!={}&]

A382215 MM-numbers of multiset partitions into constant blocks with a common sum.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 16, 17, 19, 23, 25, 27, 31, 32, 35, 41, 49, 53, 59, 64, 67, 81, 83, 97, 103, 109, 121, 125, 127, 128, 131, 157, 175, 179, 191, 209, 211, 227, 241, 243, 245, 256, 277, 283, 289, 311, 331, 343, 353, 361, 367, 391, 401, 419, 431, 461

Offset: 1

Gus Wiseman, Mar 21 2025

nonn

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798, sum A056239. The multiset of multisets with MM-number n is formed by taking the multiset of prime indices of each part of the multiset of prime indices of n. For example, the prime indices of 78 are {1,2,6}, so the multiset of multisets with MM-number 78 is {{},{1},{1,2}}.

			The terms together with their prime indices of prime indices begin:
   1: {}
   2: {{}}
   3: {{1}}
   4: {{},{}}
   5: {{2}}
   7: {{1,1}}
   8: {{},{},{}}
   9: {{1},{1}}
  11: {{3}}
  16: {{},{},{},{}}
  17: {{4}}
  19: {{1,1,1}}
  23: {{2,2}}
  25: {{2},{2}}
  27: {{1},{1},{1}}
  31: {{5}}
  32: {{},{},{},{},{}}
  35: {{2},{1,1}}
  41: {{6}}
  49: {{1,1},{1,1}}
  53: {{1,1,1,1}}
  59: {{7}}

Twice-partitions of this type are counted by A279789.
For just constant blocks we have A302492, counted by A000688.
For sets of constant multisets we have A302496, counted by A050361.
For just common sums we have A326534, counted by A321455.
Factorizations of this type are counted by A381995.
For strict blocks and distinct sums we have A382201, counted by A381633.
Normal multiset partitions of this type are counted by A382204.
For strict instead of constant blocks we have A382304, counted by A382080.
For sets of constant multisets with distinct sums A382426, counted by A381635.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A124010 gives prime signature, sorted A118914, length A001221, sum A001222.
Cf. A000720, A000961, A001055, A302242, A302601, A368100, A381715, A381716, A381636, A381871.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],SameQ@@Total/@prix/@prix[#] && And@@SameQ@@@prix/@prix[#]&]

is(k) = my(f=factor(k)[, 1]~, k, p, v=vector(#f, i, primepi(f[i]))); for(i=1, #v, k=isprimepower(v[i], &p); if(k||v[i]==1, v[i]=k*primepi(p), return(0))); #Set(v)<2; \\ Jinyuan Wang, Apr 02 2025

Equals A326534 /\ A302492.

A383093 Number of integer partitions of n that can be partitioned into constant blocks with a common sum.

Original entry on oeis.org

1, 1, 2, 2, 4, 2, 7, 2, 9, 5, 9, 2, 23, 2, 11, 10, 24, 2, 33, 2, 36, 12, 15, 2, 87, 7, 17, 17, 53, 2, 96, 2, 79, 16, 21, 14, 196, 2, 23, 18, 154, 2, 166, 2, 99, 54, 27, 2, 431, 9, 85, 22, 128, 2, 303, 18, 261, 24, 33, 2, 771, 2, 35, 73, 331, 20, 422, 2, 198, 28, 216, 2, 1369

Offset: 0

Gus Wiseman, Apr 22 2025

nonn

			The partition (4,4,2,2,2,2,1,1,1,1,1,1,1,1) has two partitions into constant blocks with a common sum: {{4,4},{2,2,2,2},{1,1,1,1,1,1,1,1}} and {{4},{4},{2,2},{2,2},{1,1,1,1},{1,1,1,1}}, so is counted under a(24).
The a(1) = 1 through a(8) = 9 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (111)  (22)    (11111)  (33)      (1111111)  (44)
                    (211)            (222)                (422)
                    (1111)           (2211)               (2222)
                                     (3111)               (22211)
                                     (21111)              (41111)
                                     (111111)             (221111)
                                                          (2111111)
                                                          (11111111)

Twice-partitions of this type (constant with common) are counted by A279789.
Multiset partitions of this type are ranked by A383309.
The complement is counted by A381993, ranks A381871.
For sets we have the complement of A381994, see A381719, A382080.
Normal multiset partitions of this type are counted by A382203, sets A381718.
For distinct instead of equal block-sums we have A382427.
These partitions are ranked by A383014, nonzeros of A381995.
A000041 counts integer partitions, strict A000009.
A000688 counts factorizations into prime powers, see A381455, A381453.
A001055 counts factorizations, strict A045778, see A317141, A300383, A265947.
A050361 counts factorizations into distinct prime powers, see A381715.
A323774 counts partitions into constant blocks with a common sum
Constant blocks with distinct sums: A381635, A381636, A381717.
Permutation with equal run-sums: A383096, A383098, A383100, A383110
Cf. A006171, A047966, A279784, A295935, A323774, A326534, A353864, A355743, A381716, A382076, A382204.

mce[y_]:=Table[ConstantArray[y[[1]],#]&/@ptn,{ptn,IntegerPartitions[Length[y]]}];
Table[Length[Select[IntegerPartitions[n],Length[Select[Join@@@Tuples[mce/@Split[#]],SameQ@@Total/@#&]]>0&]],{n,0,30}]

Multiset systems of this type have MM-numbers A383309 = A326534 /\ A355743.

Conjecture: We have Sum_{d|n} a(d) = A323774(n), so this is the Moebius transform of A323774.

More terms from Jakub Buczak, May 03 2025

A382524 Number of ways to choose a different constant partition of each part of a constant partition of n.

Original entry on oeis.org

1, 1, 2, 2, 5, 2, 6, 2, 10, 3, 6, 2, 24, 2, 6, 4, 17, 2, 36, 2, 18, 4, 6, 2, 86, 3, 6, 10, 18, 2, 44, 2, 50, 4, 6, 4, 159, 2, 6, 4, 62, 2, 44, 2, 18, 30, 6, 2, 486, 3, 12, 4, 18, 2, 140, 4, 62, 4, 6, 2, 932, 2, 6, 30, 157, 4, 44, 2, 18, 4, 20, 2, 1500, 2, 6

Offset: 0

Gus Wiseman, Apr 03 2025

nonn

These are strict twice-partitions of weight n and type PRR.

			The a(1) = 1 through a(8) = 10 twice-partitions:
  (1)  (2)   (3)    (4)      (5)      (6)       (7)        (8)
       (11)  (111)  (22)     (11111)  (33)      (1111111)  (44)
                    (1111)            (222)                (2222)
                    (11)(2)           (111111)             (22)(4)
                    (2)(11)           (111)(3)             (4)(22)
                                      (3)(111)             (1111)(4)
                                                           (4)(1111)
                                                           (11111111)
                                                           (1111)(22)
                                                           (22)(1111)

Gus Wiseman, Sequences enumerating triangles of integer partitions

For distinct instead of equal block-sums we have A279786.
This is the strict case of A279789.
The orderless version is A304442, see A353833, A381995, A381871.
Multiset partitions of this type are ranked by A326534 /\ A355743 /\ A005117.
Partitions with no partition of this type are counted by A382076, strict case of A381993.
Normal multiset partitions of this type are counted by the strict case of A382204.
A006171 counts multiset partitions into constant blocks of integer partitions of n.
A050361 counts factorizations into distinct prime powers, see A381715.
A317141 counts coarsenings of prime indices, refinements A300383.
Cf. A000005, A000040, A000688, A018818, A047966, A063834, A260685, A279784, A356065, A381453, A381455.

Table[If[n==0,1,Sum[Binomial[Length[Divisors[n/d]],d]*d!,{d,Divisors[n]}]],{n,0,100}]

a(n) = Sum_{d|n} binomial(A000005(n/d),d) * d!

A381807 Number of multisets that can be obtained by choosing a constant partition of each m = 0..n and taking the multiset union.

Original entry on oeis.org

1, 1, 2, 4, 12, 24, 92, 184, 704, 2016, 7600, 15200, 80664, 161328, 601696, 2198824, 9868544, 19737088, 102010480, 204020960

Offset: 0

Gus Wiseman, Mar 13 2025

A constant partition is a multiset whose parts are all equal. There are A000005(n) constant partitions of n.

			The a(1) = 1 through a(4) = 12 multisets:
  {1}  {1,2}    {1,2,3}        {1,2,3,4}
       {1,1,1}  {1,1,1,3}      {1,1,1,3,4}
                {1,1,1,1,2}    {1,2,2,2,3}
                {1,1,1,1,1,1}  {1,1,1,1,2,4}
                               {1,1,1,2,2,3}
                               {1,1,1,1,1,1,4}
                               {1,1,1,1,1,2,3}
                               {1,1,1,1,2,2,2}
                               {1,1,1,1,1,1,1,3}
                               {1,1,1,1,1,1,2,2}
                               {1,1,1,1,1,1,1,1,2}
                               {1,1,1,1,1,1,1,1,1,1}

The number of possible choices was A066843.
Multiset partitions into constant blocks: A006171, A279784, A295935.
Choosing prime factors: A355746, A355537, A327486, A355744, A355742, A355741.
Choosing divisors: A355747, A355733.
Sets of constant multisets with distinct sums: A381635, A381636, A381716.
Strict instead of constant partitions: A381808, A058694, A152827.
A000041 counts integer partitions, strict A000009, constant A000005.
A000688 counts multiset partitions into constant blocks.
A050361 and A381715 count multiset partitions into constant multisets.
A066723 counts partitions coarser than {1..n}, primorial case of A317141.
A265947 counts refinement-ordered pairs of integer partitions.
A321470 counts partitions finer than {1..n}, primorial case of A300383.
Cf. A001970, A018818, A213385, A299200, A321467, A321468, A321471, A321514, A355731, A381453, A381455.

Table[Length[Union[Sort/@Join@@@Tuples[Select[IntegerPartitions[#],SameQ@@#&]&/@Range[n]]]],{n,0,10}]

Primorial case of A381453: a(n) = A381453(A002110(n)).

a(16)-a(19) from Christian Sievers, Jun 04 2025

A381872 Number of multisets that can be obtained by taking the sum of each block of a multiset partition of the prime indices of n into blocks having a common sum.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Mar 14 2025

nonn

First differs from A321455 at a(144) = 4, A321455(144) = 3.

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798, sum A056239.

			The prime indices of 144 are {1,1,1,1,2,2}, with the following 4 multiset partitions having common block sum:
  {{1,1,1,1,2,2}}
  {{2,2},{1,1,1,1}}
  {{1,1,2},{1,1,2}}
  {{2},{2},{1,1},{1,1}}
with sums: 8, 4, 4, 2, of which 3 are distinct, so a(144) = 3.
The prime indices of 1296 are {1,1,1,1,2,2,2,2}, with the following 7 multiset partitions having common block sum:
  {{1,1,1,1,2,2,2,2}}
  {{2,2,2},{1,1,1,1,2}}
  {{1,1,2,2},{1,1,2,2}}
  {{2,2},{2,2},{1,1,1,1}}
  {{2,2},{1,1,2},{1,1,2}}
  {{1,2},{1,2},{1,2},{1,2}}
  {{2},{2},{2},{2},{1,1},{1,1}}
with sums: 12, 6, 6, 4, 4, 3, 2, of which 5 are distinct, so a(1296) = 5.

With equal blocks instead of sums we have A089723.
Without equal sums we have A317141, before sums A001055, lower A300383.
Positions of terms > 1 are A321454.
Before taking sums we had A321455.
With distinct instead of equal sums we have A381637, before sums A321469.
A000041 counts integer partitions, strict A000009, constant A000005.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A265947 counts refinement-ordered pairs of integer partitions.
Other multiset partitions of prime indices:
- For multisets of constant multisets (A000688) see A381455 (upper), A381453 (lower).
- For sets of constant multisets (A050361) see A381715.
- For sets of constant multisets with distinct sums (A381635) see A381716, A381636.
Cf. A000720, A000961, A001222, A279787, A279789, A305551, A306017, A321451, A321452, A321453.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
mps[mset_]:=Union[Sort[Sort/@(#/.x_Integer:>mset[[x]])]&/@sps[Range[Length[mset]]]];
Table[Length[Union[Sort[Total/@#]&/@Select[mps[prix[n]],SameQ@@Total/@#&]]],{n,100}]

cp's OEIS Frontend

A381993 Number of integer partitions of n that cannot be partitioned into constant multisets with a common sum.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Extensions

A381637 Number of multisets that can be obtained by taking the sum of each block of a multiset partition of the prime indices of n into blocks with distinct sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A383014 Numbers whose prime indices can be partitioned into constant blocks with a common sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A382215 MM-numbers of multiset partitions into constant blocks with a common sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

PARI

Formula

A383093 Number of integer partitions of n that can be partitioned into constant blocks with a common sum.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Formula

Extensions

A382524 Number of ways to choose a different constant partition of each part of a constant partition of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A381807 Number of multisets that can be obtained by choosing a constant partition of each m = 0..n and taking the multiset union.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

Extensions

A381872 Number of multisets that can be obtained by taking the sum of each block of a multiset partition of the prime indices of n into blocks having a common sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica