A292504 -id:A292504 - cp's OEIS frontend

A320171 Number of series-reduced rooted identity trees whose leaves are integer partitions whose multiset union is an integer partition of n.

1, 2, 5, 11, 29, 82, 247, 782, 2579, 8702, 29975, 104818, 371111, 1327307, 4788687, 17404838, 63669763, 234237605, 866090021, 3216738344, 11995470691, 44894977263, 168582174353, 634939697164, 2398004674911, 9079614633247, 34458722286825, 131059771522401

Offset: 1

Gus Wiseman, Oct 07 2018

nonn

A rooted tree is series-reduced if every non-leaf node has at least two branches.

In an identity tree, all branches directly under any given node are different.

			The a(1) = 1 through a(4) = 11 rooted identity trees:
  (1)  (2)   (3)        (4)
       (11)  (21)       (22)
             (111)      (31)
             ((1)(2))   (211)
             ((1)(11))  (1111)
                        ((1)(3))
                        ((1)(21))
                        ((2)(11))
                        ((1)(111))
                        ((1)((1)(2)))
                        ((1)((1)(11)))

Andrew Howroyd, Table of n, a(n) for n = 1..200

Cf. A000081, A000311, A000669, A001678, A005804, A141268, A292504, A300660, A319312, A320172, A320177, A320178.

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]]]];
gig[m_]:=Prepend[Join@@Table[Union[Sort/@Select[Sort/@Tuples[gig/@mtn],UnsameQ@@#&]],{mtn,Select[mps[m],Length[#]>1&]}],m];
Table[Sum[Length[gig[y]],{y,IntegerPartitions[n]}],{n,8}]

WeighT(v)={Vec(exp(x*Ser(dirmul(v, vector(#v,n,(-1)^(n-1)/n))))-1,-#v)}
seq(n)={my(v=vector(n)); for(n=1, n, v[n]=numbpart(n) + WeighT(v[1..n])[n]); v} \\ Andrew Howroyd, Oct 25 2018

Terms a(12) and beyond from Andrew Howroyd, Oct 25 2018

A320177 Number of series-reduced rooted identity trees whose leaves are strict integer partitions whose multiset union is an integer partition of n.

Original entry on oeis.org

1, 1, 3, 5, 11, 26, 65, 169, 463, 1294, 3691, 10700, 31417, 93175, 278805, 840424, 2549895, 7780472, 23860359, 73500838, 227330605, 705669634, 2197750615, 6865335389, 21505105039, 67533738479, 212575923471, 670572120240, 2119568530289, 6712115439347

Offset: 1

Gus Wiseman, Oct 07 2018

nonn

A rooted tree is series-reduced if every non-leaf node has at least two branches.

In an identity tree, all branches directly under any given node are different.

			The a(1) = 1 through a(5) = 11 rooted trees:
  (1)  (2)  (3)       (4)            (5)
            (21)      (31)           (32)
            ((1)(2))  ((1)(3))       (41)
                      ((1)(12))      ((1)(4))
                      ((1)((1)(2)))  ((2)(3))
                                     ((1)(13))
                                     ((2)(12))
                                     ((1)((1)(3)))
                                     ((2)((1)(2)))
                                     ((1)((1)(12)))
                                     ((1)((1)((1)(2))))

Andrew Howroyd, Table of n, a(n) for n = 1..200

Cf. A000669, A004111, A005804, A141268, A292504, A300660, A319312.

Cf. A320171, A320174, A320175, A320176, A320178.

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]]]];
gog[m_]:=If[UnsameQ@@m,Prepend[#,m],#]&[Join@@Table[Select[Union[Sort/@Tuples[gog/@p]],UnsameQ@@#&],{p,Select[mps[m],Length[#]>1&]}]];
Table[Length[Join@@Table[gog[m],{m,IntegerPartitions[n]}]],{n,10}]

WeighT(v)={Vec(exp(x*Ser(dirmul(v, vector(#v,n,(-1)^(n-1)/n))))-1,-#v)}
seq(n)={my(p=prod(k=1, n, 1 + x^k + O(x*x^n)), v=vector(n)); for(n=1, n, v[n]=polcoef(p, n) + WeighT(v[1..n])[n]); v} \\ Andrew Howroyd, Oct 25 2018

Terms a(13) and beyond from Andrew Howroyd, Oct 25 2018

A320178 Number of series-reduced rooted identity trees whose leaves are constant integer partitions whose multiset union is an integer partition of n.

Original entry on oeis.org

1, 2, 4, 8, 19, 53, 151, 459, 1445, 4634, 15154, 50253, 168607, 571212, 1951588, 6715575, 23255444, 80978697, 283373024, 995995996, 3514614634, 12446666967, 44222390525, 157587392768, 563096832839, 2017121728223, 7242436444030, 26059512879605, 93952946906117

Offset: 1

Gus Wiseman, Oct 07 2018

nonn

A rooted tree is series-reduced if every non-leaf node has at least two branches.

In an identity tree, all branches directly under any given node are different.

			The a(1) = 1 through a(5) = 19 rooted trees:
  (1)  (2)   (3)        (4)             (5)
       (11)  (111)      (22)            (11111)
             ((1)(2))   (1111)          ((1)(4))
             ((1)(11))  ((1)(3))        ((2)(3))
                        ((2)(11))       ((1)(22))
                        ((1)(111))      ((3)(11))
                        ((1)((1)(2)))   ((2)(111))
                        ((1)((1)(11)))  ((1)(1111))
                                        ((11)(111))
                                        ((1)(2)(11))
                                        ((1)((1)(3)))
                                        ((2)((1)(2)))
                                        ((11)((1)(2)))
                                        ((1)((2)(11)))
                                        ((2)((1)(11)))
                                        ((1)((1)(111)))
                                        ((11)((1)(11)))
                                        ((1)((1)((1)(2))))
                                        ((1)((1)((1)(11))))

Andrew Howroyd, Table of n, a(n) for n = 1..200

Cf. A000669, A004111, A005804, A141268, A292504, A300660, A319312.

Cf. A320171, A320174, A320175, A320176, A320177.

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]]]];
gob[m_]:=If[SameQ@@m,Prepend[#,m],#]&[Join@@Table[Select[Union[Sort/@Tuples[gob/@p]],UnsameQ@@#&],{p,Select[mps[m],Length[#]>1&]}]];
Table[Length[Join@@Table[gob[m],{m,IntegerPartitions[n]}]],{n,10}]

WeighT(v)={Vec(exp(x*Ser(dirmul(v, vector(#v,n,(-1)^(n-1)/n))))-1,-#v)}
seq(n)={my(v=vector(n)); for(n=1, n, v[n]=numdiv(n) + WeighT(v[1..n])[n]); v} \\ Andrew Howroyd, Oct 25 2018

Terms a(13) and beyond from Andrew Howroyd, Oct 25 2018

A320294 Number of series-reduced rooted trees whose leaves are non-singleton integer partitions whose multiset union is an integer partition of n with no 1's.

Original entry on oeis.org

0, 0, 0, 1, 1, 3, 3, 7, 8, 15, 19, 37, 48, 87, 126, 227, 342, 611, 964, 1719, 2806, 4975, 8327, 14782, 25157, 44609, 76972, 136622, 237987, 422881, 742149, 1320825, 2331491, 4156392, 7370868, 13164429, 23433637, 41928557, 74871434, 134203411, 240284935, 431437069

Offset: 1

Gus Wiseman, Oct 09 2018

nonn

Also phylogenetic trees with no singleton leaves on integer partitions of n with no 1's.

			The a(4) = 1 through a(10) = 15 trees:
  (22)  (32)  (33)   (43)   (44)        (54)        (55)
              (42)   (52)   (53)        (63)        (64)
              (222)  (322)  (62)        (72)        (73)
                            (332)       (333)       (82)
                            (422)       (432)       (433)
                            (2222)      (522)       (442)
                            ((22)(22))  (3222)      (532)
                                        ((22)(23))  (622)
                                                    (3322)
                                                    (4222)
                                                    (22222)
                                                    ((22)(24))
                                                    ((22)(33))
                                                    ((23)(23))
                                                    ((22)(222))

Andrew Howroyd, Table of n, a(n) for n = 1..500

Cf. A000045, A000311, A000669, A002865, A141268, A292504, A304966, A304967, A319312, A320289, A320293, A320295, A320296.

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]]]];
pgtm[m_]:=Prepend[Join@@Table[Union[Sort/@Tuples[pgtm/@p]],{p,Select[mps[m],Length[#]>1&]}],m];
Table[Sum[Length[Select[pgtm[m],FreeQ[#,{_}]&]],{m,Select[IntegerPartitions[n],FreeQ[#,1]&]}],{n,10}]

EulerT(v)={Vec(exp(x*Ser(dirmul(v,vector(#v,n,1/n))))-1, -#v)}
seq(n)={my(p=1/prod(k=2, n, 1 - x^k + O(x*x^n)), v=vector(n)); for(n=2, n, v[n]=polcoef(p, n) - 1 + EulerT(v[1..n])[n]); v} \\ Andrew Howroyd, Oct 25 2018

Terms a(16) and beyond from Andrew Howroyd, Oct 25 2018

A330727 Irregular triangle read by rows where T(n,k) is the number of balanced reduced multisystems of depth k whose degrees (atom multiplicities) are the prime indices of n.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 3, 2, 1, 3, 1, 7, 7, 1, 5, 5, 1, 5, 9, 5, 1, 9, 11, 1, 9, 28, 36, 16, 1, 10, 24, 16, 1, 14, 38, 27, 1, 13, 18, 1, 13, 69, 160, 164, 61, 1, 24, 79, 62, 1, 20, 160, 580, 1022, 855, 272, 1, 19, 59, 45, 1, 27, 138, 232, 123, 1, 17, 77, 121, 61

Offset: 2

Gus Wiseman, Jan 04 2020

A balanced reduced multisystem is either a finite multiset, or a multiset partition with at least two parts, not all of which are singletons, of a balanced reduced multisystem.

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. A multiset whose multiplicities are the prime indices of n (such as row n of A305936) is generally not the same as the multiset of prime indices of n. For example, the prime indices of 12 are {1,1,2}, while a multiset whose multiplicities are {1,1,2} is {1,1,2,3}.

			Triangle begins:
   {}
   1
   1
   1   1
   1   2
   1   3   2
   1   3
   1   7   7
   1   5   5
   1   5   9   5
   1   9  11
   1   9  28  36  16
   1  10  24  16
   1  14  38  27
   1  13  18
   1  13  69 160 164  61
   1  24  79  62
For example, row n = 12 counts the following multisystems:
  {1,1,2,3}  {{1},{1,2,3}}    {{{1}},{{1},{2,3}}}
             {{1,1},{2,3}}    {{{1,1}},{{2},{3}}}
             {{1,2},{1,3}}    {{{1}},{{2},{1,3}}}
             {{2},{1,1,3}}    {{{1,2}},{{1},{3}}}
             {{3},{1,1,2}}    {{{1}},{{3},{1,2}}}
             {{1},{1},{2,3}}  {{{1,3}},{{1},{2}}}
             {{1},{2},{1,3}}  {{{2}},{{1},{1,3}}}
             {{1},{3},{1,2}}  {{{2}},{{3},{1,1}}}
             {{2},{3},{1,1}}  {{{2,3}},{{1},{1}}}
                              {{{3}},{{1},{1,2}}}
                              {{{3}},{{2},{1,1}}}

Row sums are A318846.
Final terms in each row are A330728.
Row prime(n) is row n of A330784.
Row 2^n is row n of A008826.
Row n is row A181821(n) of A330667.
Column k = 3 is A318284(n) - 2 for n > 2.
Cf. A000111, A002846, A005121, A292504, A318812, A318813, A318847, A318848, A318849, A330475, A330666, A330935.

nrmptn[n_]:=Join@@MapIndexed[Table[#2[[1]],{#1}]&,If[n==1,{},Flatten[Cases[Reverse[FactorInteger[n]],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
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]]]];
totm[m_]:=Prepend[Join@@Table[totm[p],{p,Select[mps[m],1

T(2^n,k) = A008826(n,k).

A320172 Number of series-reduced balanced rooted identity trees whose leaves are integer partitions whose multiset union is an integer partition of n.

Original entry on oeis.org

1, 2, 5, 9, 19, 38, 79, 163, 352, 750, 1633, 3558, 7783, 17020, 37338, 81920, 180399, 398600, 885101, 1975638, 4435741, 10013855, 22726109, 51807432, 118545425, 272024659, 625488420, 1440067761, 3317675261, 7644488052, 17610215982, 40547552277, 93298838972, 214516498359, 492844378878

Offset: 1

Gus Wiseman, Oct 07 2018

nonn

A rooted tree is series-reduced if every non-leaf node has at least two branches, and balanced if all leaves are the same distance from the root. In an identity tree, all branches directly under any given node are different.

			The a(1) = 1 through a(5) = 19 rooted identity trees:
  (1)  (2)   (3)        (4)         (5)
       (11)  (21)       (22)        (32)
             (111)      (31)        (41)
             ((1)(2))   (211)       (221)
             ((1)(11))  (1111)      (311)
                        ((1)(3))    (2111)
                        ((1)(21))   (11111)
                        ((2)(11))   ((1)(4))
                        ((1)(111))  ((2)(3))
                                    ((1)(31))
                                    ((1)(22))
                                    ((2)(21))
                                    ((3)(11))
                                    ((1)(211))
                                    ((11)(21))
                                    ((2)(111))
                                    ((1)(1111))
                                    ((11)(111))
                                    ((1)(2)(11))

Andrew Howroyd, Table of n, a(n) for n = 1..500

Cf. A000669, A005804, A048816, A079500, A119262, A120803, A141268, A292504, A300660, A319312.

Cf. A320154, A320155, A320160, A320171, A320173, A320177, A320178, A320179.

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]]]];
gig[m_]:=Prepend[Join@@Table[Union[Sort/@Select[Sort/@Tuples[gig/@mtn],UnsameQ@@#&]],{mtn,Select[mps[m],Length[#]>1&]}],m];
Table[Sum[Length[Select[gig[y],SameQ@@Length/@Position[#,_Integer]&]],{y,Sort /@IntegerPartitions[n]}],{n,8}]

WeighT(v)={Vec(exp(x*Ser(dirmul(v, vector(#v,n,(-1)^(n-1)/n))))-1,-#v)}
seq(n)={my(u=vector(n, n, numbpart(n)), v=vector(n)); while(u, v+=u; u=WeighT(u)-u); v} \\ Andrew Howroyd, Oct 25 2018

Terms a(13) and beyond from Andrew Howroyd, Oct 25 2018

A320176 Number of series-reduced rooted trees whose leaves are strict integer partitions whose multiset union is a strict integer partition of n.

Original entry on oeis.org

1, 1, 3, 3, 5, 13, 15, 23, 33, 99, 109, 183, 251, 383, 1071, 1261, 2007, 2875, 4291, 5829, 16297, 18563, 30313, 42243, 63707, 85351, 125465, 297843, 356657, 556729, 783637, 1151803, 1564173, 2249885, 2988729, 6803577, 8026109, 12465665, 17124495, 25272841, 33657209

Offset: 1

Gus Wiseman, Oct 07 2018

nonn

Also the number of orderless tree-factorizations of Heinz numbers of strict integer partitions of n.

Also the number of phylogenetic trees on a set of distinct labels summing to n.

			The a(1) = 1 through a(7) = 15 rooted trees:
  (1)  (2)  (3)       (4)       (5)       (6)            (7)
            (21)      (31)      (32)      (42)           (43)
            ((1)(2))  ((1)(3))  (41)      (51)           (52)
                                ((1)(4))  (321)          (61)
                                ((2)(3))  ((1)(5))       (421)
                                          ((2)(4))       ((1)(6))
                                          ((1)(23))      ((2)(5))
                                          ((2)(13))      ((3)(4))
                                          ((3)(12))      ((1)(24))
                                          ((1)(2)(3))    ((2)(14))
                                          ((1)((2)(3)))  ((4)(12))
                                          ((2)((1)(3)))  ((1)(2)(4))
                                          ((3)((1)(2)))  ((1)((2)(4)))
                                                         ((2)((1)(4)))
                                                         ((4)((1)(2)))

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

Cf. A000669, A005804, A008289, A141268, A292504, A300660, A319312, A320171, A320174, A320175, A320177, A320178.

sps[{}]:={{}};sps[set:{i_,_}]:=Join@@Function[s,Prepend[#,s]&/@sps[Complement[set,s]]]/@Cases[Subsets[set],{i,_}];
got[m_]:=Prepend[Join@@Table[Union[Sort/@Tuples[got/@p]],{p,Select[sps[m],Length[#]>1&]}],m];
Table[Length[Join@@Table[got[m],{m,Select[IntegerPartitions[n],UnsameQ@@#&]}]],{n,20}]

\\ here S(n) is first n terms of A005804.
EulerT(v)={Vec(exp(x*Ser(dirmul(v,vector(#v,n,1/n))))-1, -#v)}
b(n,k)={my(v=vector(n)); for(n=1, n, v[n]=binomial(n+k-1, n) + EulerT(v[1..n])[n]); v}
S(n)={my(M=Mat(vectorv(n, k, b(n,k)))); vector(n, k, sum(i=1, k, binomial(k, i)*(-1)^(k-i)*M[i,k]))}
seq(n)={my(u=S((sqrtint(8*n+1)-1)\2)); [sum(i=1, poldegree(p), polcoef(p,i)*u[i]) | p <- Vec(prod(k=1, n, 1 + x^k*y + O(x*x^n))-1)]} \\ Andrew Howroyd, Oct 26 2018

a(n) = Sum_{k>0} A008289(n, k)*A005804(k). - Andrew Howroyd, Oct 26 2018

Terms a(31) and beyond from Andrew Howroyd, Oct 26 2018

A319137 Number of strict planar branching factorizations of n.

Original entry on oeis.org

1, 1, 1, 1, 1, 3, 1, 3, 1, 3, 1, 9, 1, 3, 3, 7, 1, 9, 1, 9, 3, 3, 1, 37, 1, 3, 3, 9, 1, 25, 1, 21, 3, 3, 3, 57, 1, 3, 3, 37, 1, 25, 1, 9, 9, 3, 1, 161, 1, 9, 3, 9, 1, 37, 3, 37, 3, 3, 1, 153, 1, 3, 9, 75, 3, 25, 1, 9, 3, 25, 1, 345, 1, 3, 9, 9, 3, 25, 1, 161

Offset: 1

Gus Wiseman, Sep 11 2018

nonn

A strict planar branching factorization of n is either the number n itself or a sequence of at least two strict planar branching factorizations, one of each factor in a strict ordered factorization of n.

			The a(12) = 9 trees:
  12,
  (2*6), (3*4), (4*3),(6*2),
  (2*(2*3)), (2*(3*2)), ((2*3)*2), ((3*2)*2).

Cf. A000108, A001055, A045778, A074206, A118376, A277130, A281113, A281118, A292504, A295279, A295281, A317144, A319122, A319123, A319138.

ordfacs[n_]:=If[n<=1,{{}},Join@@Table[(Prepend[#1,d]&)/@ordfacs[n/d],{d,Rest[Divisors[n]]}]]
sotfs[n_]:=Prepend[Join@@Table[Tuples[sotfs/@f],{f,Select[ordfacs[n],And[Length[#]>1,UnsameQ@@#]&]}],n];
Table[Length[sotfs[n]],{n,100}]

a(prime^n) = A319123(n + 1).

a(product of n distinct primes) = A319122(n).

A320293 Number of series-reduced rooted trees whose leaves are integer partitions whose multiset union is an integer partition of n with no 1's.

Original entry on oeis.org

0, 1, 1, 3, 3, 9, 11, 30, 45, 112, 195, 475, 901, 2136, 4349, 10156, 21565, 50003, 109325, 252761, 563785, 1303296, 2948555, 6826494, 15604053, 36210591, 83415487, 194094257, 449813607, 1049555795, 2444027917, 5718195984, 13367881473, 31357008065, 73546933115

Offset: 1

Gus Wiseman, Oct 09 2018

nonn

Also phylogenetic trees on integer partitions of n with no 1's.

			The a(2) = 1 through a(7) = 11 trees:
  (2)  (3)  (4)       (5)       (6)            (7)
            (22)      (32)      (33)           (43)
            ((2)(2))  ((2)(3))  (42)           (52)
                                (222)          (322)
                                ((2)(4))       ((2)(5))
                                ((3)(3))       ((3)(4))
                                ((2)(22))      ((2)(23))
                                ((2)(2)(2))    ((3)(22))
                                ((2)((2)(2)))  ((2)(2)(3))
                                               ((2)((2)(3)))
                                               ((3)((2)(2)))

Andrew Howroyd, Table of n, a(n) for n = 1..500

Cf. A000045, A000311, A000669, A002865, A141268, A292504, A300660, A304967, A319312, A320289, A320294, A320295, A320296.

EulerT(v)={Vec(exp(x*Ser(dirmul(v,vector(#v,n,1/n))))-1, -#v)}
seq(n)={my(p=1/prod(k=2, n, 1 - x^k + O(x*x^n)), v=vector(n)); for(n=1, n, v[n]=polcoef(p, n) + EulerT(v[1..n])[n]); v} \\ Andrew Howroyd, Oct 25 2018

Terms a(23) and beyond from Andrew Howroyd, Oct 25 2018

A323719 Array read by antidiagonals upwards where A(n, k) is the number of orderless factorizations of n with k - 1 levels of parentheses.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 2, 1, 4, 1, 1, 1, 1, 1, 3, 1, 5, 1, 1, 1, 1, 3, 1, 4, 1, 6, 1, 1, 1, 1, 2, 6, 1, 5, 1, 7, 1, 1, 1, 1, 2, 3, 10, 1, 6, 1, 8, 1, 1, 1, 1, 1, 3, 4, 15, 1, 7, 1, 9, 1, 1, 1, 1, 4, 1, 4, 5, 21, 1, 8, 1, 10, 1, 1, 1

Offset: 1

Gus Wiseman, Jan 25 2019

An orderless factorization of n with k > 1 levels of parentheses is any multiset partition of an orderless factorization of n with k - 1 levels of parentheses. If k = 1 it is just an orderless factorization of n into factors > 1.

			Array begins:
       k=0  k=1  k=2  k=3  k=4  k=5  k=6  k=7  k=8  k=9  k=10 k=11 k=12
   n=1: 1    1    1    1    1    1    1    1    1    1    1    1    1
   n=2: 1    1    1    1    1    1    1    1    1    1    1    1    1
   n=3: 1    1    1    1    1    1    1    1    1    1    1    1    1
   n=4: 1    2    3    4    5    6    7    8    9   10   11   12   13
   n=5: 1    1    1    1    1    1    1    1    1    1    1    1    1
   n=6: 1    2    3    4    5    6    7    8    9   10   11   12   13
   n=7: 1    1    1    1    1    1    1    1    1    1    1    1    1
   n=8: 1    3    6   10   15   21   28   36   45   55   66   78   91
   n=9: 1    2    3    4    5    6    7    8    9   10   11   12   13
  n=10: 1    2    3    4    5    6    7    8    9   10   11   12   13
  n=11: 1    1    1    1    1    1    1    1    1    1    1    1    1
  n=12: 1    4    9   16   25   36   49   64   81  100  121  144  169
  n=13: 1    1    1    1    1    1    1    1    1    1    1    1    1
  n=14: 1    2    3    4    5    6    7    8    9   10   11   12   13
  n=15: 1    2    3    4    5    6    7    8    9   10   11   12   13
  n=16: 1    5   14   30   55   91  140  204  285  385  506  650  819
  n=17: 1    1    1    1    1    1    1    1    1    1    1    1    1
  n=18: 1    4    9   16   25   36   49   64   81  100  121  144  169
The A(12,3) = 16 orderless factorizations of 12 with 2 levels of parentheses:
  ((2*2*3))          ((2*6))      ((3*4))      ((12))
  ((2)*(2*3))        ((2)*(6))    ((3)*(4))
  ((3)*(2*2))        ((2))*((6))  ((3))*((4))
  ((2))*((2*3))
  ((2)*(2)*(3))
  ((3))*((2*2))
  ((2))*((2)*(3))
  ((3))*((2)*(2))
  ((2))*((2))*((3))

Columns: A001055 (k=1), A050336 (k=2), A050338 (k=3), A050340 (k=4).
Rows: A000027, A000217, A000290, etc.
Cf. A096751, A141268, A144150, A213427, A255906, A281113, A290353, A292504, A317145, A318564, A318565, A318812, A323718.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
lev[n_,k_]:=If[k==0,{n},Join@@Table[Union[Sort/@Tuples[lev[#,k-1]&/@fac]],{fac,facs[n]}]];
Table[Length[lev[sum-k,k]],{sum,12},{k,0,sum-1}]

cp's OEIS Frontend

A320171 Number of series-reduced rooted identity trees whose leaves are integer partitions whose multiset union is an integer partition of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A320177 Number of series-reduced rooted identity trees whose leaves are strict integer partitions whose multiset union is an integer partition of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A320178 Number of series-reduced rooted identity trees whose leaves are constant integer partitions whose multiset union is an integer partition of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A320294 Number of series-reduced rooted trees whose leaves are non-singleton integer partitions whose multiset union is an integer partition of n with no 1's.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A330727 Irregular triangle read by rows where T(n,k) is the number of balanced reduced multisystems of depth k whose degrees (atom multiplicities) are the prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A320172 Number of series-reduced balanced rooted identity trees whose leaves are integer partitions whose multiset union is an integer partition of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A320176 Number of series-reduced rooted trees whose leaves are strict integer partitions whose multiset union is a strict integer partition of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs