A050350 -id:A050350 - cp's OEIS frontend

A050342 Expansion of Product_{m>=1} (1+x^m)^A000009(m).

1, 1, 1, 3, 4, 7, 12, 19, 30, 49, 77, 119, 186, 286, 438, 670, 1014, 1528, 2300, 3437, 5119, 7603, 11241, 16564, 24343, 35650, 52058, 75820, 110115, 159510, 230522, 332324, 477994, 686044, 982519, 1404243, 2003063, 2851720, 4052429, 5748440, 8140007, 11507125

Offset: 0

Christian G. Bower, Oct 15 1999

nonn

Number of partitions of n into distinct parts with one level of parentheses. Each "part" in parentheses is distinct from all others at the same level. Thus (2+1)+(1) is allowed but (2)+(1+1) and (2+1+1) are not.

			4=(4)=(3)+(1)=(3+1)=(2+1)+(1).
From _Gus Wiseman_, Oct 11 2018: (Start)
a(n) is the number of set systems (sets of sets) whose multiset union is an integer partition of n. For example, the a(1) = 1 through a(6) = 12 set systems are:
  {{1}}  {{2}}  {{3}}      {{4}}        {{5}}        {{6}}
                {{1,2}}    {{1,3}}      {{1,4}}      {{1,5}}
                {{1},{2}}  {{1},{3}}    {{2,3}}      {{2,4}}
                           {{1},{1,2}}  {{1},{4}}    {{1,2,3}}
                                        {{2},{3}}    {{1},{5}}
                                        {{1},{1,3}}  {{2},{4}}
                                        {{2},{1,2}}  {{1},{1,4}}
                                                     {{1},{2,3}}
                                                     {{2},{1,3}}
                                                     {{3},{1,2}}
                                                     {{1},{2},{3}}
                                                     {{1},{2},{1,2}}
(End)

Alois P. Heinz, Table of n, a(n) for n = 0..4000
N. J. A. Sloane, Transforms

Cf. A050343-A050350, A089254.
Cf. A001970, A089259, A141268, A258466, A261049, A320328, A320330.
Row sums of A330462 and of A360764.

g:= proc(n, i) option remember; `if`(n=0, 1,
      `if`(i<1, 0, g(n, i-1)+`if`(i>n, 0, g(n-i, i-1))))
    end:
b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,
      add(binomial(g(i, i), j)*b(n-i*j, i-1), j=0..n/i)))
    end:
a:= n-> b(n, n):
seq(a(n), n=0..50);  # Alois P. Heinz, May 19 2013

g[n_, i_] := g[n, i] = If[n==0, 1, If[i<1, 0, g[n, i-1] + If[i>n, 0, g[n-i, i-1]]]]; b[n_, i_] := b[n, i] = If[n==0, 1, If[i<1, 0, Sum[Binomial[g[i, i], j]*b[n-i*j, i-1], {j, 0, n/i}]]]; a[n_] := b[n, n]; Table[a[n], {n, 0, 50}] (* Jean-François Alcover, Dec 19 2015, after Alois P. Heinz *)
nn=10;Table[SeriesCoefficient[Product[(1+x^k)^PartitionsQ[k],{k,nn}],{x,0,n}],{n,0,nn}] (* Gus Wiseman, Oct 11 2018 *)

Weigh transform of A000009.

A050343 Number of partitions of n into distinct parts with 2 levels of parentheses.

Original entry on oeis.org

1, 1, 1, 4, 7, 14, 29, 57, 110, 217, 417, 794, 1513, 2860, 5373, 10063, 18740, 34750, 64221, 118199, 216775, 396297, 722136, 1311888, 2376575, 4293407, 7735941, 13903985, 24929763, 44595606, 79598328, 141770576, 251984463, 446991405, 791391545, 1398551523

Offset: 0

Christian G. Bower, Oct 15 1999

nonn

			4 = ((4)) = ((3))+((1)) = ((3)+(1)) = ((3+1)) = ((2+1))+((1)) = ((2+1)+(1)).

Alois P. Heinz, Table of n, a(n) for n = 0..1000
N. J. A. Sloane, Transforms

Cf. A050342-A050350.

g:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,
      g(n, i-1)+`if`(i>n, 0, g(n-i, i-1))))
    end:
h:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,
      add(binomial(g(i, i), j)*h(n-i*j, i-1), j=0..n/i)))
    end:
b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,
      add(binomial(h(i, i), j)*b(n-i*j, i-1), j=0..n/i)))
    end:
a:= n-> b(n, n):
seq(a(n), n=0..50); # Alois P. Heinz, May 19 2013

g[n_, i_] := g[n, i] = If[n==0, 1, If[i<1, 0, g[n, i-1] + If[i>n, 0, g[n-i, i-1]]]] ; h[n_, i_] := h[n, i] = If[n==0, 1, If[i<1, 0, Sum[Binomial[g[i, i], j]*h[n-i*j, i-1], {j, 0, n/i}]]]; b[n_, i_] := b[n, i] = If[n==0, 1, If[i<1, 0, Sum[ Binomial[ h[i, i], j]*b[n-i*j, i-1], {j, 0, n/i}]]]; a[n_] := b[n, n]; Table[a[n], {n, 0, 50}] (* Jean-François Alcover, Jul 17 2015, after Alois P. Heinz *)

Weigh transform of A050342.

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

