%I#22 2018年6月21日00:12:15

%S 3,3,8,3,2,1,8,5,6,8,9,9,2,0,7,6,9,5,1,9,6,1,2,6,5,7,1,7,0,1,0，

%温度5,3,1,8,3,7,7,4,6,0,7,5,3,2,9,6,7,7，7,9,5,5,7,2,3,0,3,7，6,2,5,7,16,6，

%U 6,0,5,0,1,8,9,6,2,0,7,6,6,5,5,8,7,9,3,6,7,3

%N未标记树的g.f.收敛半径的十进制展开（A000055）。

%H M.Drmota，B.Gittenberger，<a href=“https://doi.org/10.1016/j.ejc.2010.05.011“>未标记根随机树的形状</a>，《欧洲期刊》Comb.31（2010）第8期，2028-2063

%H E.M.Palmer和A.J.Schwenk，<A href=“http://dx.doi.org/10.1016/0095-8956（79）90073-X“>关于随机森林中的树木数量，J.Combina.Theory，B 27（1979），109-121。

%F等于1/A051491。-_瓦茨拉夫·科特索维奇，2013年7月29日

%e 0.338321856899208。。。

%t位数=95；最大值=200；

%t s[n，k]：=s[n，k]=a[n+1-k]+如果[n<2*k，0，s[n-k，k]]；

%ta[1]=1；

%ta[n]：=a[n]=和[a[k]*s[n-1，k]*k，{k，1，n-1}]/（n-1）；

%tA[x_]：=总和[A[k]*x^k，{k，0，max}]；

%t eq=对数[c]==1+总和[A[c^-k]/k，{k，2，max}]；

%t r=1/c/。FindRoot[eq，{c，3}，工作精度->数字+5]；

%t真实数字[r，10，digits]//第一个（*Jean-François Alcover_，2016年8月10日*）

%Y参考A000055。

%K非n，缺点

%0、1

%A _N.J.A.Sloane，2012年5月29日

%E更多条款摘自_Vaclav Kotesovec_，2013年7月29日