%I#8 2017年10月1日00:05:43

%S 1,2,3,4,5,6,7,9,10,11,13,14,15,17,21,2,23,25,26,29,31,33,34,35,39，

%电话：41、43、46、47、49、51、55、58、59、62、65、69、73、77、79、82、83、85、86、87、91、93、94，

%电话：97101109115118119121123127129139141143145

%N半二叉根树的Matula-Goebel数。

%C如果所有出度都小于等于2，则未标记的根树是半二进制的。具有n个节点的半二叉树的数量等于具有n+1个叶子的二叉树数量；见A001190。

%t nn=200；

%t primeMS[n_]：=如果[n==1，{}，压扁[Cases[FactorInteger[n]，{p_，k_}：>表[PrimePi[p]，{k}]]]；

%t半二进制Q[n_]：=或[n===1，其中[{m=primeMS[n]}，And[Length[m]<=2，And@@semibinQ/@m]]]；

%t选择[Range[nn]，semibinQ]

%Y参见A000081、A001190、A007097、A036656、A061773、A111299、A214577、A291636。

%K nonn公司

%O 1、2

%A _Gus Wiseman_，2017年9月8日