A356932 -id:A356932 - cp's OEIS frontend

A358836 Number of multiset partitions of integer partitions of n with all distinct block sizes.

1, 1, 2, 4, 8, 15, 28, 51, 92, 164, 289, 504, 871, 1493, 2539, 4290, 7201, 12017, 19939, 32911, 54044, 88330, 143709, 232817, 375640, 603755, 966816, 1542776, 2453536, 3889338, 6146126, 9683279, 15211881, 23830271, 37230720, 58015116, 90174847, 139820368, 216286593

Offset: 0

Gus Wiseman, Dec 05 2022

nonn

Also the number of integer compositions of n whose leaders of maximal weakly decreasing runs are strictly increasing. For example, the composition (1,2,2,1,3,1,4,1) has maximal weakly decreasing runs ((1),(2,2,1),(3,1),(4,1)), with leaders (1,2,3,4), so is counted under a(15). - Gus Wiseman, Aug 21 2024

			The a(1) = 1 through a(5) = 15 multiset partitions:
  {1}  {2}    {3}        {4}          {5}
       {1,1}  {1,2}      {1,3}        {1,4}
              {1,1,1}    {2,2}        {2,3}
              {1},{1,1}  {1,1,2}      {1,1,3}
                         {1,1,1,1}    {1,2,2}
                         {1},{1,2}    {1,1,1,2}
                         {2},{1,1}    {1},{1,3}
                         {1},{1,1,1}  {1},{2,2}
                                      {2},{1,2}
                                      {3},{1,1}
                                      {1,1,1,1,1}
                                      {1},{1,1,2}
                                      {2},{1,1,1}
                                      {1},{1,1,1,1}
                                      {1,1},{1,1,1}
From _Gus Wiseman_, Aug 21 2024: (Start)
The a(0) = 1 through a(5) = 15 compositions whose leaders of maximal weakly decreasing runs are strictly increasing:
  ()  (1)  (2)   (3)    (4)     (5)
           (11)  (12)   (13)    (14)
                 (21)   (22)    (23)
                 (111)  (31)    (32)
                        (112)   (41)
                        (121)   (113)
                        (211)   (122)
                        (1111)  (131)
                                (221)
                                (311)
                                (1112)
                                (1121)
                                (1211)
                                (2111)
                                (11111)
(End)

Andrew Howroyd, Table of n, a(n) for n = 0..1000
Gus Wiseman, Sequences counting and ranking compositions by their leaders (for six types of runs).

