A270995 -id:A270995 - cp's OEIS frontend

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

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

A358824 Number of twice-partitions of n of odd length.

Original entry on oeis.org

0, 1, 2, 4, 7, 15, 32, 61, 121, 260, 498, 967, 1890, 3603, 6839, 12972, 23883, 44636, 82705, 150904, 275635, 501737, 905498, 1628293, 2922580, 5224991, 9296414, 16482995, 29125140, 51287098, 90171414, 157704275, 275419984, 479683837, 833154673, 1442550486, 2493570655

Offset: 0

Gus Wiseman, Dec 03 2022

nonn

A twice-partition of n is a sequence of integer partitions, one of each part of an integer partition of n.

			The a(1) = 1 through a(5) = 15 twice-partitions:
  (1)  (2)   (3)        (4)         (5)
       (11)  (21)       (22)        (32)
             (111)      (31)        (41)
             (1)(1)(1)  (211)       (221)
                        (1111)      (311)
                        (2)(1)(1)   (2111)
                        (11)(1)(1)  (11111)
                                    (2)(2)(1)
                                    (3)(1)(1)
                                    (11)(2)(1)
                                    (2)(11)(1)
                                    (21)(1)(1)
                                    (11)(11)(1)
                                    (111)(1)(1)
                                    (1)(1)(1)(1)(1)

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

The version for set partitions is A024429.
For odd lengths (instead of length) we have A358334.
The case of odd parts also is A358823.
The case of odd sums also is A358826.
The case of odd lengths also is A358834.
For multiset partitions of integer partitions: A358837, ranked by A026424.
A000009 counts partitions into odd parts.
A027193 counts partitions of odd length.
A063834 counts twice-partitions, strict A296122, row-sums of A321449.
A078408 counts odd-length partitions into odd parts.
A300301 aerated counts twice-partitions with odd sums and parts.
Cf. A000041, A001970, A072233, A270995, A271619, A279374, A279785, A306319, A336342, A356932.

