%I#29 2020年7月20日06:44:43
%S 1,1,0,0,0,1,2,4,9,21,44,96206450981215947571057123563,
%电话:528351189392690476108781392677318600173138821684220238900699,
%电话:900982602092296014870776851136549747265785905962284474881462451580434402798404
%N具有N个节点的非对称林的数量。
%D S.R.Finch,《数学常数》,剑桥,2003年,第301和562页。
%H Alois P.Heinz,n的表格,n=0..1000时的a(n)</a>
%H N.J.A.Sloane,转换</a>
%H<a href=“/index/Fo#forests”>与森林相关序列的索引条目</a>
%F A000220的称重转换。
%F a(n)~c*d^n/n^(5/2),其中d=A246169=2.51754035263200389079535…,c=0.421943694962576031011358_瓦茨拉夫·科特索维奇,2014年8月25日
%p b:=proc(n,i)选项记忆`如果`(n=0,1,`如果`(i<1,0,
%p加(二项式(b((i-1)$2),j)*b(n-i*j,i-1),j=0..n/i))
%p端:
%pg:=n->b((n-1)$2):
%ph:=proc(n)选项记忆;g(n)-加(g(i)*g(n-i),i=0..n)/2
%p-`if`(irem(n,2)=1,0,g(n/2))/2
%p端:
%pf:=proc(n,i)选项记忆`如果`(n=0,1,`如果`(i<1,0,
%p加(二项式(h(i),j)*f(n-i*j,i-1),j=0..n/i))
%p端:
%p a:=n->f(n,n):
%p序列(a(n),n=0..40);#_Alois P.Heinz,2013年5月20日
%tb[n_,i_]:=b[n,i]=如果[n==0,1,如果[i<1,0,和[二项式[b[i-1,i-1],j]*b[n-i*j,i-1]{j,0,n/i}]];g[n]:=b[n-1,n-1];h[n_]:=h[n]=g[n]-和[g[i]*g[n-i],{i,0,n}]/2-如果[Mod[n,2]==1,0,g[n/2]]/2;f[n_,i_]:=f[n,i]=如果[n==0,1,如果[i<1,0,和[二项式[h[i],j]*f[n-i*j,i-1],{j,0,n/i}]];a[n]:=f[n,n];表[a[n],{n,0,40}](*_Jean-François Alcover_,2016年2月21日,在_Alois P.Heinz_*之后)
%Y参考A000220、A004111、A005195、A246169。
%K nonn公司
%0、9
%基督G.鲍尔,1998年10月15日
|