A358832 -id:A358832 - 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

A358830 Number of twice-partitions of n into partitions with all different lengths.

Original entry on oeis.org

1, 1, 2, 4, 9, 15, 31, 53, 105, 178, 330, 555, 1024, 1693, 2991, 5014, 8651, 14242, 24477, 39864, 67078, 109499, 181311, 292764, 483775, 774414, 1260016, 2016427, 3254327, 5162407, 8285796, 13074804, 20812682, 32733603, 51717463, 80904644, 127305773, 198134675, 309677802

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)
             (11)(1)  (211)     (221)
                      (1111)    (311)
                      (11)(2)   (2111)
                      (2)(11)   (11111)
                      (21)(1)   (21)(2)
                      (111)(1)  (22)(1)
                                (3)(11)
                                (31)(1)
                                (111)(2)
                                (211)(1)
                                (111)(11)
                                (1111)(1)

The version for set partitions is A007837.
For sums instead of lengths we have A271619.
For constant instead of distinct lengths we have A306319.
The case of distinct sums also is A358832.
The version for multiset partitions of integer partitions is A358836.
A063834 counts twice-partitions, strict A296122, row-sums of A321449.
A273873 counts strict trees.
Cf. A000009, A000219, A001970, A141199, A279375, A279785, A279790, A336342, A358334, A358831.

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

seq(n)={ local(Cache=Map());
  my(g=Vec(-1+1/prod(k=1, n, 1 - y*x^k + O(x*x^n))));
  my(F(m,r,b) = my(key=[m,r,b], z); if(!mapisdefined(Cache,key,&z),
  z = if(r<=0||m==0, r==0, self()(m-1, r, b) + sum(k=1, m, my(c=polcoef(g[m],k)); if(!bittest(b,k)&&c, c*self()(min(m,r-m), r-m, bitor(b, 1<Andrew Howroyd, Dec 31 2022

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

A358833 Number of rectangular twice-partitions of n of type (P,R,P).

Original entry on oeis.org

1, 1, 3, 4, 8, 8, 17, 16, 32, 34, 56, 57, 119, 102, 179, 199, 335, 298, 598, 491, 960, 925, 1441, 1256, 2966, 2026, 3726, 3800, 6488, 4566, 11726, 6843, 16176, 14109, 21824, 16688, 49507, 21638, 50286, 50394, 99408, 44584, 165129, 63262, 208853, 205109, 248150

Offset: 0

Gus Wiseman, Dec 04 2022

nonn

A twice-partition of n is a sequence of integer partitions, one of each part of an integer partition of n, so these are twice-partitions of n into partitions with constant lengths and constant sums.

			The a(1) = 1 through a(5) = 8 twice-partitions:
  (1)  (2)     (3)        (4)           (5)
       (11)    (21)       (22)          (32)
       (1)(1)  (111)      (31)          (41)
               (1)(1)(1)  (211)         (221)
                          (1111)        (311)
                          (2)(2)        (2111)
                          (11)(11)      (11111)
                          (1)(1)(1)(1)  (1)(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 rectangular case of A279787.
This is the case of A306319 with constant sums.
For distinct instead of constant lengths and sums we have A358832.
The version for multiset partitions of integer partitions is A358835.
A063834 counts twice-partitions, strict A296122, row-sums of A321449.
A281145 counts same-trees.
Cf. A000041, A000219, A001970, A008284, A141199, A327908, A358823, A358831.

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

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, polcoef(p, j, y)^d))))} \\ Andrew Howroyd, Dec 31 2022

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

Terms a(21) and beyond from Andrew Howroyd, Dec 31 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

A358830 Number of twice-partitions of n into partitions with all different lengths.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

PARI

Extensions

A358833 Number of rectangular twice-partitions of n of type (P,R,P).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

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

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions