A089259 -id:A089259 - cp's OEIS frontend

A285229 Expansion of g.f. Product_{j>=1} 1/(1-y*x^j)^A000009(j), triangle T(n,k), n>=0, 0<=k<=n, read by rows.

1, 0, 1, 0, 1, 1, 0, 2, 1, 1, 0, 2, 3, 1, 1, 0, 3, 4, 3, 1, 1, 0, 4, 8, 5, 3, 1, 1, 0, 5, 11, 10, 5, 3, 1, 1, 0, 6, 18, 16, 11, 5, 3, 1, 1, 0, 8, 25, 29, 18, 11, 5, 3, 1, 1, 0, 10, 38, 44, 34, 19, 11, 5, 3, 1, 1, 0, 12, 52, 72, 55, 36, 19, 11, 5, 3, 1, 1

Offset: 0

Alois P. Heinz, Apr 14 2017

			T(n,k) is the number of multisets of exactly k partitions of positive integers into distinct parts with total sum of parts equal to n.
T(4,1) = 2: {4}, {31}.
T(4,2) = 3: {3,1}, {21,1}, {2,2}.
T(4,3) = 1: {2,1,1}.
T(4,4) = 1: {1,1,1,1}.
Triangle T(n,k) begins:
  1;
  0,  1;
  0,  1,  1;
  0,  2,  1,   1;
  0,  2,  3,   1,  1;
  0,  3,  4,   3,  1,  1;
  0,  4,  8,   5,  3,  1,  1;
  0,  5, 11,  10,  5,  3,  1,  1;
  0,  6, 18,  16, 11,  5,  3,  1,  1;
  0,  8, 25,  29, 18, 11,  5,  3,  1, 1;
  0, 10, 38,  44, 34, 19, 11,  5,  3, 1, 1;
  0, 12, 52,  72, 55, 36, 19, 11,  5, 3, 1, 1;
  0, 15, 75, 110, 96, 60, 37, 19, 11, 5, 3, 1, 1;
  ...

Alois P. Heinz, Rows n = 0..200, flattened
Index entries for triangles generated by the Multiset Transformation

Columns k=0..10 give: A000007, A000009 (for n>0), A320787, A320788, A320789, A320790, A320791, A320792, A320793, A320794, A320795.
Row sums give A089259.
T(2n,n) give A285230.
Cf. A061260, A360763.

with(numtheory):
g:= proc(n) option remember; `if`(n=0, 1, add(add(
      `if`(d::odd, d, 0), d=divisors(j))*g(n-j), j=1..n)/n)
    end:
b:= proc(n, i) option remember; expand(
      `if`(n=0, 1, `if`(i<1, 0, add(b(n-i*j, i-1)*
       x^j*binomial(g(i)+j-1, j), j=0..n/i))))
    end:
T:= n-> (p-> seq(coeff(p, x, i), i=0..n))(b(n$2)):
seq(T(n), n=0..16);

