A381078 -id:A381078 - cp's OEIS frontend

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

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@@@#&]=={}&]

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

A381994 Number of integer partitions of n that cannot be partitioned into sets with equal sums.

Original entry on oeis.org

0, 0, 0, 0, 1, 3, 3, 9, 12, 17, 27, 43, 46, 82, 103, 133, 181, 258, 295

Offset: 0

Gus Wiseman, Mar 17 2025

nonn

			For y = (3,3,1,1) we have {{1,3},{1,3}}, so y is not counted under a(8).
For y = (3,2,2,1), although we have {{1,3},{2,2}}, the block {2,2} is not a set, so y is counted under a(8).
The a(4) = 1 through a(8) = 12 partitions:
  (2,1,1)  (2,2,1)    (4,1,1)      (3,2,2)        (3,3,2)
           (3,1,1)    (3,1,1,1)    (3,3,1)        (4,2,2)
           (2,1,1,1)  (2,1,1,1,1)  (5,1,1)        (6,1,1)
                                   (2,2,2,1)      (3,2,2,1)
                                   (3,2,1,1)      (4,2,1,1)
                                   (4,1,1,1)      (5,1,1,1)
                                   (2,2,1,1,1)    (2,2,2,1,1)
                                   (3,1,1,1,1)    (3,2,1,1,1)
                                   (2,1,1,1,1,1)  (4,1,1,1,1)
                                                  (2,2,1,1,1,1)
                                                  (3,1,1,1,1,1)
                                                  (2,1,1,1,1,1,1)

More on set multipartitions: A089259, A116540, A270995, A296119, A318360.
Twice-partitions of this type are counted by A279788.
Interchanging "constant" with "strict" gives A381717, see A381635, A381636, A381991.
Normal multiset partitions of this type are counted by A381718, see A279785.
These partitions are ranked by A381719, zeros of A382080.
For distinct instead of equal block-sums we have A381990, ranked by A381806.
For constant instead of strict blocks we have A381993.
A000041 counts integer partitions, strict A000009.
A050320 counts factorizations into squarefree numbers, see A381078, A381454.
A050326 counts factorizations into distinct squarefree numbers.
A265947 counts refinement-ordered pairs of integer partitions.
A381633 counts set systems with distinct sums, see A381634, A293243.
Cf. A002846, A047966, A279786, A279789, A293511, A299202, A317142, A358914, A381992.

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[IntegerPartitions[n], Length[Select[mps[#], And@@UnsameQ@@@#&&SameQ@@Total/@#&]]==0&]],{n,0,10}]

A382459 Number of normal multisets of size n that can be partitioned into a set of sets with distinct sums in exactly one way.

Original entry on oeis.org

1, 1, 0, 2, 1, 3, 2, 7, 4, 10, 19

Offset: 0

Gus Wiseman, Apr 01 2025

We call a multiset or multiset partition normal iff it covers an initial interval of positive integers. The size of a multiset is the number of elements, counting multiplicity.

			The normal multiset {1,2,2,2,2,3,3,4} has only one multiset partition into a set of sets with distinct sums: {{2},{1,2},{2,3},{2,3,4}}, so is counted under a(8).
The a(1) = 1 through a(7) = 7 multisets:
  {1}  .  {112}  {1122}  {11123}  {111233}  {1111234}
          {122}          {12223}  {122233}  {1112223}
                         {12333}            {1112333}
                                            {1222234}
                                            {1222333}
                                            {1233334}
                                            {1234444}

Twice-partitions of this type are counted by A279785, A270995, A358914.
Factorizations of this type are counted by A381633, A050320, A050326.
Normal multiset partitions of this type are A381718, A116540, A116539.
Multiset partitions of this type are ranked by A382201, A302478, A302494.
For at least one choice: A382216 (strict A382214), complement A382202 (strict A292432).
For the strong case see: A382430 (strict A292444), complement A382523 (strict A381996).
Without distinct sums we have A382458.
For integer partitions we have A382460, ranks A381870, strict A382079, ranks A293511.
Set multipartitions: A089259, A296119, A318360.
Normal multiset partitions: A034691, A035310, A255906.
Set systems: A050342, A296120, A318361.
Partitions: A382077 (A382200), A381992 (A382075), A382078 (A293243), A381990 (A381806).
Cf. A000110, A000670, A007716, A255903, A275780, A317532, A321469, A326519, A381078, A381441, A382428.

allnorm[n_]:=If[n<=0,{{}},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[Select[allnorm[n],Length[Select[mps[#],UnsameQ@@Total/@#&&And@@UnsameQ@@@#&]]==1&]],{n,0,5}]

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

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

A381994 Number of integer partitions of n that cannot be partitioned into sets with equal sums.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

A382459 Number of normal multisets of size n that can be partitioned into a set of sets with distinct sums in exactly one way.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica