A316471 Number of locally disjoint rooted identity trees with n nodes, meaning no branch overlaps any other branch of the same root.
1, 1, 1, 2, 3, 6, 11, 21, 43, 89, 185, 391, 840, 1822, 3975, 8727, 19280, 42841, 95661, 214490
Offset: 1
Examples
The a(7) = 11 locally disjoint rooted identity trees: ((((((o)))))) ((((o(o))))) (((o((o))))) ((o(((o))))) ((o(o(o)))) (((o)((o)))) (o((((o))))) (o((o(o)))) (o(o((o)))) ((o)(((o)))) (o(o)((o)))
Links
Crossrefs
Programs
-
Mathematica
strut[n_]:=strut[n]=If[n===1,{{}},Select[Join@@Function[c,Union[Sort/@Tuples[strut/@c]]]/@IntegerPartitions[n-1],UnsameQ@@#&&Select[Tuples[#,2],UnsameQ@@#&&(Intersection@@#=!={})&]=={}&]]; Table[Length[strut[n]],{n,20}]