%I#8 2021年10月23日21:16:36
%S 1,2,3,2,4,4,4,12,6,6,5,4,6,3,9,2,6,4,6,6,8,10,4,12,6,10,9,6,2,
%T 12,6,9,6,6,4,9,6,9,7,6,8,15,10,15,4,5,12,9,4,10,16,4,17,9,8,9,10,10,
%U 11,2,13,12,6,7,14,10,9,6,10,7,21,3,12,10,12,6
%N具有Matula-Goebel数N的未标记根树的跨度大小。
%C树的跨度被定义为初始子树的可能的终端子树的集合,或者,相同的,终端子树的可能的初始子树的集合。
%H<a href=“/index/Mat#matula”>与matula-Goebel数相关的序列的索引条目</a>
%e 42是(o(o)(oo))的Matula-Goebel数,它有span{o,(o),(oo。
%文本[c,{}]:=c;ext[c_,s:{__}]:=提取[c,s];rpp[c,v,{}]:=v;rpp[c_,v_,s:{__}]:=替换部件[c,v,s];
%t RLO[ear_,rue:{__}]:=联合@@;
%t RL[ear_,rue:{__}]:=FixedPoint[Function[kets,Union[kees,Join@@(RLO[#,rue]&/@kets)]],{ear}];
%t素数MS[n_]:=如果[n==1,{},扁平[Cases[FactorInteger[n],{p_,k_}:>表[PrimePi[p],{k}]]];
%t MGTree[n_]:=如果[n==1,{},MGTree/@primeMS[n]];
%t表[Length[Union[Cases[RL[MGTree[n],{List[__List]:>List[]}],_List,{1,Infinity}]],{n,100}]
%Y参见A000081、A007097、A007853、A049076、A061773、A0611775、A109082、A109129、A206491、A317713、A318046。
%K nonn公司
%O 1,2号机组
%A _Gus Wiseman_,2018年8月13日
|