A360742 -id:A360742 - cp's OEIS frontend

A261049 Expansion of Product_{k>=1} (1+x^k)^(p(k)), where p(k) is the partition function.

1, 1, 2, 5, 9, 19, 37, 71, 133, 252, 464, 851, 1547, 2787, 4985, 8862, 15639, 27446, 47909, 83168, 143691, 247109, 423082, 721360, 1225119, 2072762, 3494359, 5870717, 9830702, 16409939, 27309660, 45316753, 74986921, 123748430, 203686778, 334421510, 547735241

Offset: 0

Vaclav Kotesovec, Aug 08 2015

nonn

Number of strict multiset partitions of integer partitions of n. Weigh transform of A000041. - Gus Wiseman, Oct 11 2018

			From _Gus Wiseman_, Oct 11 2018: (Start)
The a(1) = 1 through a(5) = 19 strict multiset partitions:
  {{1}}  {{2}}    {{3}}        {{4}}          {{5}}
         {{1,1}}  {{1,2}}      {{1,3}}        {{1,4}}
                  {{1,1,1}}    {{2,2}}        {{2,3}}
                  {{1},{2}}    {{1,1,2}}      {{1,1,3}}
                  {{1},{1,1}}  {{1},{3}}      {{1,2,2}}
                               {{1,1,1,1}}    {{1},{4}}
                               {{1},{1,2}}    {{2},{3}}
                               {{2},{1,1}}    {{1,1,1,2}}
                               {{1},{1,1,1}}  {{1},{1,3}}
                                              {{1},{2,2}}
                                              {{2},{1,2}}
                                              {{3},{1,1}}
                                              {{1,1,1,1,1}}
                                              {{1},{1,1,2}}
                                              {{1,1},{1,2}}
                                              {{2},{1,1,1}}
                                              {{1},{1,1,1,1}}
                                              {{1,1},{1,1,1}}
                                              {{1},{2},{1,1}}
(End)

Alois P. Heinz, Table of n, a(n) for n = 0..1000
R. Kaneiwa, An asymptotic formula for Cayley's double partition function p(2; n), Tokyo J. Math. 2, 137-158 (1979).

Cf. A000041, A001970, A026007, A027998, A248882, A102866, A256142.
Cf. A047968, A050342, A089259, A305551, A320328, A320330, A320331.
Row sums of A360742.

b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0, add(
      binomial(combinat[numbpart](i), j)*b(n-i*j, i-1), j=0..n/i)))
    end:
a:= n-> b(n$2):
seq(a(n), n=0..40);  # Alois P. Heinz, Aug 08 2015

nmax=40; CoefficientList[Series[Product[(1+x^k)^PartitionsP[k],{k,1,nmax}],{x,0,nmax}],x]

A055884 Euler transform of partition triangle A008284.

Original entry on oeis.org

1, 1, 2, 1, 2, 3, 1, 4, 4, 5, 1, 4, 8, 7, 7, 1, 6, 12, 16, 12, 11, 1, 6, 17, 25, 28, 19, 15, 1, 8, 22, 43, 49, 48, 30, 22, 1, 8, 30, 58, 87, 88, 77, 45, 30, 1, 10, 36, 87, 134, 167, 151, 122, 67, 42, 1, 10, 45, 113, 207, 270, 296, 247, 185, 97, 56, 1, 12, 54, 155, 295, 448, 510, 507, 394, 278, 139, 77

Offset: 1

Christian G. Bower, Jun 09 2000

Number of multiset partitions of length-k integer partitions of n. - Gus Wiseman, Nov 09 2018

			From _Gus Wiseman_, Nov 09 2018: (Start)
Triangle begins:
   1
   1   2
   1   2   3
   1   4   4   5
   1   4   8   7   7
   1   6  12  16  12  11
   1   6  17  25  28  19  15
   1   8  22  43  49  48  30  22
   1   8  30  58  87  88  77  45  30
   ...
