A381995 -id:A381995 - cp's OEIS frontend

A381871 Numbers whose prime indices cannot be partitioned into constant blocks having a common sum.

6, 10, 14, 15, 18, 20, 21, 22, 24, 26, 28, 30, 33, 34, 35, 38, 39, 42, 44, 45, 46, 50, 51, 52, 54, 55, 56, 57, 58, 60, 62, 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, 100, 102, 104, 105, 106, 110

Offset: 1

Gus Wiseman, Mar 13 2025

nonn

First differs from A383100 in lacking 108.
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.
Also numbers that cannot be written as a product of prime powers with equal sums of prime indices.
Partitions of this type are counted by A381993.

			The terms together with their prime indices begin:
    6: {1,2}
   10: {1,3}
   14: {1,4}
   15: {2,3}
   18: {1,2,2}
   20: {1,1,3}
   21: {2,4}
   22: {1,5}
   24: {1,1,1,2}
   26: {1,6}
   28: {1,1,4}
   30: {1,2,3}

Constant blocks: A000688, A006171, A279784, A295935, A381453 (lower), A381455 (upper).
Constant blocks with distinct sums: A381635, A381716.
For distinct instead of equal sums we have A381636, counted by A381717.
Partitions of this type are counted by A381993, complement A383093.
These are the positions of 0 in A381995.
A001055 counts multiset partitions of prime indices, strict A045778.
A050361 counts multiset partitions into distinct constant blocks.
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, A265947, A321469, A381633, A381715, A381719, A381806.

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]]]];
Select[Range[100],Select[mps[prix[#]],SameQ@@Total/@#&&And@@SameQ@@@#&]=={}&]

A382076 Number of integer partitions of n whose run-sums are not all equal.

Original entry on oeis.org

0, 0, 0, 1, 1, 5, 6, 13, 15, 27, 37, 54, 64, 99, 130, 172, 220, 295, 372, 488, 615, 788, 997, 1253, 1547, 1955, 2431, 3005, 3706, 4563, 5586, 6840, 8332, 10139, 12305, 14879, 17933, 21635, 26010, 31181, 37314, 44581, 53156, 63259, 75163, 89124, 105553, 124752, 147210

Offset: 0

Gus Wiseman, Apr 02 2025

nonn

Also the number of integer partitions of n that cannot be partitioned into distinct constant multisets with a common sum. Multiset partitions of this type are ranked by A005117 /\ A326534 /\ A355743, while twice-partitions are counted by A382524, strict case of A279789.

			The partition (3,2,1,1,1) has runs ((3),(2),(1,1,1)) with sums (3,2,3) so is counted under a(8).
The a(3) = 1 through a(8) = 15 partitions:
  (21)  (31)  (32)    (42)     (43)      (53)
              (41)    (51)     (52)      (62)
              (221)   (321)    (61)      (71)
              (311)   (411)    (322)     (332)
              (2111)  (2211)   (331)     (431)
                      (21111)  (421)     (521)
                               (511)     (611)
                               (2221)    (3221)
                               (3211)    (3311)
                               (4111)    (4211)
                               (22111)   (5111)
                               (31111)   (22211)
                               (211111)  (32111)
                                         (311111)
                                         (2111111)

The complement is counted by A304442, ranks A353833.
For distinct instead of equal block-sums we have A381717.
This is the strict case of A381993, see A381995, zeros A381871.
A050361 counts factorizations into distinct prime powers, see A381715.
A304405 counts partitions with weakly decreasing run-sums, ranks A357875.
A304406 counts partitions with weakly increasing run-sums, ranks A357861.
A304428 counts partitions with strictly decreasing run-sums, ranks A357862.
A304430 counts partitions with strictly increasing run-sums, ranks A357864.
A317141 counts coarsenings of prime indices, refinements A300383.
A326534 ranks multiset partitions with a common sum.
A353837 counts partitions with distinct run-sums.
A354584 lists run-sums of weakly increasing prime indices.
A355743 ranks multiset partitions into constant blocks.
Cf. A000688, A005117, A006171, A047966, A279784, A381453, A381455, A381635, A381636, A381994, A382204.

Table[Length[Select[IntegerPartitions[n],!SameQ@@Total/@Split[#]&]],{n,0,15}]

More terms from Bert Dobbelaere, Apr 26 2025

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

Original entry on oeis.org

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

A382204 Number of normal multiset partitions of weight n into constant blocks with a common sum.

Original entry on oeis.org

1, 1, 2, 3, 4, 4, 7, 5, 8, 8, 10, 8, 15, 9, 14, 15, 17, 13, 22, 14, 25, 21, 23, 19, 34, 24, 29, 28, 37, 27, 45, 29, 44, 38, 43, 43, 59, 40, 51, 48, 69, 48, 71, 52, 73, 69, 72, 61, 93, 72, 91, 77, 99, 78, 105, 95, 119, 95, 113, 96, 146, 107, 126, 123, 151, 130

Offset: 0

Gus Wiseman, Mar 26 2025

nonn

We call a multiset or multiset partition normal iff it covers an initial interval of positive integers. The weight of a multiset partition is the sum of sizes of its blocks.

			The a(1) = 1 through a(6) = 7 multiset partitions:
  {1} {11}   {111}     {1111}       {11111}         {111111}
      {1}{1} {2}{11}   {11}{11}     {2}{11}{11}     {111}{111}
             {1}{1}{1} {2}{2}{11}   {2}{2}{2}{11}   {22}{1111}
                       {1}{1}{1}{1} {1}{1}{1}{1}{1} {11}{11}{11}
                                                    {2}{2}{11}{11}
                                                    {2}{2}{2}{2}{11}
                                                    {1}{1}{1}{1}{1}{1}
The a(1) = 1 through a(7) = 5 factorizations:
  2  4    8      16       32         64           128
     2*2  3*4    4*4      3*4*4      8*8          3*4*4*4
          2*2*2  3*3*4    3*3*3*4    9*16         3*3*3*4*4
                 2*2*2*2  2*2*2*2*2  4*4*4        3*3*3*3*3*4
                                     3*3*4*4      2*2*2*2*2*2*2
                                     3*3*3*3*4
                                     2*2*2*2*2*2

Christian Sievers, Table of n, a(n) for n = 0..25000

Without a common sum we have A055887.
Twice-partitions of this type are counted by A279789.
Without constant blocks we have A326518.
For distinct block-sums and strict blocks we have A381718.
Factorizations of this type are counted by A381995.
For distinct instead of equal block-sums we have A382203.
For strict instead of constant blocks we have A382429.
A000670 counts patterns, ranked by A055932 and A333217, necklace A019536.
A001055 count multiset partitions of prime indices, strict A045778.
A089259 counts set multipartitions of integer partitions.
A255906 counts normal multiset partitions, row sums of A317532.
A321469 counts multiset partitions with distinct block-sums, ranks A326535.
Normal multiset partitions: A035310, A304969, A356945.
Set multipartitions: A116540, A270995, A296119, A318360.
Set multipartitions with distinct sums: A279785, A381806, A381870.
Constant blocks with distinct sums: A381635, A381636, A381716.
Cf. A007716, A034691, A034729, A116539, A255903, A317583, A326520, A382216.

allnorm[n_Integer]:=Function[s,Array[Count[s,y_/;y<=#]+1&,n]]/@Subsets[Range[n-1]+1];
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[Join@@(Select[mps[#],SameQ@@Total/@#&&And@@SameQ@@@#&]&/@allnorm[n])],{n,0,5}]

h(s,x)=my(t=0,p=1,k=1);while(s%k==0,p*=1/(1-x^(s/k))-1;t+=p;k+=1);t
lista(n)=Vec(1+sum(s=1,n,h(s,x+O(x*x^n)))) \\ Christian Sievers, Apr 05 2025

G.f.: 1 + Sum_{s>=1} Sum_{k=1..A055874(s)} Product_{v=1..k} (1/(1-x^(s/v)) - 1). - Christian Sievers, Apr 05 2025

Terms a(16) and beyond from Christian Sievers, Apr 04 2025

A381719 Numbers whose prime indices cannot be partitioned into sets with a common sum.

Original entry on oeis.org

12, 18, 20, 24, 28, 40, 44, 45, 48, 50, 52, 54, 56, 60, 63, 68, 72, 75, 76, 80, 84, 88, 90, 92, 96, 98, 99, 104, 108, 112, 116, 117, 120, 124, 126, 132, 135, 136, 140, 144, 147, 148, 152, 153, 156, 160, 162, 164, 168, 171, 172, 175, 176, 184, 188, 189, 192

Offset: 1

Gus Wiseman, Apr 22 2025

nonn

Differs from A059404, A323055, A376250 in lacking 150.
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.
Also numbers that cannot be factored into squarefree numbers with a common sum of prime indices (A056239).

			The prime indices of 150 are {1,2,3,3}, and {{3},{3},{1,2}} is a partition into sets with a common sum, so 150 is not in the sequence.

Twice-partitions of this type (sets with a common sum) are counted by A279788.
These multiset partitions (sets with a common sum) are ranked by A326534 /\ A302478.
For distinct block-sums we have A381806, counted by A381990 (complement A381992).
For constant blocks we have A381871 (zeros of A381995), counted by A381993.
Partitions of this type are counted by A381994.
These are the zeros of A382080.
Normal multiset partitions of this type are counted by A382429, see A326518.
The complement counted by A383308.
A000041 counts integer partitions, strict A000009.
A001055 counts factorizations, strict A045778.
A050320 counts factorizations into squarefree numbers, see A381078, A381454.
A050326 counts factorizations into distinct squarefree numbers.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A317141 counts coarsenings of prime indices, refinements A300383.
A381633 counts set systems with distinct sums, see A381634, A293243.
Set multipartitions: A089259, A116540, A270995, A296119, A318360.
Cf. A000720, A000961, A001222, A293511, A321455, A358914, A381635, A381717.

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[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]&/@sps[Range[Length[set]]]];
Select[Range[100],Select[mps[prix[#]], SameQ@@Total/@#&&And@@UnsameQ@@@#&]=={}&]

A382080 Number of ways to partition the prime indices of n into sets with a common sum.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 2, 1, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1

Offset: 1

Gus Wiseman, Mar 20 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.

Also the number of factorizations of n into squarefree numbers > 1 with equal sums of prime indices.

			The prime indices of 900 are {1,1,2,2,3,3}, with the following partitions into sets with a common sum:
  {{1,2,3},{1,2,3}}
  {{3},{3},{1,2},{1,2}}
So a(900) = 2.

For just sets we have A050320, distinct A050326.
Twice-partitions of this type are counted by A279788.
For just a common sum we have A321455.
MM-numbers of these multiset partitions are A326534 /\ A302478.
For distinct instead of equal sums we have A381633.
For constant instead of strict blocks we have A381995.
Positions of 0 are A381719, counted by A381994.
A000688 counts factorizations into prime powers, distinct A050361.
A001055 counts factorizations, strict A045778.
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, A006171, A279784, A353866, A381635, A381871.

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[set_]:=Union[Sort[Sort/@(#/.x_Integer:>set[[x]])]& /@ sps[Range[Length[set]]]];
Table[Length[Select[mps[prix[n]], SameQ@@Total/@#&&And@@UnsameQ@@@#&]],{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

A382304 MM-numbers of multiset partitions into sets with a common sum.

Original entry on oeis.org

1, 2, 3, 4, 5, 8, 9, 11, 13, 16, 17, 25, 27, 29, 31, 32, 41, 43, 47, 59, 64, 67, 73, 79, 81, 83, 101, 109, 113, 121, 125, 127, 128, 137, 139, 143, 149, 157, 163, 167, 169, 179, 181, 191, 199, 211, 233, 241, 243, 256, 257, 269, 271, 277, 283, 289, 293, 313, 317

Offset: 1

Gus Wiseman, Apr 01 2025

nonn

Also products of prime numbers of squarefree index with a common sum of prime indices.

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}}
   8: {{},{},{}}
   9: {{1},{1}}
  11: {{3}}
  13: {{1,2}}
  16: {{},{},{},{}}
  17: {{4}}
  25: {{2},{2}}
  27: {{1},{1},{1}}
  29: {{1,3}}
  31: {{5}}
  32: {{},{},{},{},{}}

Gus Wiseman, Sequences counting and ranking multiset partitions whose part lengths, sums, or averages are constant or strict.

Set partitions of this type are counted by A035470.
Twice-partitions of this type are counted by A279788.
For just strict blocks we have A302478.
For just a common sum we have A326534, distinct sums A326535.
Factorizations of this type are counted by A382080.
For distinct instead of equal sums we have A382201.
For constant instead of strict blocks we have A382215.
Normal multiset partitions of this type are counted by A382429.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A058891 counts set-systems, covering A003465, connected A323818.
Cf. A000720, A005117, A050320, A050326, A293511, A302242, A302494, A381635, A381636, A381995.

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

Equals A302478 /\ A326534.

cp's OEIS Frontend

A381871 Numbers whose prime indices cannot be partitioned into constant blocks having a common sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A382076 Number of integer partitions of n whose run-sums are not all equal.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

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

A382204 Number of normal multiset partitions of weight n into constant blocks with a common sum.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A381719 Numbers whose prime indices cannot be partitioned into sets with a common sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A382080 Number of ways to partition the prime indices of n into sets with a common sum.

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