%I#7 2019年3月22日00:33:41

%S 15,30,33,39,47,55,65,66,78,87,93,94110113130137141143145，

%电话：155165167174186195205211226235237257274286286290，

%电话：30331031317319327330334339341377381390395397403410

%N根身份树的Matula-Goebel数，其中并非所有终端子树都不同。

%C根身份树是一种未标记的根树，在同一根下没有重复的分支。

%H Gus Wiseman，<a href=“/A324970/A324970.png”>前36棵树及其Matula-Goebel编号</a>。

%F是A276625中A324935的补充。

%e树木序列与Matula-Goebel编号一起开始：

%e 15：（o）（o））

%e 30：（o（o）（o））

%e 33：（o）（（o））

%e 39：（（o）（o（o））

%e 47：（（o）（o））

%e 55：（（o））

%e 65：（（o）（o（o））

%e 66：（o（o）（（o）））

%e 78：（o（o）（o（o））

%e 87：（o）（o（o））

%e 93：（o）（（（o）））

%e 94：（o（o）（o））

%e 110：（o（o））

%e 113：（o（o）（o））

%e 123：（o）（o（o））

%e 130：（o（o））

%e 137：（（（o）（（（o）））

%e 141：（o）（o）

%e 143：（（o））

%e 145：（（o）（o（o）））

%e 155：（（（o））（（（（o）））

%e 165：（o）（o））

%e 167：（（o）（o（o）））

%e 174：（o（o）（o（（o）））

%e 186：（o（o）（（（（o））））

%e 195年：（o）（o）

%t mgtree[n_Integer]：=如果[n==1，{}，mgtree/@Flatten[Cases[FactorInteger[n]，{p_，k_}:>表[PrimePi[p]，{k}]]]；

%t选择[Range[100]，And[And@@Cases[mgtree[#]，q:{__}:>UnsameQ@@q，{0，Infinity}]，！取消命名Q@@Cases[mgtree[#]，{__}，{0，Infinity}]&]

%Y参见A000081、A004111、A007097、A196050、A276625、A317713、A324850、A324923、A324935、A32493、A324968、A324971、A32497。

%K nonn公司

%O 1,1号机组

%A _古斯·维塞曼_，2019年3月21日