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

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

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

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

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

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

Mathematica

PARI

Formula

Extensions