twiptn[n_]:=Join@@Table[Tuples[IntegerPartitions/@ptn],{ptn,IntegerPartitions[n]}];
Table[Length[Select[twiptn[n],OddQ[Length[#]]&]],{n,0,10}]

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

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

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

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

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

A307068 Expansion of 1/(1 - Sum_{k>=1} k!x^(k(k+1)/2) / Product_{j=1..k} (1 - x^j)).

Original entry on oeis.org

1, 1, 2, 6, 14, 34, 88, 216, 532, 1322, 3290, 8142, 20192, 50080, 124144, 307878, 763474, 1893038, 4694060, 11639580, 28861736, 71567206, 177460750, 440037738, 1091134276, 2705618900, 6708953156, 16635775698, 41250705518, 102286806130, 253634237896, 628921097352, 1559496588628

Offset: 0

Ilya Gutkovskiy, Mar 22 2019

nonn

Invert transform of A032020.
Number of ways to choose a strict composition of each part of a composition of n. - Gus Wiseman, Jul 18 2020
The Invert transform T(a) of a sequence a is given by T(a)n = Sum_c Product_i a(c_i), where the sum is over all compositions c of n. - _Gus Wiseman, Aug 01 2020

			From _Gus Wiseman_, Jul 18 2020: (Start)
The a(1) = 1 through a(4) = 14 ways to choose a strict composition of each part of a composition:
    (1)  (2)      (3)          (4)
         (1),(1)  (1,2)        (1,3)
                  (2,1)        (3,1)
                  (1),(2)      (1),(3)
                  (2),(1)      (2),(2)
                  (1),(1),(1)  (3),(1)
                               (1),(1,2)
                               (1),(2,1)
                               (1,2),(1)
                               (2,1),(1)
                               (1),(1),(2)
                               (1),(2),(1)
                               (2),(1),(1)
                               (1),(1),(1),(1)
(End)

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

The version for partitions is A270995.
Starting with a strict composition gives A336139.
Strict compositions are counted by A032020.
Partitions of each part of a partition are A063834.
Compositions of each part of a partition are A075900.
Compositions of each part of a composition are A133494.
Strict partitions of each part of a strict partition are A279785.
Compositions of each part of a strict partition are A304961.
Strict partitions of each part of a composition are A304969.
Compositions of each part of a strict composition are A336127.
Set partitions of strict compositions are A336140.
Strict compositions of each part of a partition are A336141.
Cf. A001970, A307067, A317536, A318683, A318684, A319794, A323583, A336128, A336130, A336132.

m:=80;
R:=PowerSeriesRing(Integers(), m);
Coefficients(R!( 1/(1 - (&+[Factorial(k)*x^Binomial(k+1,2)/(&*[ 1-x^j: j in [1..k]]): k in [1..m+2]]) ) )); // G. C. Greubel, Jan 25 2024

T:= proc(n, k) option remember; `if`(k<0 or n<0, 0,
      `if`(k=0, `if`(n=0, 1, 0), T(n-k, k) +k*T(n-k, k-1)))
    end:
g:= proc(n) option remember; add(T(n, k), k=0..floor((sqrt(8*n+1)-1)/2)) end:
a:= proc(n) option remember; `if`(n<1, 1,
      add(a(n-i)*g(i), i=1..n))
    end:
seq(a(n), n=0..32);  # Alois P. Heinz, Dec 16 2022

nmax = 32; CoefficientList[Series[1/(1 - Sum[k!*x^(k*(k+1)/2)/Product[ (1-x^j), {j,k}], {k,nmax}]), {x, 0, nmax}], x]

m=80;
def p(x, j): return product(1-x^k for k in range(1,j+1))
def f(x): return 1/(1 - sum(factorial(j)*x^binomial(j+1,2)/p(x,j) for j in range(1, m+3)) )
def A307068_list(prec):
    P. = PowerSeriesRing(QQ, prec)
    return P( f(x) ).list()
A307068_list(m) # G. C. Greubel, Jan 25 2024

a(0) = 1; a(n) = Sum_{k=1..n} A032020(k)*a(n-k).

A356935 Numbers whose prime indices all have odd bigomega (number of prime factors with multiplicity). Products of primes indexed by elements of A026424. MM-numbers of finite multisets of finite odd-length multisets of positive integers.

Original entry on oeis.org

1, 3, 5, 9, 11, 15, 17, 19, 25, 27, 31, 33, 37, 41, 45, 51, 55, 57, 59, 61, 67, 71, 75, 81, 83, 85, 93, 95, 99, 103, 107, 109, 111, 113, 121, 123, 125, 127, 131, 135, 153, 155, 157, 165, 171, 177, 179, 181, 183, 185, 187, 191, 193, 197, 201, 205, 209, 211, 213

Offset: 1

Gus Wiseman, Sep 12 2022

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. We define the multiset of multisets with MM-number n to be formed by taking the multiset of prime indices of each part of the multiset of prime indices of n. The size of this multiset of multisets is A302242(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 initial terms and corresponding multiset partitions:
   1: {}
   3: {{1}}
   5: {{2}}
   9: {{1},{1}}
  11: {{3}}
  15: {{1},{2}}
  17: {{4}}
  19: {{1,1,1}}
  25: {{2},{2}}
  27: {{1},{1},{1}}
  31: {{5}}
  33: {{1},{3}}
  37: {{1,1,2}}
  41: {{6}}
  45: {{1},{1},{2}}
  51: {{1},{4}}
  55: {{2},{3}}
  57: {{1},{1,1,1}}

Gus Wiseman, Counting and ranking classes of multiset partitions related to gapless multisets

A000041 counts integer partitions, strict A000009.
A000688 counts factorizations into prime powers.
A001055 counts factorizations.
A001221 counts prime divisors, sum A001414.
A001222 counts prime factors with multiplicity.
A056239 adds up prime indices, row sums of A112798.
Odd-size multisets are ctd by A000302, A027193, A058695, rkd by A026424.
Other types: A050330, A356932, A356933, A356934.
Other conditions: A302478, A302492, A356930, A356939, A356940, A356944, A356945.
Cf. A000040, A000720, A003963, A270995, A302242, A304969, A349050, A349055.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],OddQ[Times@@Length/@primeMS/@primeMS[#]]&]

A358334 Number of twice-partitions of n into odd-length partitions.

Original entry on oeis.org

1, 1, 2, 4, 7, 13, 25, 43, 77, 137, 241, 410, 720, 1209, 2073, 3498, 5883, 9768, 16413, 26978, 44741, 73460, 120462, 196066, 320389, 518118, 839325, 1353283, 2178764, 3490105, 5597982, 8922963, 14228404, 22609823, 35875313, 56756240, 89761600, 141410896, 222675765

Offset: 0

Gus Wiseman, Dec 01 2022

nonn

A twice-partition of n (A063834) is a sequence of integer partitions, one of each part of an integer partition of n.

			The a(0) = 1 through a(5) = 13 twice-partitions:
  ()  ((1))  ((2))     ((3))        ((4))           ((5))
             ((1)(1))  ((111))      ((211))         ((221))
                       ((2)(1))     ((2)(2))        ((311))
                       ((1)(1)(1))  ((3)(1))        ((3)(2))
                                    ((111)(1))      ((4)(1))
                                    ((2)(1)(1))     ((11111))
                                    ((1)(1)(1)(1))  ((111)(2))
                                                    ((211)(1))
                                                    ((2)(2)(1))
                                                    ((3)(1)(1))
                                                    ((111)(1)(1))
                                                    ((2)(1)(1)(1))
                                                    ((1)(1)(1)(1)(1))

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

For multiset partitions of integer partitions: A356932, ranked by A356935.
For odd length instead of lengths we have A358824.
For odd sums instead of lengths we have A358825.
For odd sums also we have A358827.
For odd length also we have A358834.
A000041 counts integer partitions.
A027193 counts odd-length partitions, ranked by A026424.
A055922 counts partitions with odd multiplicities, also odd parts A117958.
A063834 counts twice-partitions, strict A296122, row-sums of A321449.
Cf. A000219, A001970, A072233, A078408, A270995, A279374, A298118, A300300, A300301, A300647, A302243.

twiptn[n_]:=Join@@Table[Tuples[IntegerPartitions/@ptn],{ptn,IntegerPartitions[n]}];
Table[Length[Select[twiptn[n],OddQ[Times@@Length/@#]&]],{n,0,10}]

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

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

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

A381438 Triangle read by rows where T(n>0,k>0) is the number of integer partitions of n whose section-sum partition ends with k.

Original entry on oeis.org

1, 1, 1, 1, 0, 2, 2, 1, 0, 2, 3, 1, 0, 0, 3, 4, 1, 2, 0, 0, 4, 7, 2, 1, 0, 0, 0, 5, 9, 4, 1, 2, 0, 0, 0, 6, 13, 4, 4, 1, 0, 0, 0, 0, 8, 18, 6, 3, 2, 3, 0, 0, 0, 0, 10, 26, 9, 5, 2, 2, 0, 0, 0, 0, 0, 12, 32, 12, 8, 4, 2, 4, 0, 0, 0, 0, 0, 15

Offset: 1

Gus Wiseman, Mar 01 2025

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.

			Triangle begins:
   1
   1  1
   1  0  2
   2  1  0  2
   3  1  0  0  3
   4  1  2  0  0  4
   7  2  1  0  0  0  5
   9  4  1  2  0  0  0  6
  13  4  4  1  0  0  0  0  8
  18  6  3  2  3  0  0  0  0 10
  26  9  5  2  2  0  0  0  0  0 12
  32 12  8  4  2  4  0  0  0  0  0 15
  47 16 11  4  3  2  0  0  0  0  0  0 18
  60 23 12  8  3  2  5  0  0  0  0  0  0 22
  79 27 20  7  9  4  3  0  0  0  0  0  0  0 27
 Row n = 9 counts the following partitions:
  (711)        (522)    (333)     (441)  .  .  .  .  (9)
  (6111)       (4221)   (3321)                       (81)
  (5211)       (3222)   (32211)                      (72)
  (51111)      (22221)  (222111)                     (63)
  (4311)                                             (621)
  (42111)                                            (54)
  (411111)                                           (531)
  (33111)                                            (432)
  (321111)
  (3111111)
  (2211111)
  (21111111)
  (111111111)

Last column (k=n) is A000009.
Row sums are A000041.
Row sums without the last column (k=n) are A047967.
For first instead of last part we have A116861, rank A066328.
First column (k=1) is A241131 shifted right and starting with 1 instead of 0.
Using Heinz numbers, this statistic is given by A381437.
A122111 represents conjugation in terms of Heinz numbers.
A239455 counts section-sum partitions, complement A351293.
Set multipartitions: A050320, A089259, A116540, A270995, A296119, A318360, A318361.
Section-sum partition: A381431, A381432, A381433, A381434, A381435, A381436.
Look-and-Say partition: A048767, A351294, A351295, A381440.
Cf. A047966, A051903, A051904, A091602, A181819, A212166.

egs[y_]:=If[y=={},{},Table[Total[Select[Union[y],Count[y,#]>=i&]],{i,Max@@Length/@Split[y]}]];
Table[Length[Select[IntegerPartitions[n],k==Last[egs[#]]&]],{n,15},{k,n}]

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

cp's OEIS Frontend

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

Crossrefs

Programs

Mathematica

Extensions

A358824 Number of twice-partitions of n of odd length.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

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

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

A307068 Expansion of 1/(1 - Sum_{k>=1} k!*x^(k*(k+1)/2) / Product_{j=1..k} (1 - x^j)).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Maple

Mathematica

SageMath

Formula

A356935 Numbers whose prime indices all have odd bigomega (number of prime factors with multiplicity). Products of primes indexed by elements of A026424. MM-numbers of finite multisets of finite odd-length multisets of positive integers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A307068 Expansion of 1/(1 - Sum_{k>=1} k!x^(k(k+1)/2) / Product_{j=1..k} (1 - x^j)).