A316474 Number of locally stable rooted identity trees with n nodes, meaning no branch is a subset of any other branch of the same root.
1, 1, 1, 1, 1, 2, 3, 5, 8, 14, 23, 42, 73, 133, 241, 442, 812, 1508, 2802, 5247, 9842, 18554, 35045, 66453, 126249
Offset: 1
Examples
The a(9) = 8 locally stable rooted identity trees: ((((((((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@@#&&Complement@@#=={}&]=={}&]]; Table[Length[strut[n]],{n,20}]