OFFSET
1,4
EXAMPLE
The a(7) = 11 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)))
MATHEMATICA
strut[n_]:=strut[n]=If[n===1, {{}}, Select[Join@@Function[c, Union[Sort/@Tuples[strut/@c]]]/@IntegerPartitions[n-1], UnsameQ@@#&&Or[Length[#]==1, Intersection@@#=={}]&]];
Table[Length[strut[n]], {n, 20}]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Gus Wiseman, Jul 05 2018
STATUS
approved