The fifth row {1, 4, 8, 7, 7} counts the following multiset partitions:
  {{5}}   {{1,4}}     {{1,1,3}}       {{1,1,1,2}}         {{1,1,1,1,1}}
          {{2,3}}     {{1,2,2}}      {{1},{1,1,2}}       {{1},{1,1,1,1}}
         {{1},{4}}   {{1},{1,3}}     {{1,1},{1,2}}       {{1,1},{1,1,1}}
         {{2},{3}}   {{1},{2,2}}     {{2},{1,1,1}}      {{1},{1},{1,1,1}}
                     {{2},{1,2}}    {{1},{1},{1,2}}     {{1},{1,1},{1,1}}
                     {{3},{1,1}}    {{1},{2},{1,1}}    {{1},{1},{1},{1,1}}
                    {{1},{1},{3}}  {{1},{1},{1},{2}}  {{1},{1},{1},{1},{1}}
                    {{1},{2},{2}}
(End)

Alois P. Heinz, Rows n = 1..200, flattened
N. J. A. Sloane, Transforms

Row sums give A001970.
Main diagonal gives A000041.
Columns k=1-2 give: A057427, A052928.
T(n+2,n+1) gives A000070.
T(2n,n) gives A360468.
Cf. A055885, A055886, A360742.
Cf. A000219, A007716, A008284, A255906, A317449, A317532, A317533, A320796, A320801, A320808.

h:= proc(n, i) option remember; expand(`if`(n=0, 1,
      `if`(i<1, 0, h(n, i-1)+x*h(n-i, min(n-i, i)))))
    end:
g:= proc(n, i, j) option remember; expand(`if`(j=0, 1, `if`(i<0, 0, add(
      g(n, i-1, j-k)*x^(i*k)*binomial(coeff(h(n$2), x, i)+k-1, k), k=0..j))))
    end:
b:= proc(n, i) option remember; expand(`if`(n=0, 1,
     `if`(i<1, 0, add(b(n-i*j, i-1)*g(i$2, j), j=0..n/i))))
    end:
T:= (n, k)-> coeff(b(n$2), x, k):
seq(seq(T(n,k), k=1..n), n=1..12);  # Alois P. Heinz, Feb 17 2023

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[Join@@mps/@IntegerPartitions[n,{k}]],{n,5},{k,n}] (* Gus Wiseman, Nov 09 2018 *)

A330463 Triangle read by rows where T(n,k) is the number of k-element sets of nonempty multisets of positive integers with total sum n.

Original entry on oeis.org

1, 0, 1, 0, 2, 0, 0, 3, 2, 0, 0, 5, 4, 0, 0, 0, 7, 11, 1, 0, 0, 0, 11, 20, 6, 0, 0, 0, 0, 15, 40, 16, 0, 0, 0, 0, 0, 22, 68, 40, 3, 0, 0, 0, 0, 0, 30, 120, 91, 11, 0, 0, 0, 0, 0, 0, 42, 195, 186, 41, 0, 0, 0, 0, 0, 0, 0, 56, 320, 367, 105, 3, 0, 0, 0, 0, 0, 0

Offset: 0

Gus Wiseman, Dec 19 2019

			Triangle begins:
  1
  0  1
  0  2  0
  0  3  2  0
  0  5  4  0  0
  0  7 11  1  0  0
  0 11 20  6  0  0  0
  0 15 40 16  0  0  0  0
  0 22 68 40  3  0  0  0  0
  ...
Row n = 5 counts the following sets of multisets:
  {{5}}          {{1},{4}}        {{1},{2},{1,1}}
  {{1,4}}        {{2},{3}}
  {{2,3}}        {{1},{1,3}}
  {{1,1,3}}      {{1},{2,2}}
  {{1,2,2}}      {{2},{1,2}}
  {{1,1,1,2}}    {{3},{1,1}}
  {{1,1,1,1,1}}  {{1},{1,1,2}}
                 {{1,1},{1,2}}
                 {{2},{1,1,1}}
                 {{1},{1,1,1,1}}
                 {{1,1},{1,1,1}}