The version for set partitions is A007837.
For sums instead of sizes we have A271619.
For constant instead of distinct sizes we have A319066.
These multiset partitions are ranked by A326533.
For odd instead of distinct sizes we have A356932.
The version for twice-partitions is A358830.
The case of distinct sums also is A358832.
Ranked by positions of strictly increasing rows in A374740, opposite A374629.
A001970 counts multiset partitions of integer partitions.
A011782 counts compositions.
A063834 counts twice-partitions, strict A296122.
A238130, A238279, A333755 count compositions by number of runs.
A335456 counts patterns matched by compositions.
Runs and leaders: A000041, A188900, A374634, A374635, A374637, A374679, A374742 (ranks A374744), A374743 (ranks A374701), A374746, A374747.
Cf. A000009, A141199, A273873, A279375, A279785, A279790, A358334.
Cf. A003242, A106356, A188920, A189076, A238343, A333213, A336342.

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],UnsameQ@@Length/@#&]],{n,0,10}]
(* second program *)
Table[Length[Select[Join@@Permutations/@IntegerPartitions[n], Less@@First/@Split[#,GreaterEqual]&]],{n,0,15}] (* Gus Wiseman, Aug 21 2024 *)

P(n,y) = {1/prod(k=1, n, 1 - y*x^k + O(x*x^n))}
seq(n) = {my(g=P(n,y)); Vec(prod(k=1, n, 1 + polcoef(g, k, y) + O(x*x^n)))} \\ Andrew Howroyd, Dec 31 2022

G.f.: Product_{k>=1} (1 + [y^k]P(x,y)) where P(x,y) = 1/Product_{k>=1} (1 - y*x^k). - Andrew Howroyd, Dec 31 2022

Terms a(11) and beyond from Andrew Howroyd, Dec 31 2022

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

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

A356934 Number of multisets of odd-size multisets whose multiset union is a size-n multiset covering an initial interval with weakly decreasing multiplicities.

Original entry on oeis.org

1, 1, 2, 6, 17, 46, 166, 553, 2093

Offset: 0

Gus Wiseman, Sep 09 2022

			The a(1) = 1 through a(4) = 17 multiset partitions:
  {{1}}  {{1},{1}}  {{1,1,1}}      {{1},{1,1,1}}
         {{1},{2}}  {{1,1,2}}      {{1},{1,1,2}}
                    {{1,2,3}}      {{1},{1,2,2}}
                    {{1},{1},{1}}  {{1},{1,2,3}}
                    {{1},{1},{2}}  {{1},{2,3,4}}
                    {{1},{2},{3}}  {{2},{1,1,1}}
                                   {{2},{1,1,2}}
                                   {{2},{1,1,3}}
                                   {{2},{1,3,4}}
                                   {{3},{1,1,2}}
                                   {{3},{1,2,4}}
                                   {{4},{1,2,3}}
                                   {{1},{1},{1},{1}}
                                   {{1},{1},{1},{2}}
                                   {{1},{1},{2},{2}}
                                   {{1},{1},{2},{3}}
                                   {{1},{2},{3},{4}}

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

A000041 counts integer partitions, strict A000009.
A000670 counts patterns, ranked by A333217, necklace A019536.
A011782 counts multisets covering an initial interval.
Odd-size multisets are counted by A000302, A027193, A058695, ranked by A026424.
Other conditions: A035310, A063834, A330783, A356938, A356943, A356954.
Other types: A050330, A356932, A356933, A356935.
Cf. A055887, A072233, A270995, A304969, A349050, A349055.

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

A356941 Number of multiset partitions of integer partitions of n such that all blocks are gapless.

Original entry on oeis.org

1, 1, 3, 6, 13, 24, 49, 88, 166, 297, 534, 932, 1635, 2796, 4782, 8060, 13521, 22438, 37080, 60717, 98979, 160216, 258115, 413382, 659177, 1045636, 1651891, 2597849, 4069708, 6349677, 9871554, 15290322, 23604794, 36318256, 55705321, 85177643, 129865495

Offset: 0

Gus Wiseman, Sep 11 2022

nonn

A multiset is gapless if it covers an interval of positive integers. For example, {2,3,3,4} is gapless but {1,1,3,3} is not.

			The a(1) = 1 through a(4) = 13 multiset partitions:
  {{1}}  {{2}}      {{3}}          {{4}}
         {{1,1}}    {{1,2}}        {{2,2}}
         {{1},{1}}  {{1,1,1}}      {{1,1,2}}
                    {{1},{2}}      {{1},{3}}
                    {{1},{1,1}}    {{2},{2}}
                    {{1},{1},{1}}  {{1,1,1,1}}
                                   {{1},{1,2}}
                                   {{2},{1,1}}
                                   {{1},{1,1,1}}
                                   {{1,1},{1,1}}
                                   {{1},{1},{2}}
                                   {{1},{1},{1,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

A000041 counts integer partitions, strict A000009.
A000670 counts patterns, ranked by A333217, necklace A019536.
A001055 counts factorizations.
A011782 counts multisets covering an initial interval.
A356069 counts gapless divisors, initial A356224 (complement A356225).
Gapless multisets are counted by A034296, ranked by A073491.
Other types: A356233, A356942, A356943, A356944.
Other conditions: A001970, A006171, A007294, A089259, A107742, A356932.
Cf. A055887, A072233, A270995.

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]]]];
nogapQ[m_]:=Or[m=={},Union[m]==Range[Min[m],Max[m]]];
Table[Length[Select[Join@@mps/@IntegerPartitions[n],And@@nogapQ/@#&]],{n,0,5}]

\\ Here G(n) gives A034296 as vector
G(N) = Vec(sum(n=1, N, x^n/(1-x^n) * prod(k=1, n-1, 1+x^k+O(x*x^(N-n))) ));
seq(n) = {my(u=G(n)); Vec(1/prod(k=1, n-1, (1 - x^k + O(x*x^n))^u[k])) } \\ Andrew Howroyd, Dec 30 2022

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

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

A356933 Number of multisets of multisets, each of odd size, whose multiset union is a size-n multiset covering an initial interval.

Original entry on oeis.org

1, 1, 2, 8, 28, 108, 524, 2608, 14176, 86576, 550672, 3782496, 27843880, 214071392, 1751823600, 15041687664, 134843207240, 1269731540864, 12427331494304, 126619822952928, 1341762163389920, 14712726577081248, 167209881188545344, 1963715680476759040, 23794190474350155856

Offset: 0

Gus Wiseman, Sep 08 2022

nonn

			The a(4) = 28 multiset partitions:
  {1}{111}      {1}{112}      {1}{123}      {1}{234}
  {1}{1}{1}{1}  {1}{122}      {1}{223}      {2}{134}
                {1}{222}      {1}{233}      {3}{124}
                {2}{111}      {2}{113}      {4}{123}
                {2}{112}      {2}{123}      {1}{2}{3}{4}
                {2}{122}      {2}{133}
                {1}{1}{1}{2}  {3}{112}
                {1}{1}{2}{2}  {3}{122}
                {1}{2}{2}{2}  {3}{123}
                              {1}{1}{2}{3}
                              {1}{2}{2}{3}
                              {1}{2}{3}{3}

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

A000041 counts integer partitions, strict A000009.
A000670 counts patterns, ranked by A333217, necklace A019536.
A011782 counts multisets covering an initial interval.
Cf. A055887, A063834, A072233, A270995, A304969, A349050, A349055.
Odd-size multisets are counted by A000302, A027193, A058695, ranked by A026424.
Other conditions: A034691, A116540, A255906, A356937, A356942.
Other types: A050330, A356932, A356934, A356935.

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]]]];
allnorm[n_]:=If[n<=0,{{}},Function[s,Array[Count[s,y_/;y<=#]+1&,n]]/@Subsets[Range[n-1]+1]];
Table[Length[Select[Join@@mps/@allnorm[n],OddQ[Times@@Length/@#]&]],{n,0,5}]

EulerT(v)={Vec(exp(x*Ser(dirmul(v,vector(#v,n,1/n))))-1, -#v)}
R(n,k) = {EulerT(vector(n, j, if(j%2 == 1, binomial(j+k-1, j))))}
seq(n) = {concat([1], sum(k=1, n, R(n, k)*sum(r=k, n, binomial(r, k)*(-1)^(r-k)) ))} \\ Andrew Howroyd, Jan 01 2023

Terms a(9) and beyond from Andrew Howroyd, Jan 01 2023

A358823 Number of odd-length twice-partitions of n into partitions with all odd parts.

Original entry on oeis.org

0, 1, 1, 3, 3, 7, 10, 20, 29, 58, 83, 150, 230, 399, 605, 1037, 1545, 2547, 3879, 6241, 9437, 15085, 22622, 35493, 53438, 82943, 124157, 191267, 284997, 434634, 647437, 979293, 1452182, 2185599, 3228435, 4826596, 7112683, 10575699, 15530404, 22990800, 33651222

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.

Also the number of odd-length twice-partitions of n into strict partitions.

			The a(1) = 1 through a(6) = 10 twice-partitions with all odd parts:
  (1)  (11)  (3)        (31)        (5)              (33)
             (111)      (1111)      (311)            (51)
             (1)(1)(1)  (11)(1)(1)  (11111)          (3111)
                                    (3)(1)(1)        (111111)
                                    (11)(11)(1)      (3)(11)(1)
                                    (111)(1)(1)      (31)(1)(1)
                                    (1)(1)(1)(1)(1)  (11)(11)(11)
                                                     (111)(11)(1)
                                                     (1111)(1)(1)
                                                     (11)(1)(1)(1)(1)
The a(1) = 1 through a(6) = 10 twice-partitions into strict partitions:
  (1)  (2)  (3)        (4)        (5)              (6)
            (21)       (31)       (32)             (42)
            (1)(1)(1)  (2)(1)(1)  (41)             (51)
                                  (2)(2)(1)        (321)
                                  (3)(1)(1)        (2)(2)(2)
                                  (21)(1)(1)       (3)(2)(1)
                                  (1)(1)(1)(1)(1)  (4)(1)(1)
                                                   (21)(2)(1)
                                                   (31)(1)(1)
                                                   (2)(1)(1)(1)(1)

Andrew Howroyd, Table of n, a(n) for n = 0..1000
Gus Wiseman, Sequences enumerating triangles of integer partitions

This is the odd-length case of A270995.
Requiring odd sums also gives A279374 aerated.
This is the case of A358824 with all odd parts.
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.
A358334 counts twice-partitions into odd-length partitions.
Cf. A000041, A001970, A072233, A271619, A279785, A356932.

twiptn[n_]:=Join@@Table[Tuples[IntegerPartitions/@ptn],{ptn,IntegerPartitions[n]}];
Table[Length[Select[twiptn[n],OddQ[Length[#]]&&OddQ[Times@@Flatten[#]]&]],{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=Vec(eta(x^2 + O(x*x^n))/eta(x + O(x*x^n)) - 1)); Vec(R(u, 1) - R(u, -1), -(n+1))/2} \\ Andrew Howroyd, Dec 31 2022

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

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

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

Original entry on oeis.org

0, 1, 1, 3, 3, 8, 11, 24, 35, 74, 109, 213, 336, 624, 986, 1812, 2832, 5002, 7996, 13783, 21936, 37528, 59313, 99598, 158356, 262547, 415590, 684372, 1079576, 1759984, 2779452, 4491596, 7069572, 11370357, 17841534, 28509802, 44668402, 70975399, 110907748

Offset: 0

Gus Wiseman, Dec 04 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(1) = 1 through a(6) = 11 twice-partitions:
  (1)  (2)  (3)        (4)        (5)              (6)
            (111)      (211)      (221)            (222)
            (1)(1)(1)  (2)(1)(1)  (311)            (321)
                                  (11111)          (411)
                                  (2)(2)(1)        (21111)
                                  (3)(1)(1)        (2)(2)(2)
                                  (111)(1)(1)      (3)(2)(1)
                                  (1)(1)(1)(1)(1)  (4)(1)(1)
                                                   (111)(2)(1)
                                                   (211)(1)(1)
                                                   (2)(1)(1)(1)(1)

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

The version for set partitions is A003712.
If the parts are also odd we get A279374.
The version for multiset partitions of integer partitions is the odd-length case of A356932, ranked by A026424 /\ A356935.
This is the odd-length case of A358334.
This is the odd-lengths case of A358824.
For odd sums instead of lengths we have A358826.
The case of odd sums also is the bisection of A358827.
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, A270995, A271619, A279785, A358823, A358837.

twiptn[n_]:=Join@@Table[Tuples[IntegerPartitions/@ptn],{ptn,IntegerPartitions[n]}];
Table[Length[Select[twiptn[n],OddQ[Length[#]]&&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) - R(u, -1), -(n+1))/2} \\ Andrew Howroyd, Dec 30 2022

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

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

A358835 Number of multiset partitions of integer partitions of n with constant block sizes and constant block sums.

Original entry on oeis.org

1, 1, 3, 4, 8, 8, 17, 16, 31, 34, 54, 57, 108, 102, 166, 191, 294, 298, 504, 491, 803, 843, 1251, 1256, 2167, 1974, 3133, 3226, 4972, 4566, 8018, 6843, 11657, 11044, 17217, 15010, 28422, 21638, 38397, 35067, 58508, 44584, 91870, 63262, 125114, 106264, 177483

Offset: 0

Gus Wiseman, Dec 05 2022

nonn

			The a(1) = 1 through a(6) = 17 multiset partitions:
  {1}  {2}     {3}        {4}           {5}              {6}
       {11}    {12}       {13}          {14}             {15}
       {1}{1}  {111}      {22}          {23}             {24}
               {1}{1}{1}  {112}         {113}            {33}
                          {1111}        {122}            {114}
                          {2}{2}        {1112}           {123}
                          {11}{11}      {11111}          {222}
                          {1}{1}{1}{1}  {1}{1}{1}{1}{1}  {1113}
                                                         {1122}
                                                         {3}{3}
                                                         {11112}
                                                         {111111}
                                                         {12}{12}
                                                         {2}{2}{2}
                                                         {111}{111}
                                                         {11}{11}{11}
                                                         {1}{1}{1}{1}{1}{1}

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

For just constant sums we have A305551, ranked by A326534.
For just constant lengths we have A319066, ranked by A320324.
The version for set partitions is A327899.
For distinct instead of constant lengths and sums we have A358832.
The version for twice-partitions is A358833.
A001970 counts multiset partitions of integer partitions.
A063834 counts twice-partitions, strict A296122.
Cf. A000219, A007425, A141199, A327908, A356932, A358831.

Table[If[n==0,1,Length[Union[Sort/@Join@@Table[Select[Tuples[IntegerPartitions[d],n/d],SameQ@@Length/@#&],{d,Divisors[n]}]]]],{n,0,20}]

P(n,y) = 1/prod(k=1, n, 1 - y*x^k + O(x*x^n))
seq(n) = {my(u=Vec(P(n,y)-1)); concat([1], vector(n, n, sumdiv(n, d, my(p=u[n/d]); sum(j=1, n/d, binomial(d + polcoef(p, j, y) - 1, d)))))} \\ Andrew Howroyd, Dec 31 2022

a(n) = Sum_{d|n} Sum_{j=1..n/d} binomial(d + A008284(n/d, j) - 1, d) for n > 0. - Andrew Howroyd, Dec 31 2022

Terms a(41) and beyond from Andrew Howroyd, Dec 31 2022

cp's OEIS Frontend

A358836 Number of multiset partitions of integer partitions of n with all distinct block sizes.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

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

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A356934 Number of multisets of odd-size multisets whose multiset union is a size-n multiset covering an initial interval with weakly decreasing multiplicities.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

A356941 Number of multiset partitions of integer partitions of n such that all blocks are gapless.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A356933 Number of multisets of multisets, each of odd size, whose multiset union is a size-n multiset covering an initial interval.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs