A002846 -id:A002846 - cp's OEIS frontend

A321472 Heinz numbers of integer partitions whose parts can be further partitioned and flattened to obtain the partition (k, ..., 3, 2, 1) for some k.

2, 5, 6, 13, 21, 22, 25, 29, 30, 46, 47, 57, 73, 85, 86, 91, 102, 107, 121, 123, 130, 142, 147, 151, 154, 165, 175, 185, 197, 201, 206, 210, 217, 222, 257, 298, 299

Offset: 1

Gus Wiseman, Nov 13 2018

nonn

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

These partitions are those that are coarser than (k, ..., 3, 2, 1) in the poset of integer partitions of 1 + 2 + ... + k, for some k, ordered by refinement.

			The sequence of all integer partitions whose Heinz numbers are in the sequence begins: (1), (3), (2,1), (6), (4,2), (5,1), (3,3), (10), (3,2,1), (9,1), (15), (8,2), (21), (7,3), (14,1), (6,4), (7,2,1), (28), (5,5), (13,2), (6,3,1), (20,1), (4,4,2), (36), (5,4,1), (5,3,2), (4,3,3), (12,3), (45), (19,2), (27,1), (4,3,2,1).

Subsequence of A242422.
Cf. A001970, A002846, A056239, A066723, A112798, A213427, A242422, A265947, A300383, A317141.
Cf. A321467, A321468, A321470, A321471, A321514.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[2,200],Select[Sort/@Join@@@Tuples[IntegerPartitions/@primeMS[#]],Sort[#]==Range[Max@@#]&]!={}&]

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

A382460 Number of integer partitions of n that can be partitioned into sets with distinct sums in exactly one way.

Original entry on oeis.org

1, 1, 1, 1, 2, 3, 3, 4, 6, 5, 10, 10, 13, 15, 22, 20, 32, 32, 43, 49, 65, 64, 92, 96, 121, 140, 173, 192

Offset: 0

Gus Wiseman, Mar 29 2025

			The partition y = (3,3,2,1,1,1) has 2 partitions into sets: {{1},{3},{1,2},{1,3}} and {{1},{1,3},{1,2,3}}, but only the latter has distinct sums, so y is counted under a(11)
The a(1) = 1 through a(10) = 10 partitions (A=10):
  1  2  3  4    5    6     7    8      9      A
           211  221  411   322  332    441    433
                311  2211  331  422    522    442
                           511  611    711    622
                                3311   42111  811
                                32111         3322
                                              4411
                                              32221
                                              43111
                                              52111

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

hwt[n_]:=Total[Cases[FactorInteger[n],{p_,k_}:>PrimePi[p]*k]];
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[Select[ssfacs[Times@@Prime/@#],UnsameQ@@hwt/@#&]]==1&]],{n,0,15}]

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

A317143 In the ranked poset of integer partitions ordered by refinement, row n lists the Heinz numbers of integer partitions finer (less) than or equal to the integer partition with Heinz number n.

Original entry on oeis.org

1, 2, 3, 4, 4, 5, 6, 8, 6, 8, 7, 9, 10, 12, 16, 8, 9, 12, 16, 10, 12, 16, 11, 14, 15, 18, 20, 24, 32, 12, 16, 13, 21, 22, 25, 27, 28, 30, 36, 40, 48, 64, 14, 18, 20, 24, 32, 15, 18, 20, 24, 32, 16, 17, 26, 33, 35, 42, 44, 45, 50, 54, 56, 60, 72, 80, 96, 128

Offset: 1

Gus Wiseman, Jul 22 2018

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

If x and y are partitions of the same integer and it is possible to produce x by further partitioning the parts of y, flattening, and sorting, then x <= y.

			The partitions finer than or equal to (2,2) are (2,2), (2,1,1), (1,1,1,1), with Heinz numbers 9, 12, 16, so the 9th row is {9, 12, 16}.
Triangle begins:
   1
   2
   3   4
   4
   5   6   8
   6   8
   7   9  10  12  16
   8
   9  12  16
  10  12  16
  11  14  15  18  20  24  32
  12  16
  13  21  22  25  27  28  30  36  40  48  64
  14  18  20  24  32
  15  18  20  24  32
  16
  17  26  33  35  42  44  45  50  54  56  60  72  80  96 128

Row lengths are A300383.

Cf. A002846, A056239, A213427, A215366, A265947, A296150, A299201, A317141.

primeMS[n_]:=If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Union[Times@@@Map[Prime,Join@@@Tuples[IntegerPartitions/@primeMS[n]],{2}]],{n,12}]

A317176 Number of chains of factorizations of n into factors > 1, ordered by refinement, starting with the prime factorization of n and ending with the maximum factorization (n).

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 3, 1, 1, 1, 6, 1, 3, 1, 3, 1, 1, 1, 11, 1, 1, 2, 3, 1, 4, 1, 18, 1, 1, 1, 15, 1, 1, 1, 11, 1, 4, 1, 3, 3, 1, 1, 49, 1, 3, 1, 3, 1, 11, 1, 11, 1, 1, 1, 21, 1, 1, 3, 74, 1, 4, 1, 3, 1, 4, 1, 78, 1, 1, 3, 3, 1, 4, 1, 49, 6, 1, 1

Offset: 1

Gus Wiseman, Jul 23 2018

nonn

If x and y are factorizations of the same integer and it is possible to produce x by further factoring the factors of y, flattening, and sorting, then x <= y.

			The a(24) = 11 chains:
  (2*2*2*3) < (24)
  (2*2*2*3) < (2*12)  < (24)
  (2*2*2*3) < (3*8)   < (24)
  (2*2*2*3) < (4*6)   < (24)
  (2*2*2*3) < (2*2*6) < (24)
  (2*2*2*3) < (2*3*4) < (24)
  (2*2*2*3) < (2*2*6) < (2*12) < (24)
  (2*2*2*3) < (2*2*6) < (4*6)  < (24)
  (2*2*2*3) < (2*3*4) < (2*12) < (24)
  (2*2*2*3) < (2*3*4) < (3*8)  < (24)
  (2*2*2*3) < (2*3*4) < (4*6)  < (24)

Cf. A001055, A002846, A007716, A045778, A162247, A213427, A275024, A281113, A299202, A317144, A317145, A317146.

a(prime^n) = A213427(n).

A327702 Number of refinement sequences n -> ... -> {1}^n, where in each step one part that is the rightmost copy of its size is replaced by a partition of itself into smaller parts (in weakly decreasing order).

Original entry on oeis.org

1, 1, 2, 5, 14, 47, 174, 730, 3300, 16361, 85991, 485982, 2877194, 18064663, 118111993, 810388956, 5755059363, 42643884970, 325468477721, 2576976440845, 20960795772211, 176056148076418, 1514733658531058, 13418942409623726, 121442280888373117, 1128425823360525506

Offset: 1

Alois P. Heinz, Sep 22 2019

nonn

			a(4) = 5:
  4 -> 1111
  4 -> 211  -> 1111
  4 -> 31   -> 1111
  4 -> 31   -> 211  -> 1111
  4 -> 22   -> 211  -> 1111

Alois P. Heinz, Table of n, a(n) for n = 1..58
Wikipedia, Partition (number theory)

Cf. A002846, A327643, A327697, A327698, A327699.

v:= l-> [seq(`if`(i=1 or l[i]>l[i-1], seq(subs(1=[][], sort(
         subsop(i=h[], l))), h=({combinat[partition](l[i])[]}
         minus{[l[i]]})), [][]), i=1..nops(l))]:
b:= proc(l) option remember; `if`(max(l)<2, 1, add(b(h), h=v(l))) end:
a:= n-> b([n]):
seq(a(n), n=1..26);

A330727 Irregular triangle read by rows where T(n,k) is the number of balanced reduced multisystems of depth k whose degrees (atom multiplicities) are the prime indices of n.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 3, 2, 1, 3, 1, 7, 7, 1, 5, 5, 1, 5, 9, 5, 1, 9, 11, 1, 9, 28, 36, 16, 1, 10, 24, 16, 1, 14, 38, 27, 1, 13, 18, 1, 13, 69, 160, 164, 61, 1, 24, 79, 62, 1, 20, 160, 580, 1022, 855, 272, 1, 19, 59, 45, 1, 27, 138, 232, 123, 1, 17, 77, 121, 61

Offset: 2

Gus Wiseman, Jan 04 2020

A balanced reduced multisystem is either a finite multiset, or a multiset partition with at least two parts, not all of which are singletons, of a balanced reduced multisystem.

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. A multiset whose multiplicities are the prime indices of n (such as row n of A305936) is generally not the same as the multiset of prime indices of n. For example, the prime indices of 12 are {1,1,2}, while a multiset whose multiplicities are {1,1,2} is {1,1,2,3}.

			Triangle begins:
   {}
   1
   1
   1   1
   1   2
   1   3   2
   1   3
   1   7   7
   1   5   5
   1   5   9   5
   1   9  11
   1   9  28  36  16
   1  10  24  16
   1  14  38  27
   1  13  18
   1  13  69 160 164  61
   1  24  79  62
For example, row n = 12 counts the following multisystems:
  {1,1,2,3}  {{1},{1,2,3}}    {{{1}},{{1},{2,3}}}
             {{1,1},{2,3}}    {{{1,1}},{{2},{3}}}
             {{1,2},{1,3}}    {{{1}},{{2},{1,3}}}
             {{2},{1,1,3}}    {{{1,2}},{{1},{3}}}
             {{3},{1,1,2}}    {{{1}},{{3},{1,2}}}
             {{1},{1},{2,3}}  {{{1,3}},{{1},{2}}}
             {{1},{2},{1,3}}  {{{2}},{{1},{1,3}}}
             {{1},{3},{1,2}}  {{{2}},{{3},{1,1}}}
             {{2},{3},{1,1}}  {{{2,3}},{{1},{1}}}
                              {{{3}},{{1},{1,2}}}
                              {{{3}},{{2},{1,1}}}

Row sums are A318846.
Final terms in each row are A330728.
Row prime(n) is row n of A330784.
Row 2^n is row n of A008826.
Row n is row A181821(n) of A330667.
Column k = 3 is A318284(n) - 2 for n > 2.
Cf. A000111, A002846, A005121, A292504, A318812, A318813, A318847, A318848, A318849, A330475, A330666, A330935.

nrmptn[n_]:=Join@@MapIndexed[Table[#2[[1]],{#1}]&,If[n==1,{},Flatten[Cases[Reverse[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]]]];
totm[m_]:=Prepend[Join@@Table[totm[p],{p,Select[mps[m],1

T(2^n,k) = A008826(n,k).

A327697 Number of refinement sequences n -> ... -> {1}^n, where in each step every single part of a nonempty selection of parts is replaced by a partition of itself into smaller parts (in weakly decreasing order).

Original entry on oeis.org

1, 1, 2, 7, 22, 122, 598, 4683, 31148, 292008, 2560274, 30122014, 313694962, 4189079688, 53048837390, 826150653479, 11827659365138, 204993767192252, 3371451881544534, 65337695492942258, 1198123466804343518, 25318312971995895392, 516420623159289735874

Offset: 1

Alois P. Heinz, Sep 22 2019

nonn

			a(1) = 1:
  1
a(2) = 1:
  2 -> 11
a(3) = 2:
  3 -> 111
  3 -> 21   -> 111
a(4) = 7:
  4 -> 1111
  4 -> 211  -> 1111
  4 -> 31   -> 1111
  4 -> 31   -> 211  -> 1111
  4 -> 22   -> 1111
  4 -> 22   -> 112  -> 1111
  4 -> 22   -> 211  -> 1111

Wikipedia, Partition (number theory)

Cf. A002846, A327643, A327698, A327699, A327702.

A327698 Number of refinement sequences n -> ... -> {1}^n, where in each step exactly one part is replaced by a partition of itself into smaller parts (in weakly decreasing order).

Original entry on oeis.org

1, 1, 2, 6, 17, 74, 300, 1755, 9360, 65510, 442117, 3802889, 30213386, 294892947, 2789021105, 31360525517, 334374848070, 4184958056248, 50606351991305, 704124800141153, 9452367941048830, 143309007303310536, 2124982437997726705, 35389562541842450218

Offset: 1

Alois P. Heinz, Sep 22 2019

nonn

			a(4) = 6:
  4 -> 1111
  4 -> 211  -> 1111
  4 -> 31   -> 1111
  4 -> 31   -> 211  -> 1111
  4 -> 22   -> 112  -> 1111
  4 -> 22   -> 211  -> 1111

Wikipedia, Partition (number theory)

Cf. A002846, A327643, A327697, A327699, A327702.

cp's OEIS Frontend

A321472 Heinz numbers of integer partitions whose parts can be further partitioned and flattened to obtain the partition (k, ..., 3, 2, 1) for some k.

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

A382460 Number of integer partitions of n that can be partitioned into sets with distinct sums in exactly one way.

Views

Author

Keywords

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

A317143 In the ranked poset of integer partitions ordered by refinement, row n lists the Heinz numbers of integer partitions finer (less) than or equal to the integer partition with Heinz number n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A317176 Number of chains of factorizations of n into factors > 1, ordered by refinement, starting with the prime factorization of n and ending with the maximum factorization (n).

Views

Author

Keywords

Comments

Examples

Crossrefs

Formula

A327702 Number of refinement sequences n -> ... -> {1}^n, where in each step one part that is the rightmost copy of its size is replaced by a partition of itself into smaller parts (in weakly decreasing order).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

A330727 Irregular triangle read by rows where T(n,k) is the number of balanced reduced multisystems of depth k whose degrees (atom multiplicities) are the prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A327697 Number of refinement sequences n -> ... -> {1}^n, where in each step every single part of a nonempty selection of parts is replaced by a partition of itself into smaller parts (in weakly decreasing order).

Views

Author

Keywords

Examples

Links

Crossrefs

A327698 Number of refinement sequences n -> ... -> {1}^n, where in each step exactly one part is replaced by a partition of itself into smaller parts (in weakly decreasing order).

Views