cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A316475 Number of locally stable rooted trees with n nodes, meaning no branch is a submultiset of any other (unequal) branch of the same root.

This page as a plain text file.
%I A316475 #10 Sep 14 2018 02:48:58
%S A316475 1,1,2,3,5,7,14,25,50,101,207,426,902,1917,4108,8887,19335,42330,
%T A316475 93130,205894,456960,1018098,2275613,5102248,11471107,25856413
%N A316475 Number of locally stable rooted trees with n nodes, meaning no branch is a submultiset of any other (unequal) branch of the same root.
%H A316475 Gus Wiseman, <a href="/A316475/a316475.png">The a(8) = 25 locally stable rooted trees with 8 nodes.</a>
%e A316475 The a(6) = 7 locally stable rooted trees:
%e A316475 (((((o)))))
%e A316475 ((((oo))))
%e A316475 (((ooo)))
%e A316475 (((o)(o)))
%e A316475 ((oooo))
%e A316475 ((o)((o)))
%e A316475 (ooooo)
%t A316475 submultisetQ[M_,N_]:=Or[Length[M]==0,MatchQ[{Sort[List@@M],Sort[List@@N]},{{x_,Z___},{___,x_,W___}}/;submultisetQ[{Z},{W}]]]
%t A316475 strut[n_]:=strut[n]=If[n===1,{{}},Select[Join@@Function[c,Union[Sort/@Tuples[strut/@c]]]/@IntegerPartitions[n-1],Select[Tuples[#,2],UnsameQ@@#&&submultisetQ@@#&]=={}&]];
%t A316475 Table[Length[strut[n]],{n,15}]
%Y A316475 Cf. A000081, A285572, A285573, A303362, A304713, A316468, A316470, A316473, A316474.
%K A316475 nonn,more
%O A316475 1,3
%A A316475 _Gus Wiseman_, Jul 04 2018
%E A316475 a(21)-a(26) from _Robert Price_, Sep 13 2018