A050344 Number of partitions of n into distinct parts with 3 levels of parentheses.

Original entry on oeis.org

1, 1, 1, 5, 11, 25, 60, 141, 321, 742, 1688, 3810, 8580, 19225, 42844, 95156, 210480, 463866, 1018957, 2231114, 4870400, 10601805, 23015117, 49833471, 107636878, 231940988, 498671281, 1069826434, 2290402343, 4893782240, 10436263572, 22214850439, 47202869437

Offset: 0

Christian G. Bower, Oct 15 1999

nonn

			4 = (((4))) = (((3)))+(((1))) = (((3))+((1))) = ((3)+(1)) = ((3+1)) = ((2+1))+((1)) = ((2+1)+(1)).

Alois P. Heinz, Table of n, a(n) for n = 0..1000
N. J. A. Sloane, Transforms

Cf. A050342-A050350.

g:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,
      g(n, i-1)+`if`(i>n, 0, g(n-i, i-1))))
    end:
h:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,
      add(binomial(g(i, i), j)*h(n-i*j, i-1), j=0..n/i)))
    end:
f:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,
      add(binomial(h(i, i), j)*f(n-i*j, i-1), j=0..n/i)))
    end:
b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,
      add(binomial(f(i, i), j)*b(n-i*j, i-1), j=0..n/i)))
    end:
a:= n-> b(n, n):
seq(a(n), n=0..50);  # Alois P. Heinz, May 19 2013

g[n_, i_] := g[n, i] = If[n == 0, 1, If[i < 1, 0, g[n, i - 1] + If[i > n, 0, g[n - i, i - 1]]]];
h[n_, i_] := h[n, i] = If[n == 0, 1, If[i < 1, 0, Sum[Binomial[g[i, i], j]* h[n - i*j, i - 1], {j, 0, n/i}]]];
f[n_, i_] := f[n, i] = If[n == 0, 1, If[i < 1, 0, Sum[Binomial[h[i, i], j]* f[n - i*j, i - 1], {j, 0, n/i}]]];
b[n_, i_] := b[n, i] = If[n == 0, 1, If[i < 1, 0, Sum[Binomial[f[i, i], j]* b[n - i*j, i - 1], {j, 0, n/i}]]];
a[n_] := b[n, n];
Table[a[n], {n, 0, 50}] (* Jean-François Alcover, Jun 11 2018, after Alois P. Heinz *)

Weigh transform of A050343.

A050347 Number of ways to factor n into distinct factors with 2 levels of parentheses.

Original entry on oeis.org

1, 1, 1, 1, 1, 4, 1, 4, 1, 4, 1, 10, 1, 4, 4, 7, 1, 10, 1, 10, 4, 4, 1, 26, 1, 4, 4, 10, 1, 22, 1, 14, 4, 4, 4, 34, 1, 4, 4, 26, 1, 22, 1, 10, 10, 4, 1, 63, 1, 10, 4, 10, 1, 26, 4, 26, 4, 4, 1, 74, 1, 4, 10, 29, 4, 22, 1, 10, 4, 22, 1, 105, 1, 4, 10, 10, 4, 22, 1, 63, 7, 4, 1, 74, 4, 4, 4, 26

Offset: 1

Christian G. Bower, Oct 15 1999

nonn

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).

			6 = ((6)) = ((3*2)) = ((3)*(2)) = ((3))*((2)).

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

Cf. A045778, A050345-A050350. a(p^k)=A050343. a(A002110)=A000307.

Dirichlet g.f.: Product_{n>=2}(1+1/n^s)^A050345(n).

a(n) = A050348(A101296(n)). - R. J. Mathar, May 26 2017

A050349 Number of ways to factor n into distinct factors with 3 levels of parentheses.

Original entry on oeis.org

1, 1, 1, 1, 1, 5, 1, 5, 1, 5, 1, 15, 1, 5, 5, 11, 1, 15, 1, 15, 5, 5, 1, 45, 1, 5, 5, 15, 1, 35, 1, 25, 5, 5, 5, 65, 1, 5, 5, 45, 1, 35, 1, 15, 15, 5, 1, 130, 1, 15, 5, 15, 1, 45, 5, 45, 5, 5, 1, 145, 1, 5, 15, 60, 5, 35, 1, 15, 5, 35, 1, 240, 1, 5, 15, 15, 5, 35, 1, 130, 11, 5, 1, 145, 5

Offset: 1

Christian G. Bower, Oct 15 1999

nonn

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).

			6 = (((6))) = (((3*2))) = (((3)*(2))) = (((3))*((2))) = (((3)))*(((2))).

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

Cf. A045778, A050345-A050350. a(p^k)=A050344. a(A002110)=A000357.

Dirichlet g.f.: Product_{n>=2}(1+1/n^s)^A050347(n).

a(n) = A050350(A101296(n)). - R. J. Mathar, May 26 2017

cp's OEIS Frontend

A050342 Expansion of Product_{m>=1} (1+x^m)^A000009(m).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A050343 Number of partitions of n into distinct parts with 2 levels of parentheses.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

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

A050344 Number of partitions of n into distinct parts with 3 levels of parentheses.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A050347 Number of ways to factor n into distinct factors with 2 levels of parentheses.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Formula

A050349 Number of ways to factor n into distinct factors with 3 levels of parentheses.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Formula