Andrew Howroyd, Table of n, a(n) for n = 0..1325 (rows n = 0..50)

Row sums are A261049.
Column k = 1 is A000041.
Multisets of multisets are A061260, with row sums A001970.
Sets of sets are A330462, with row sums A050342.
Multisets of sets are A285229, with row sums A089259.
Sets of disjoint sets are A330460, with row sums A294617.
Cf. A007716, A060016, A063834, A255906, A271619, A279785, A360742.

b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0, add(binomial(
       combinat[numbpart](i), j)*expand(b(n-i*j, i-1)*x^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..14);  # Alois P. Heinz, Dec 30 2019

ppl[n_,k_]:=Switch[k,0,{n},1,IntegerPartitions[n],_,Join@@Table[Union[Sort/@Tuples[ppl[#,k-1]&/@ptn]],{ptn,IntegerPartitions[n]}]];
Table[Length[Select[ppl[n,2],And[UnsameQ@@#,Length[#]==k]&]],{n,0,10},{k,0,n}]
(* Second program: *)
b[n_, i_] := b[n, i] = If[n == 0, 1, If[i<1, 0, Sum[Binomial[
     PartitionsP[i], j]*Expand[b[n - i*j, i - 1]*x^j], {j, 0, n/i}]]];
T[n_] := Function[p, Table[Coefficient[p, x, i], {i, 0, n}]][b[n, n]];
T /@ Range[0, 14] // Flatten (* Jean-François Alcover, May 18 2021, after Alois P. Heinz *)

A(n)={my(v=Vec(prod(k=1, n, (1 + x^k*y + O(x*x^n))^numbpart(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 + y*x^j)^A000041(j). - Andrew Howroyd, Dec 29 2019

A360763 Number T(n,k) of multisets of nonempty strict integer partitions with a total of k parts and total sum of n; triangle T(n,k), n>=0, 0<=k<=n, read by rows.

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 0, 1, 2, 1, 0, 1, 3, 2, 1, 0, 1, 4, 4, 2, 1, 0, 1, 5, 8, 5, 2, 1, 0, 1, 6, 11, 10, 5, 2, 1, 0, 1, 7, 16, 18, 11, 5, 2, 1, 0, 1, 8, 22, 28, 22, 12, 5, 2, 1, 0, 1, 9, 28, 45, 39, 24, 12, 5, 2, 1, 0, 1, 10, 35, 63, 67, 46, 25, 12, 5, 2, 1, 0, 1, 11, 44, 89, 106, 86, 50, 26, 12, 5, 2, 1

Offset: 0

Alois P. Heinz, Feb 19 2023

T(n,k) is defined for all n >= 0 and k >= 0. Terms that are not in the triangle are zero.

Reversed rows and also the columns converge to A360785.

			T(6,1) = 1: {[6]}.
T(6,2) = 5: {[1],[5]}, {[2],[4]}, {[3],[3]}, {[1,5]}, {[2,4]}.
T(6,3) = 8: {[1,2,3]}, {[1],[1,4]}, {[1],[2,3]}, {[2],[1,3]}, {[3],[1,2]}, {[1],[1],[4]}, {[1],[2],[3]}, {[2],[2],[2]}.
T(6,4) = 5: {[1],[1],[1],[3]}, {[1],[1],[2],[2]}, {[1],[1],[1,3]}, {[1],[2],[1,2]}, {[1,2],[1,2]}.
T(6,5) = 2: {[1],[1],[1],[1],[2]}, {[1],[1],[1],[1,2]}.
T(6,6) = 1: {[1],[1],[1],[1],[1],[1]}.
Triangle T(n,k) begins:
  1;
  0, 1;
  0, 1, 1;
  0, 1, 2,  1;
  0, 1, 3,  2,  1;
  0, 1, 4,  4,  2,  1;
  0, 1, 5,  8,  5,  2,  1;
  0, 1, 6, 11, 10,  5,  2,  1;
  0, 1, 7, 16, 18, 11,  5,  2, 1;
  0, 1, 8, 22, 28, 22, 12,  5, 2, 1;
  0, 1, 9, 28, 45, 39, 24, 12, 5, 2, 1;
  ...

Alois P. Heinz, Rows n = 0..200, flattened

Columns k=0-2 give: A000007, A057427, A001477(n-1) for n>=1.
Row sums give A089259.
T(2n,n) gives A360784.
T(3n,2n) gives A360785.
Cf. A000009, A008289, A055884, A285229, A360742, A360764.

h:= proc(n, i) option remember; expand(`if`(n=0, 1,
      `if`(i<1, 0, h(n, i-1)+x*h(n-i, min(n-i, i-1)))))
    end:
g:= proc(n, i, j) option remember; expand(`if`(j=0, 1, `if`(i<0, 0, add(
      g(n, i-1, j-k)*x^(i*k)*binomial(coeff(h(n$2), x, i)+k-1, k), k=0..j))))
    end:
b:= proc(n, i) option remember; expand(`if`(n=0, 1,
     `if`(i<1, 0, add(b(n-i*j, i-1)*g(i$2, j), j=0..n/i))))
    end:
T:= n-> (p-> seq(coeff(p, x, i), i=0..degree(p)))(b(n$2)):
seq(T(n), n=0..12);

h[n_, i_] := h[n, i] = Expand[If[n == 0, 1, If[i < 1, 0, h[n, i - 1] + x*h[n - i, Min[n - i, i - 1]]]]];
g[n_, i_, j_] := g[n, i, j] = Expand[If[j == 0, 1, If[i < 0, 0, Sum[g[n, i - 1, j - k]*x^(i*k)*Binomial[Coefficient[h[n, n], x, i] + k - 1, k], {k, 0, j}]]]];
b[n_, i_] := b[n, i] = Expand[If[n == 0, 1, If[i < 1, 0, Sum[b[n - i*j, i - 1]*g[i, i, j], {j, 0, n/i}]]]];
T[n_] := CoefficientList[b[n, n], x];
Table[T[n], {n, 0, 12}] // Flatten (* Jean-François Alcover, Sep 12 2023, after Alois P. Heinz *)

T(3n,2n) = A360785(n) = T(3n+j,2n+j) for j>=0.

A360764 Number T(n,k) of sets of nonempty strict integer partitions with a total of k parts and total sum of n; triangle T(n,k), n>=0, 0<=k<=max(i:T(n,i)>0), read by rows.

Original entry on oeis.org

1, 0, 1, 0, 1, 0, 1, 2, 0, 1, 2, 1, 0, 1, 4, 2, 0, 1, 4, 6, 1, 0, 1, 6, 8, 4, 0, 1, 6, 13, 9, 1, 0, 1, 8, 18, 16, 6, 0, 1, 8, 24, 29, 13, 2, 0, 1, 10, 30, 43, 29, 6, 0, 1, 10, 39, 64, 52, 19, 1, 0, 1, 12, 46, 89, 89, 42, 7, 0, 1, 12, 56, 122, 139, 85, 22, 1

Offset: 0

Alois P. Heinz, Feb 19 2023

T(n,k) is defined for all n >= 0 and k >= 0. Terms that are not in the triangle are zero.

			T(6,1) = 1: {[6]}.
T(6,2) = 4: {[1],[5]}, {[2],[4]}, {[1,5]}, {[2,4]}.
T(6,3) = 6: {[1,2,3]}, {[1],[1,4]}, {[1],[2,3]}, {[2],[1,3]}, {[3],[1,2]}, {[1],[2],[3]}.
T(6,4) = 1: {[1],[2],[1,2]}.
Triangle T(n,k) begins:
  1;
  0, 1;
  0, 1;
  0, 1,  2;
  0, 1,  2,  1;
  0, 1,  4,  2;
  0, 1,  4,  6,  1;
  0, 1,  6,  8,  4;
  0, 1,  6, 13,  9,  1;
  0, 1,  8, 18, 16,  6;
  0, 1,  8, 24, 29, 13,  2;
  0, 1, 10, 30, 43, 29,  6;
  0, 1, 10, 39, 64, 52, 19, 1;
  ...

Alois P. Heinz, Rows n = 0..250, flattened

Columns k=0-2 give: A000007, A057427, A052928(n-1) for n>=3.
Row sums give A050342.
Cf. A000009, A008289, A055884, A330462, A360742, A360763.

h:= proc(n, i) option remember; expand(`if`(n=0, 1,
      `if`(i<1, 0, h(n, i-1)+x*h(n-i, min(n-i, i-1)))))
    end:
g:= proc(n, i, j) option remember; expand(`if`(j=0, 1, `if`(i<0, 0, add(
      g(n, i-1, j-k)*x^(i*k)*binomial(coeff(h(n$2), x, i), k), k=0..j))))
    end:
b:= proc(n, i) option remember; expand(`if`(n=0, 1,
     `if`(i<1, 0, add(b(n-i*j, i-1)*g(i$2, j), j=0..n/i))))
    end:
T:= n-> (p-> seq(coeff(p, x, i), i=0..degree(p)))(b(n$2)):
seq(T(n), n=0..14);

h[n_, i_] := h[n, i] = Expand[If[n == 0, 1, If[i < 1, 0, h[n, i - 1] + x*h[n - i, Min[n - i, i - 1]]]]];
g[n_, i_, j_] := g[n, i, j] = Expand[If[j == 0, 1, If[i<0, 0, Sum[g[n, i - 1, j - k]*x^(i*k)*Binomial[Coefficient[h[n, n], x, i], k], {k, 0, j}]]]];
b[n_, i_] := b[n, i] = Expand[If[n == 0, 1, If[i < 1, 0, Sum[b[n - i*j, i - 1]*g[i, i, j], {j, 0, n/i}]]]] ;
T[n_] := CoefficientList[b[n, n], x];
Table[T[n], {n, 0, 14}] // Flatten (* Jean-François Alcover, Nov 17 2023, after Alois P. Heinz *)

A360714 Number of sets of nonempty integer partitions with a total of n parts and total sum of 2n.

Original entry on oeis.org

1, 1, 3, 10, 30, 94, 287, 854, 2501, 7222, 20502, 57412, 158678, 433204, 1169274, 3122747, 8256669, 21627238, 56150750, 144570308, 369288160, 936246670, 2356750215, 5892267672, 14636329019, 36131588682, 88667056302, 216353770900, 525040244748, 1267473283199

Offset: 0

Alois P. Heinz, Feb 17 2023

nonn

			a(3) = 10: {[1,1,4]}, {[1,2,3]}, {[2,2,2]}, {[1],[1,4]}, {[1],[2,3]}, {[2],[1,3]}, {[2],[2,2]}, {[3],[1,2]}, {[4],[1,1]}, {[1],[2],[3]}.

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

Cf. A360468 (the same for multisets), A360742.

a(n) = A360742(2n,n).

cp's OEIS Frontend

A261049 Expansion of Product_{k>=1} (1+x^k)^(p(k)), where p(k) is the partition function.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A055884 Euler transform of partition triangle A008284.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A330463 Triangle read by rows where T(n,k) is the number of k-element sets of nonempty multisets of positive integers with total sum n.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A360763 Number T(n,k) of multisets of nonempty strict integer partitions with a total of k parts and total sum of n; triangle T(n,k), n>=0, 0<=k<=n, read by rows.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A360764 Number T(n,k) of sets of nonempty strict integer partitions with a total of k parts and total sum of n; triangle T(n,k), n>=0, 0<=k<=max(i:T(n,i)>0), read by rows.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A360714 Number of sets of nonempty integer partitions with a total of n parts and total sum of 2n.

Views

Author

Keywords

Examples

Links

Crossrefs

Formula