登录
按行读取的三角形,给出了n个节点的种植无根树的Matula-Goebel数。
5

%I#7 2017年1月12日15:59:42

%S 1,2,3,4,5,7,8,9,11,16,17,19,23,31,32,53,59,67,25,27,49,64,83127131,

%电话:241277331,97103128227311431479739152317872221,81121256,

%电话:2893615095637191433206330015381562312731529919577

%N个三角形,按行读取,给出N个节点的种植无根树的Matula-Goebel数。

%C非手性树是(情况1)单个节点或(情况2)非手性树的有限常数序列(t,t,..,t)。只有在案例2中,才认为非中心树是广义Bethe树(根据A214577)。

%德国,<a href=“http://arxiv.org/abs/1111.4288“>根树统计数据来自Matula数字,arXiv:11111.4288[math.CO],2011。

%e三角形开始:

%e 1,

%e 2,

%e 3、4、,

%e 5、7、8、,

%e 9、11、16、17、19、,

%e 23、31、32、53、59、67、,

%e第25、27、49、64、83、127、131、241、277、331页。

%t nn=7;MG编号[_[]]:=1;MGNumber[x:_[__]]:=如果[Length[x]==1,素数[MGNumber[x[1]]],时间@@Prime/@MGNumber/@x];

%t cits[n_]:=如果[n===1,{1},连接@@表[ConstantArray[#,(n-1)/d]&/@cits[d],{d,除数[n-1]}]];

%t表[Sort[MGNumber/@(cits[n]/.(1->{}))],{n,nn}]

%Y参见A003238(行长度)、A214577、A061773、A06177、A004111、A007097、A196545、A275870。

%K nonn,标签

%O 1,2号机组

%A _Gus Wiseman_,2017年1月12日