%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日