L[n_] := QPochhammer[x^2]/QPochhammer[x] + O[x]^n;
A[n_] := Module[{c = L[n]}, CoefficientList[#, y]& /@ CoefficientList[ 1/Product[(1 - x^k*y + O[x]^n)^SeriesCoefficient[c, {x, 0, k}], {k, 1, n}], x]];
A[12] // Flatten (* Jean-François Alcover, Jan 19 2020, after Andrew Howroyd *)
g[n_] := g[n] = If[n==0, 1, Sum[Sum[If[OddQ[d], d, 0], {d, Divisors[j]}]* g[n - j], {j, 1, n}]/n];
b[n_, i_] := b[n, i] = If[n==0, 1, If[i<1, 0, Sum[b[n - i*j, i - 1]*x^j* Binomial[g[i] + j - 1, j], {j, 0, n/i}]]];
T[n_] := CoefficientList[b[n, n] + O[x]^(n+1), x];
T /@ Range[0, 16] // Flatten (* Jean-François Alcover, Dec 14 2020, after Alois P. Heinz *)

L(n)={eta(x^2 + O(x*x^n))/eta(x + O(x*x^n))}
A(n)={my(c=L(n), v=Vec(1/prod(k=1, n, (1 - x^k*y + O(x*x^n))^polcoef(c,k)))); vector(#v, n, Vecrev(v[n],n))}
{my(T=A(12)); for(n=1, #T, print(T[n]))} \\ Andrew Howroyd, Dec 29 2019

G.f.: Product_{j>=1} 1/(1-y*x^j)^A000009(j).

A381440 Irregular triangle read by rows where row k is the Look-and-Say partition of the prime indices of n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Feb 28 2025

Row lengths are A066328.
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 Look-and-Say partition of a multiset or partition y is obtained by interchanging parts with multiplicities. For example, starting with (3,2,2,1,1) we get (2,2,2,1,1,1), the multiset union of ((1,1,1),(2,2),(2)).
The conjugate of a Look-and-Say partition is a section-sum partition; see A381431, union A381432, count A239455.

			The prime indices of 24 are (2,1,1,1), with Look-and-Say partition (3,1,1), so row 24 is (3,1,1).
The prime indices of 36 are (2,2,1,1), with Look-and-Say partition (2,2,2), so row 36 is (2,2,2).
Triangle begins:
   1: (empty)
   2: 1
   3: 1 1
   4: 2
   5: 1 1 1
   6: 1 1 1
   7: 1 1 1 1
   8: 3
   9: 2 2
  10: 1 1 1 1
  11: 1 1 1 1 1
  12: 2 1 1
  13: 1 1 1 1 1 1
  14: 1 1 1 1 1
  15: 1 1 1 1 1
  16: 4
  17: 1 1 1 1 1 1 1
  18: 2 2 1
  19: 1 1 1 1 1 1 1 1

Heinz numbers are A048767 (union A351294, complement A351295, fixed A048768, A217605).
First part in each row is A051903, conjugate A066328.
Last part in each row is A051904, conjugate A381437 (counted by A381438).
Row sums are A056239.
Row lengths are A066328.
Partitions of this type are counted by A239455, complement A351293.
The conjugate is A381436, Heinz numbers A381431 (union A381432, complement A381433).
Rows appearing only once have Heinz numbers A381540, more than once A381541.
A000040 lists the primes.
A003963 gives product of prime indices.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A122111 represents conjugation in terms of Heinz numbers.
Set multipartitions: A050320, A089259, A116540, A270995, A296119, A318360, A318361.
Partition ideals: A300383, A317141, A381078, A381441, A381452, A381454.
Cf. A000720, A003557, A047966, A071178, A091602, A116861, A130091, A181819, A212166, A238744, A380955.

Table[Sort[Join@@Cases[FactorInteger[n],{p_,k_}:>ConstantArray[k,PrimePi[p]]]]//Reverse,{n,30}]

A356932 Number of multiset partitions of integer partitions of n such that all blocks have odd size.

Original entry on oeis.org

1, 1, 2, 4, 7, 13, 24, 42, 74, 130, 224, 383, 653, 1100, 1846, 3079, 5104, 8418, 13827, 22592, 36774, 59613, 96271, 154908, 248441, 397110, 632823, 1005445, 1592962, 2516905, 3966474, 6235107, 9777791, 15297678, 23880160, 37196958, 57819018, 89691934, 138862937

Offset: 0

Gus Wiseman, Sep 11 2022

nonn

			The a(1) = 1 through a(5) = 13 multiset partitions:
  {1}  {2}     {3}        {4}           {5}
       {1}{1}  {111}      {112}         {113}
               {1}{2}     {1}{3}        {122}
               {1}{1}{1}  {2}{2}        {1}{4}
                          {1}{111}      {2}{3}
                          {1}{1}{2}     {11111}
                          {1}{1}{1}{1}  {1}{112}
                                        {2}{111}
                                        {1}{1}{3}
                                        {1}{2}{2}
                                        {1}{1}{111}
                                        {1}{1}{1}{2}
                                        {1}{1}{1}{1}{1}

Andrew Howroyd, Table of n, a(n) for n = 0..1000
Gus Wiseman, Counting and ranking classes of multiset partitions related to gapless multisets

Partitions with odd multiplicities are counted by A055922.
Odd-length multisets are counted by A000302, A027193, A058695, ranked by A026424.
Other types: A050330, A356933, A356934, A356935.
Other conditions: A001970, A006171, A007294, A089259, A107742, A356941.
A000041 counts integer partitions, strict A000009.
A001055 counts factorizations.
Cf. A000670, A011782, A055887, A072233, A117958, A270995, A304969.

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[Join@@mps/@IntegerPartitions[n],OddQ[Times@@Length/@#]&]],{n,0,8}]

P(n,y) = {1/prod(k=1, n, 1 - y*x^k + O(x*x^n))}
seq(n) = {my(u=Vec(P(n,1)-P(n,-1))/2); Vec(1/prod(k=1, n, (1 - x^k + O(x*x^n))^u[k])) } \\ Andrew Howroyd, Dec 30 2022

G.f.: 1/Product_{k>=1} (1 - x^k)^A027193(k). - Andrew Howroyd, Dec 30 2022

Terms a(13) and beyond from Andrew Howroyd, Dec 30 2022

A381437 Last part of the section-sum partition of the prime indices of n.

Original entry on oeis.org

0, 1, 2, 1, 3, 3, 4, 1, 2, 4, 5, 1, 6, 5, 5, 1, 7, 2, 8, 1, 6, 6, 9, 1, 3, 7, 2, 1, 10, 6, 11, 1, 7, 8, 7, 3, 12, 9, 8, 1, 13, 7, 14, 1, 2, 10, 15, 1, 4, 3, 9, 1, 16, 2, 8, 1, 10, 11, 17, 1, 18, 12, 2, 1, 9, 8, 19, 1, 11, 8, 20, 1, 21, 13, 3, 1, 9, 9, 22, 1, 2

Offset: 1

Gus Wiseman, Feb 28 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 section-sum partition (A381436) of a multiset or partition y is defined as follows: (1) determine and remember the sum of all distinct parts, (2) remove one instance of each distinct part, (3) repeat until no parts are left. The remembered values comprise the section-sum partition. For example, starting with (3,2,2,1,1) we get (6,3).
Equivalently, the k-th part of the section-sum partition is the sum of all (distinct) parts that appear at least k times. Compare to the definition of the conjugate of a partition, where we count parts >= k.
The conjugate of a section-sum partition is a Look-and-Say partition; see A048767, union A351294, count A239455.

			The prime indices of 972 are {1,1,2,2,2,2,2}, with section-sum partition (3,3,2,2,2), so a(972) = 2.

Positions of first appearances are A008578.
The length of this partition is A051903.
The conjugate version is A051904.
For first instead of last part we get A066328.
These partitions are counted by A239455, complement A351293.
Positions of 1 are A360013, complement A381439.
This is the least prime index of A381431 (see A381432, A381433, A381434, A381435).
This is the last part of row n of A381436 (see A381440, A048767, A351294, A351295).
Counting partitions by this statistic gives A381438.
A000040 lists the primes, differences A001223.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798.
A122111 represents conjugation in terms of Heinz numbers.
Set multipartitions: A050320, A089259, A116540, A270995, A296119, A318360, A318361.
Cf. A000720, A001221, A001222, A003557, A047966, A116861, A130091, A181819, A380955.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
egs[y_]:=If[y=={},{},Table[Total[Select[Union[y],Count[y,#]>=i&]],{i,Max@@Length/@Split[y]}]];
Table[If[n==1,0,Last[egs[prix[n]]]],{n,100}]

a(n) = A055396(A381431(n)).

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

Original entry on oeis.org

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

A050345 Number of ways to factor n into distinct factors with one level of parentheses.

Original entry on oeis.org

1, 1, 1, 1, 1, 3, 1, 3, 1, 3, 1, 6, 1, 3, 3, 4, 1, 6, 1, 6, 3, 3, 1, 13, 1, 3, 3, 6, 1, 12, 1, 7, 3, 3, 3, 15, 1, 3, 3, 13, 1, 12, 1, 6, 6, 3, 1, 25, 1, 6, 3, 6, 1, 13, 3, 13, 3, 3, 1, 31, 1, 3, 6, 12, 3, 12, 1, 6, 3, 12, 1, 37, 1, 3, 6, 6, 3, 12, 1, 25, 4, 3, 1, 31, 3, 3, 3, 13, 1, 31, 3, 6, 3, 3

Offset: 1

Christian G. Bower, Oct 15 1999

nonn

First differs from A296120 at a(36) = 15, A296120(36) = 14. - Gus Wiseman, Apr 27 2025
Each "part" in parentheses is distinct from all others at the same level. Thus (3*2)*(2) is allowed but (3)*(2*2) and (3*2*2) are not.
a(n) depends only on prime signature of n (cf. A025487). So a(24) = a(375) since 24 = 2^3*3 and 375 = 3*5^3 both have prime signature (3,1).

			12 = (12) = (6*2) = (6)*(2) = (4*3) = (4)*(3) = (3*2)*(2).
From _Gus Wiseman_, Apr 26 2025: (Start)
This is the number of ways to partition a factorization of n (counted by A001055) into a set of sets. For example, the a(12) = 6 choices are:
  {{2},{2,3}}
  {{2},{6}}
  {{3},{4}}
  {{2,6}}
  {{3,4}}
  {{12}}
(End)

R. J. Mathar, Table of n, a(n) for n = 1..2519

Cf. A050346-A050350. a(A002110)=A000258.
For multisets of multisets we have A050336.
For integer partitions we have a(p^k) = A050342(k), see A001970, A089259, A261049.
For normal multiset partitions see A116539, A292432, A292444, A381996, A382214, A382216.
The case of a unique choice (positions of 1) is A166684.
Twice-partitions of this type are counted by A358914, see A270995, A281113, A294788.
For sets of multisets we have A383310 (distinct products A296118).
For multisets of sets we have we have A383311, see A296119.
A001055 counts factorizations, strict A045778.
A050320 counts factorizations into squarefree numbers, distinct A050326.
A302494 gives MM-numbers of sets of sets.
A382077 counts partitions that can be partitioned into a sets of sets, ranks A382200.
A382078 counts partitions that cannot be partitioned into a sets of sets, ranks A293243.
Cf. A000009, A002865, A005117, A045782, A279785, A293511, A296120, A316439, A381441, A382201.

facs[n_]:=If[n<=1,{{}}, Join@@Table[Map[Prepend[#,d]&, Select[facs[n/d],Min@@#>=d&]],{d, Rest[Divisors[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[Sum[Length[Select[mps[y], UnsameQ@@#&&And@@UnsameQ@@@#&]], {y,facs[n]}],{n,30}] (* Gus Wiseman, Apr 26 2025 *)

Dirichlet g.f.: Product_{n>=2}(1+1/n^s)^A045778(n).
a(n) = A050346(A025487^(-1)(A046523(n))), where A025487^(-1) is the inverse with A025487^(-1)(A025487(n))=n. - R. J. Mathar, May 25 2017
a(n) = A050346(A101296(n)). - Antti Karttunen, May 25 2017

A300300 Number of ways to choose a multiset of strict partitions, or odd partitions, of odd numbers, whose weights sum to n.

Original entry on oeis.org

1, 1, 1, 3, 3, 6, 9, 14, 20, 32, 48, 69, 105, 150, 225, 322, 472, 669, 977, 1379, 1980, 2802, 3977, 5602, 7892, 11083, 15494, 21688, 30147, 42007, 58143, 80665, 111199, 153640, 211080, 290408, 397817, 545171, 744645, 1016826, 1385124, 1885022, 2561111, 3474730

Offset: 0

Gus Wiseman, Mar 02 2018

nonn

			The a(6) = 9 multiset partitions using odd-weight strict partitions: (5)(1), (14)(1), (3)(3), (32)(1), (3)(21), (3)(1)(1)(1), (21)(21), (21)(1)(1)(1), (1)(1)(1)(1)(1)(1).
The a(6) = 9 multiset partitions using odd partitions: (5)(1), (3)(3), (311)(1), (3)(111), (3)(1)(1)(1), (11111)(1), (111)(111), (111)(1)(1)(1), (1)(1)(1)(1)(1)(1).

Alois P. Heinz, Table of n, a(n) for n = 0..10000

Cf. A000009, A063834, A078408, A089259, A270995, A271619, A279374, A279375, A279785, A279790, A294617, A300301.

with(numtheory):
b:= proc(n) option remember; `if`(n=0, 1, add(b(n-j)*add(
      `if`(d::odd, d, 0), d=divisors(j)), j=1..n)/n)
    end:
a:= proc(n) option remember; `if`(n=0, 1, add(a(n-j)*add(
      `if`(d::odd, b(d)*d, 0), d=divisors(j)), j=1..n)/n)
    end:
seq(a(n), n=0..45);  # Alois P. Heinz, Mar 02 2018

nn=50;
ser=Product[1/(1-x^n)^PartitionsQ[n],{n,1,nn,2}];
Table[SeriesCoefficient[ser,{x,0,n}],{n,0,nn}]

Euler transform of {Q(1), 0, Q(3), 0, Q(5), 0, ...} where Q = A000009.

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

A320328 Number of square multiset partitions of integer partitions of n.

Original entry on oeis.org

1, 1, 2, 3, 6, 11, 20, 36, 65, 117, 214, 382, 679

Offset: 0

Gus Wiseman, Oct 11 2018

A multiset partition is square if its length is equal to its number of distinct atoms.

			The a(1) = 1 through a(6) = 20 square partitions:
  {{1}}  {{2}}    {{3}}      {{4}}        {{5}}          {{6}}
         {{1,1}}  {{1,1,1}}  {{2,2}}      {{1},{4}}      {{3,3}}
                  {{1},{2}}  {{1},{3}}    {{2},{3}}      {{1},{5}}
                             {{1,1,1,1}}  {{1},{1,3}}    {{2,2,2}}
                             {{1},{1,2}}  {{1},{2,2}}    {{2},{4}}
                             {{2},{1,1}}  {{2},{1,2}}    {{1},{1,4}}
                                          {{3},{1,1}}    {{4},{1,1}}
                                          {{1,1,1,1,1}}  {{1},{1,1,3}}
                                          {{1},{1,1,2}}  {{1,1},{1,3}}
                                          {{1,1},{1,2}}  {{1},{1,2,2}}
                                          {{2},{1,1,1}}  {{1,1},{2,2}}
                                                         {{1,2},{1,2}}
                                                         {{1},{2},{3}}
                                                         {{2},{1,1,2}}
                                                         {{3},{1,1,1}}
                                                         {{1,1,1,1,1,1}}
                                                         {{1},{1,1,1,2}}
                                                         {{1,1},{1,1,2}}
                                                         {{1,2},{1,1,1}}
                                                         {{2},{1,1,1,1}}

Cf. A000219, A001970, A047968, A050342, A089259, A141268, A261049, A289501, A305551, A316983, A319066, A319312, A319616, A320330, A320331.

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[Join@@mps/@IntegerPartitions[n],Length[#]==Length[Union@@#]&]],{n,8}]

A381435 Numbers appearing more than once in A381431 (section-sum partition of prime indices).

Original entry on oeis.org

5, 7, 11, 13, 17, 19, 23, 25, 26, 29, 31, 34, 37, 38, 39, 41, 43, 46, 47, 49, 51, 52, 53, 57, 58, 59, 61, 62, 65, 67, 68, 69, 71, 73, 74, 76, 79, 82, 83, 85, 86, 87, 89, 91, 92, 93, 94, 95, 97, 101, 103, 104, 106, 107, 109, 111, 113, 115, 116, 117, 118, 119

Offset: 1

Gus Wiseman, Feb 27 2025

nonn

The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.
The section-sum partition (A381436) of a multiset or partition y is defined as follows: (1) determine and remember the sum of all distinct parts, (2) remove one instance of each distinct part, (3) repeat until no parts are left. The remembered values comprise the section-sum partition. For example, starting with (3,2,2,1,1) we get (6,3).
Equivalently, the k-th part of the section-sum partition is the sum of all (distinct) parts that appear at least k times. Compare to the definition of the conjugate of a partition, where we count parts >= k.
The conjugate of a section-sum partition is a Look-and-Say partition; see A048767, union A351294, count A239455.

			The terms together with their prime indices begin:
   5: {3}
   7: {4}
  11: {5}
  13: {6}
  17: {7}
  19: {8}
  23: {9}
  25: {3,3}
  26: {1,6}
  29: {10}
  31: {11}
  34: {1,7}
  37: {12}
  38: {1,8}
  39: {2,6}
  41: {13}
  43: {14}
  46: {1,9}
  47: {15}
  49: {4,4}
  51: {2,7}
  52: {1,1,6}

In A381431:
- fixed points are A000961, A000005
- conjugate is A048767, fixed points A048768, A217605
- all numbers present are A381432, conjugate A351294
- numbers missing are A381433, conjugate A351295
- numbers appearing only once are A381434, conjugate A381540
- numbers appearing more than once are A381435 (this), conjugate A381541
A000040 lists the primes, differences A001223.
A055396 gives least prime index, greatest A061395.
A056239 adds up prime indices, row sums of A112798, counted by A001222.
A122111 represents conjugation in terms of Heinz numbers.
A239455 counts section-sum partitions, complement A351293.
A381436 lists section-sum partition of prime indices, conjugate A381440.
Set multipartitions: A050320, A089259, A116540, A296119, A318360, A318361.
Partition ideals: A300383, A317141, A381078, A381441, A381452, A381454.
Cf. A000720, A003557, A051903, A066328, A116861, A130091, A212166, A239964, A317081, A381437.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
egs[y_]:=If[y=={},{},Table[Total[Select[Union[y],Count[y,#]>=i&]],{i,Max@@Length/@Split[y]}]];
Select[Range[100],Count[Times@@Prime/@#&/@egs/@IntegerPartitions[Total[prix[#]]],#]>1&]

The complement is A381434 U A381433.

cp's OEIS Frontend

A285229 Expansion of g.f. Product_{j>=1} 1/(1-y*x^j)^A000009(j), triangle T(n,k), n>=0, 0<=k<=n, read by rows.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A381440 Irregular triangle read by rows where row k is the Look-and-Say partition of the prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A356932 Number of multiset partitions of integer partitions of n such that all blocks have odd size.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A381437 Last part of the section-sum partition of the prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

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

A050345 Number of ways to factor n into distinct factors with one level of parentheses.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A300300 Number of ways to choose a multiset of strict partitions, or odd partitions, of odd numbers, whose weights sum to n.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

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

Views

Author

Keywords

Examples