%I#13 2020年6月21日01:57:23

%S 1,4,8,16,32,49，6412825634336151210240482401280940966859，

%电话：81921203116384168071716132768515296553696721117649130321，

%电话：131072148877262144516961524288637643718099757907823543104857620971522248091

%所有叶子都等于1的无序相同树的N个Matula Goebel数。

%C无次序同树的定义见A289078。

%e a（20）=12031对应于以下相同树：{{1,1,1,1}，{{1,1}，{1,1{}}。

%t nn=200000；

%t素数MS[n_]：=如果[n===1，{}，平坦[Cases[FactorInteger[n]，{p_，k_}:>表[PrimePi[p]，{k}]]]；

%t叶数[n_]：=如果[n===1,1，其中[{m=primeMS[n]}，如果[Length[m]===1，叶数[First[m]]，总[leafcount/@m]]]；

%t sameQ[n_]：=或[n===1，其中[{m=primeMS[n]}，And[Length[m]>1，sameQ@@leafcount/@m，And@@sameQ/@m]]]；

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

%Y参见A007097、A109129、A214577、A280994、A289078、A28907、A291442和A291443。

%K非n

%O 1,2号机组

%A _Gus Wiseman_，2017年8月23日

%E更多条款来自2020年6月21日的王金源