%I#49 2018年2月9日21:46:52
%S 2,3,6,4,36,24,5200300120,6117033602520720,773923885043680,
%电话:226805040,8505684757767576805510402276040320,9372528,
%电话:6231960137471041283688071366402358720362880,10293607087530400264181680
%N按行读取的三角形,给出N>=2个节点且高度d>=1的有根标记树的数量。
%H Alois P.Heinz,行n=2..101,扁平</a>
%H Marko Riedel,<a href=“http://math.stackexchange.com/questions/1801039/“>计算一定高度的有根树的数量</a>
%H Marko Riedel,序列枫树代码(EGF)</a>
%H J.Riordan,<a href=“http://www.research.ibm.com/journal/rd/045/ibmrd0405E.pdf“>树木的高度和直径计数,IBM J.Res.Dev.4(1960),473-478。[断开的链接]
%H J.Riordan,<a href=“http://dx.doi.org/10.1147/rd.45.0473“>树木的高度和直径计数,IBM J.Res.Dev.4(1960),473-478。
%H J.Riordan,《树的高度和直径计数》,IBM Journal 4(1960),473-478。(带注释的扫描副本)
%H<a href=“/index/Tra#trees”>为与树相关的序列索引条目</a>
%F Riordan参考给出了重现性。
%e 2;
%e 3、6;
%e 4、36、24;
%e 5200300120;
%e 61170、3360、2520、720;
%电子邮箱773923885043680226805040;
%p gf:=程序(k)gf(k):=`if`(k=0,x,x*exp(gf(k-1)))结束:
%p A:=进程(n,k)A(n,k):=n*系数(系列(gf(k),x,n+1),x、n)结束:
%p T:=(n,d)->A(n,d)-A(n,d-1):
%p序列(序列(T(n,d),d=1..n-1),n=2..12);#_Alois P.Heinz,2012年9月21日
%t gf[k_]:=gf[k]=如果[k==0,x,x*E^gf[k-1]];a[n,k_]:=n*系数[级数[gf[k],{x,0,n+1}],x,n];t[n,d_]:=a[n,d]-a[n,d-1];表[t[n,d],{n,2,12},{d,1,n-1}]//Flatten(*_Jean-François Alcover_,2013年1月15日,翻译自_Alois P.Heinz_的Maple程序*)
%Y参见A001854、A234953、A000435、A236396。
%K nonn,tabl,轻松,好
%氧2,1
%编号。J.A.斯隆_
%E来自Pab Ter(pabrlos(AT)yahoo.com)的更多条款,2004年5月27日
|