The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A316653 Number of series-reduced rooted identity trees with n leaves spanning an initial interval of positive integers. 10
 1, 1, 6, 58, 774, 13171, 272700, 6655962, 187172762, 5959665653, 211947272186, 8327259067439, 358211528524432, 16744766791743136, 845195057333580332, 45814333121920927067, 2654330505021077873594, 163687811930206581162063, 10705203621191765328300832 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 COMMENTS A rooted tree is series-reduced if every non-leaf node has at least two branches. It is an identity tree if no branch appears multiple times under the same root. LINKS Andrew Howroyd, Table of n, a(n) for n = 1..200 EXAMPLE The a(3) = 6 trees are (1(12)), (2(12)), (1(23)), (2(13)), (3(12)), (123). MATHEMATICA 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]]]]; gro[m_]:=If[Length[m]==1, m, Select[Union[Sort/@Join@@(Tuples[gro/@#]&/@Select[mps[m], Length[#]>1&])], UnsameQ@@#&]]; allnorm[n_Integer]:=Function[s, Array[Count[s, y_/; y<=#]+1&, n]]/@Subsets[Range[n-1]+1]; Table[Sum[Length[gro[m]], {m, allnorm[n]}], {n, 5}] PROG (PARI) \\ here R(n, 2) is A031148. WeighT(v)={Vec(exp(x*Ser(dirmul(v, vector(#v, n, (-1)^(n-1)/n))))-1, -#v)} R(n, k)={my(v=[k]); for(n=2, n, v=concat(v, WeighT(concat(v, [0]))[n])); v} seq(n)={sum(k=1, n, R(n, k)*sum(r=k, n, binomial(r, k)*(-1)^(r-k)) )} \\ Andrew Howroyd, Sep 14 2018 CROSSREFS Cf. A000081, A000311, A000669, A001678, A004111, A005804, A034691, A141268, A292504, A300660. Cf. A316651, A316652, A316654, A316655, A316656. Sequence in context: A212426 A259612 A305599 * A302598 A302922 A274985 Adjacent sequences:  A316650 A316651 A316652 * A316654 A316655 A316656 KEYWORD nonn AUTHOR Gus Wiseman, Jul 09 2018 EXTENSIONS Terms a(9) and beyond from Andrew Howroyd, Sep 14 2018 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified April 3 04:11 EDT 2020. Contains 333195 sequences. (Running on oeis4.)