%I#11 2015年2月6日09:14:42
%S 1,1,5,16,491424151198347310048291911884376244747710198,
%电话:2062273599141717416400506522471473846754290433891249508946,
%电话:36404496781061061551309376050759023731308226328815307376844961162243530461066552016136666
%N具有2n+1个节点和最大出度(分支因子)N的未标记根树的数目。
%H Alois P.Heinz,n的表格,n=0..100时的a(n)</a>
%F a(n)=A244372(2n+1,n)。
%F a(n)~c*d^n/sqrt(n),其中d=2.955765285651994974714817524…是水獭的根树常数(参见A051491),c=2.806733_瓦茨拉夫·科特索维奇,2014年7月11日
%pb:=proc(n,i,t,k)选项记忆`如果`(n=0,1,
%p`如果`(i<1,0,加(二项式(b((i-1)$2,k$2)+j-1,j)*
%p b(n-i*j,i-1,t-j,k),j=0..分钟(t,n/i))
%p端:
%p a:=n->`如果'(n=0,1,b(2*n$2,n$2)-b(2*n$2,n-1$2)):
%p序列(a(n),n=0..30);
%tb[n_,i_,t_,k_]:=b[n,i,t,k]=如果[n==0,1,如果[i<1,0,和[二项式[b[i-1,i-1,k,k]+j-1,j]*b[n-i*j,i-1、t-j,k],{j,0,Min[t,n/i]}]//完全简化];a[n]:=如果[n==0,1,b[2*n,2n,n,n]-b[2*n、2n、n-1,n-1]];表[a[n],{n,0,30}](*_Jean-François Alcover_,2015年2月6日,在Maple之后*)
%Y参见A244372、A244407、A051491。
%K nonn公司
%0、3
%A _Joerg Arndt_和_Alois P.Heinz,2014年6月27日
|