A381633 -id:A381633 - cp's OEIS frontend

A382214 Number of normal multisets of size n that can be partitioned into a set of sets.

1, 1, 1, 3, 5, 11, 23, 48, 101, 210, 436, 894

Offset: 0

Gus Wiseman, Mar 29 2025

First differs from A382216 at a(9) = 210, A382216(9) = 208.

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,1,1,1,2,2,3,3,3} has partition {{1},{3},{1,2},{1,3},{1,2,3}}, so is counted under a(9).
The a(1) = 1 through a(5) = 11 multisets:
  {1}  {1,2}  {1,1,2}  {1,1,2,2}  {1,1,1,2,3}
              {1,2,2}  {1,1,2,3}  {1,1,2,2,3}
              {1,2,3}  {1,2,2,3}  {1,1,2,3,3}
                       {1,2,3,3}  {1,1,2,3,4}
                       {1,2,3,4}  {1,2,2,2,3}
                                  {1,2,2,3,3}
                                  {1,2,2,3,4}
                                  {1,2,3,3,3}
                                  {1,2,3,3,4}
                                  {1,2,3,4,4}
                                  {1,2,3,4,5}

Factorizations of this type are counted by A050326, distinct sums A381633.
Normal multiset partitions of this type are counted by A116539, distinct sums A381718.
The complement is counted by A292432.
Twice-partitions of this type are counted by A358914, distinct sums A279785.
The strong version is A381996, complement A292444.
For integer partitions we have A382077, ranks A382200, complement A382078, ranks A293243.
For distinct sums we have A382216, complement A382202.
The case of a unique choice is counted by A382458, distinct sums A382459.
A000670 counts patterns, ranked by A055932 and A333217, necklace A019536.
A001055 count factorizations, strict A045778.
Normal multiset partitions: A034691, A035310, A255906.
Set systems: A050342, A296120, A318361.
Set multipartitions: A089259, A270995, A296119, A318360.
Cf. A000110, A007716, A050320, A116540, A255903, A317532, A326517, A326519, A381990, A381992, A382428, A382460.

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],Select[mps[#], UnsameQ@@#&&And@@UnsameQ@@@#&]!={}&]],{n,0,5}]

A382079 Number of integer partitions of n that can be partitioned into a set of sets in exactly one way.

Original entry on oeis.org

1, 1, 1, 1, 2, 3, 3, 4, 6, 5, 10, 9, 13, 14, 21, 20, 32, 31, 42, 47, 63, 62, 90, 94, 117, 138, 170, 186, 235, 260, 315, 363, 429, 493, 588, 674, 795, 901, 1060, 1209, 1431, 1608, 1896, 2152, 2515, 2854, 3310, 3734, 4368, 4905, 5686

Offset: 0

Gus Wiseman, Mar 20 2025

			The unique multiset partition for (3222111) is {{1},{2},{1,2},{1,2,3}}.
The a(1) = 1 through a(12) = 13 partitions:
  1  2  3  4    5    6     7    8      9      A      B      C
           211  221  411   322  332    441    433    443    552
                311  2211  331  422    522    442    533    633
                           511  611    711    622    551    822
                                3311   42111  811    722    A11
                                32111         3322   911    4422
                                              4411   42221  5511
                                              32221  53111  33321
                                              43111  62111  52221
                                              52111         54111
                                                            63111
                                                            72111
                                                            3222111

Normal multiset partitions of this type are counted by A116539, see A381718.
These partitions are ranked by A293511.
MM-numbers of these multiset partitions (sets of sets) are A302494, see A302478, A382201.
Twice-partitions of this type (sets of sets) are counted by A358914, see A279785.
For at least one choice we have A382077 (ranks A382200), see A381992 (ranks A382075).
For no choices we have A382078 (ranks A293243), see A381990 (ranks A381806).
For distinct block-sums instead of blocks we have A382460, ranked by A381870.
Set multipartitions: A089259, A116540, A270995, A296119, A318360.
A000041 counts integer partitions, strict A000009.
A050320 counts multiset partitions of prime indices into sets.
A050326 counts multiset partitions of prime indices into distinct sets, see A381633.
A265947 counts refinement-ordered pairs of integer partitions.
Cf. A002846, A213427, A299202, A317142, A381078, A381441, A381454, A381636.

ssfacs[n_]:=If[n<=1,{{}},Join@@Table[(Prepend[#,d]&)/@Select[ssfacs[n/d],Min@@#>d&],{d,Select[Rest[Divisors[n]],SquareFreeQ]}]];
Table[Length[Select[IntegerPartitions[n],Length[ssfacs[Times@@Prime/@#]]==1&]],{n,0,15}]

a(21)-a(50) from Bert Dobbelaere, Mar 29 2025

A381995 Number of ways to partition the prime indices of n into constant blocks with a common sum.

Original entry on oeis.org

1, 1, 1, 2, 1, 0, 1, 2, 2, 0, 1, 1, 1, 0, 0, 3, 1, 0, 1, 0, 0, 0, 1, 0, 2, 0, 2, 0, 1, 0, 1, 2, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 2, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 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, Mar 19 2025

nonn

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

			The prime indices of 144 are {1,1,1,1,2,2}, with the following 2 multiset partitions into constant blocks with a common sum:
  {{2,2},{1,1,1,1}}
  {{2},{2},{1,1},{1,1}}
so a(144) = 2.

For just constant blocks we have A000688.
Twice-partitions of this type are counted by A279789.
For just a common sum we have A321455.
For distinct instead of equal sums we have A381635.
Positions of 0 are A381871, counted by A381993.
MM-numbers of these multiset partitions are A382215.
A001055 counts factorizations, 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.
A353864 counts rucksack partitions, ranked by A353866.
Cf. A279784, A295935, A381453 (lower), A381455 (upper).
Cf. A000720, A000961, A001222, A006171, A265947, A381633, A381719.
Cf. A323774, A382076, A382204, A382524, A383014, A383093, A383309.

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@@SameQ@@@#&]],{n,100}]

A323774(n) = Sum_{A056239(k)=n} a(k). Gus Wiseman, Apr 25 2025

A381996 Number of non-isomorphic multisets of size n that can be partitioned into a set of sets.

Original entry on oeis.org

1, 1, 1, 2, 3, 4, 6, 9, 13, 18, 25, 34, 47

Offset: 0

Gus Wiseman, Mar 31 2025

First differs from A382523 at a(12) = 47, A382523(12) = 45.

We call a multiset non-isomorphic iff it covers an initial interval of positive integers with weakly decreasing multiplicities. The size of a multiset is the number of elements, counting multiplicity.

			Differs from A382523 in counting the following under a(12):
  {1,1,1,1,1,1,2,2,3,3,4,5} with partition {{1},{1,2},{1,3},{1,4},{1,5},{1,2,3}}
  {1,1,1,1,2,2,2,2,3,3,3,3} with partition {{1},{2},{3},{1,2},{1,3},{2,3},{1,2,3}}

Factorizations of this type are counted by A050326, distinct sums A381633.
Normal multiset partitions of this type are counted by A116539, distinct sums A381718.
The complement is counted by A292444.
Twice-partitions of this type are counted by A358914, distinct sums A279785.
For integer partitions we have A382077, ranks A382200, complement A382078, ranks A293243.
Weak version is A382214, complement A292432, distinct sums A382216, complement A382202.
For distinct sums we have A382523, complement A382430.
Normal multiset partitions: A034691, A035310, A116540, A255906.
Set systems: A050342, A296120, A318361.
Set multipartitions: A089259, A270995, A296119, A318360.
Cf. A000110, A000670, A007716, A050320, A255903, A317532, A326519, A381992, A382428, A382458, A382459.

strnorm[n_]:=Flatten[MapIndexed[Table[#2,{#1}]&,#]]& /@ IntegerPartitions[n];
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[strnorm[n], Select[mps[#], UnsameQ@@#&&And@@UnsameQ@@@#&]!={}&]], {n,0,5}]

A382429 Number of normal multiset partitions of weight n into sets with a common sum.

Original entry on oeis.org

1, 1, 2, 3, 5, 7, 13, 26, 57, 113, 283, 854, 2401, 6998, 24072, 85061, 308956, 1190518, 4770078, 19949106, 87059592

Offset: 0

Gus Wiseman, Mar 26 2025

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) = 13 partitions:
  {1} {12}   {123}     {1234}       {12345}         {123456}
      {1}{1} {3}{12}   {12}{12}     {24}{123}       {123}{123}
             {1}{1}{1} {14}{23}     {34}{124}       {125}{134}
                       {3}{3}{12}   {3}{12}{12}     {135}{234}
                       {1}{1}{1}{1} {5}{14}{23}     {145}{235}
                                    {3}{3}{3}{12}   {12}{12}{12}
                                    {1}{1}{1}{1}{1} {14}{14}{23}
                                                    {14}{23}{23}
                                                    {16}{25}{34}
                                                    {3}{3}{12}{12}
                                                    {5}{5}{14}{23}
                                                    {3}{3}{3}{3}{12}
                                                    {1}{1}{1}{1}{1}{1}
The corresponding factorizations:
  2  6    30     210      2310       30030
     2*2  5*6    6*6      21*30      30*30
          2*2*2  14*15    35*42      6*6*6
                 5*5*6    5*6*6      66*70
                 2*2*2*2  5*5*5*6    110*105
                          11*14*15   154*165
                          2*2*2*2*2  5*5*6*6
                                     14*14*15
                                     14*15*15
                                     26*33*35
                                     5*5*5*5*6
                                     11*11*14*15
                                     2*2*2*2*2*2

Without the common sum we have A116540 (normal set multipartitions).
Twice-partitions of this type are counted by A279788.
For common sizes instead of sums we have A317583.
Without strict blocks we have A326518, non-strict blocks A326517.
For a common length instead of sum we have A331638.
For distinct instead of equal block-sums we have A381718.
Factorizations of this type are counted by A382080.
For distinct block-sums and constant blocks we have A382203.
For constant instead of strict blocks we have A382204.
A000670 counts patterns, ranked by A055932 and A333217, necklace A019536.
A001055 count multiset partitions of prime indices, strict A045778.
A321469 counts multiset partitions with distinct block-sums, ranks A326535.
Normal multiset partitions: A035310, A255906, A304969, A317532.
Set multipartitions: A089259, A116539, A270995, A296119, A318360.
Set multipartitions with distinct sums: A279785, A381806, A381870.
Constant blocks with distinct sums: A381635, A381636, A381716.
Cf. A000110, A034691, A038041, A050320, A255903, A326520, A381633, A381996, A382214, 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@@UnsameQ@@@#&]&/@allnorm[n])],{n,0,5}]

a(11) from Robert Price, Mar 30 2025

a(12)-a(20) from Christian Sievers, Apr 06 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}]

A382203 Number of normal multiset partitions of weight n into constant multisets with distinct sums.

Original entry on oeis.org

1, 1, 2, 4, 9, 19, 37, 76, 159, 326, 671, 1376, 2815, 5759, 11774, 24083, 49249, 100632, 205490, 419420, 855799, 1745889, 3561867, 7268240, 14836127, 30295633, 61888616

Offset: 0

Gus Wiseman, Mar 26 2025

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(4) = 9 multiset partitions:
  {{1}}  {{1,1}}    {{1,1,1}}      {{1,1,1,1}}
         {{1},{2}}  {{1},{1,1}}    {{1},{1,1,1}}
                    {{1},{2,2}}    {{1,1},{2,2}}
                    {{1},{2},{3}}  {{1},{2,2,2}}
                                   {{2},{1,1,1}}
                                   {{1},{2},{2,2}}
                                   {{1},{2},{3,3}}
                                   {{1},{3},{2,2}}
                                   {{1},{2},{3},{4}}
The a(5) = 19 factorizations:
  32  2*16  2*3*27   2*3*5*25  2*3*5*7*11
      4*8   2*4*9    2*3*5*9
      2*81  2*3*8    2*3*5*49
      4*27  2*3*125  2*3*7*25
      9*8   2*9*25
      3*16  2*5*27
            5*4*9

Without distinct sums we have A055887.
Twice-partitions of this type are counted by A279786.
For distinct blocks instead of sums we have A304969.
Without constant blocks we have A326519.
Factorizations of this type are counted by A381635.
For strict instead of constant blocks we have A381718.
For equal instead of distinct block-sums we have A382204.
For equal block-sums and strict 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.
A321469 counts multiset partitions with distinct block-sums, ranks A326535.
Normal multiset partitions: A035310, A116540, A255906, A317532.
Set multipartitions with distinct sums: A279785, A381806, A381870.
Cf. A007716, A116539, A255903, A275780, A317583, A326517, A326518, A381633, A381636, A382216, A382428.

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[#],UnsameQ@@Total/@#&&And@@SameQ@@@#&]&/@allnorm[n])],{n,0,5}]

a(14)-a(26) from Christian Sievers, Apr 04 2025

A382428 Number of normal multiset partitions of weight n into sets with distinct sizes.

Original entry on oeis.org

1, 1, 1, 6, 8, 35, 292, 673, 2818, 16956, 219772, 636748, 3768505, 20309534, 183403268, 3227600747, 12272598308, 81353466578, 561187259734, 4416808925866, 50303004612136, 1238783066956740, 5566249468690291, 44970939483601100, 330144217684933896, 3131452652308459402

Offset: 0

Gus Wiseman, Mar 29 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(4) = 8 multiset partitions:
  {{1}}  {{1,2}}  {{1,2,3}}    {{1,2,3,4}}
                  {{1},{1,2}}  {{1},{1,2,3}}
                  {{1},{2,3}}  {{1},{2,3,4}}
                  {{2},{1,2}}  {{2},{1,2,3}}
                  {{2},{1,3}}  {{2},{1,3,4}}
                  {{3},{1,2}}  {{3},{1,2,3}}
                               {{3},{1,2,4}}
                               {{4},{1,2,3}}

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

For distinct sums instead of sizes we have A116539, see A050326.
Without distinct lengths we have A116540 (normal set multipartitions).
Without strict blocks we have A326517, for sum instead of size A326519.
For equal instead of distinct sizes we have A331638.
Twice-partitions of this type are counted by A358830.
For distinct sums instead of sizes we have A381718.
For equal instead of distinct sizes we have A382429.
A000670 counts patterns, ranked by A055932 and A333217, necklace A019536.
A001055 count factorizations, strict A045778.
Normal multiset partitions: A034691, A035310, A255906.
Set multipartitions: A089259, A270995, A296119, A318360.
Cf. A000110, A007716, A050320, A255903, A275780, A279785, A317532, A326518, A381633, A382214, 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[#],UnsameQ@@Length/@#&&And@@UnsameQ@@@#&]&/@allnorm[n])],{n,0,5}]

R(n, k)={Vec(prod(j=1, n, 1 + binomial(k, j)*x^j + O(x*x^n)))}
seq(n)={sum(k=0, n, R(n, k)*sum(r=k, n, binomial(r, k)*(-1)^(r-k)))} \\ Andrew Howroyd, Mar 31 2025

a(10) onwards from Andrew Howroyd, 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}]

cp's OEIS Frontend

A382214 Number of normal multisets of size n that can be partitioned into a set of sets.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A382079 Number of integer partitions of n that can be partitioned into a set of sets in exactly one way.

Views

Author

Keywords

Examples

Crossrefs

Programs

Mathematica

Extensions

A381995 Number of ways to partition the prime indices of n into constant blocks with a common sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A381996 Number of non-isomorphic multisets of size n that can be partitioned into a set of sets.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A382429 Number of normal multiset partitions of weight n into sets with a common sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

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

A382203 Number of normal multiset partitions of weight n into constant multisets with distinct sums.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Extensions

A382428 Number of normal multiset partitions of weight n into sets with distinct sizes.

Views

Author

Keywords