%I#26 2023年5月20日15:11:41
%S 3,3,9,28,9432811974486172356742926793210780034383784,
%电话:17987897743859843096942321297037177546072421423098296648,
%电话:981139950684183356624481789814398035768152242947433061825858259142674028869587617180102839217
%N具有三色叶子的有根树的数量。
%H Alois P.Heinz,n的表格,n=1..500时的a(n)</a>
%H N.J.A.斯隆,<A href=“/transforms.txt”>转换</a>
%H<a href=“/index/Ro#rooted”>与根树相关的序列的索引项</a>
%F在Euler变换下向左移动。
%F a(n)~c*d^n/n^(3/2),其中d=4.58859196701042554480382685…和c=0.5102557157321640697473838…-Vaclav Kotesovec_,2014年3月29日
%F G.F.A(x)满足:A(x)=2*x+x*exp(Sum_{k>=1}A(x^k)/k)。-_伊利亚·古特科夫斯基,2023年5月19日
%p with(numtheory):a:=proc(n)选项记住;局部d,j;如果n<=1,则3*n else(add(d*a(d),d=除数(n-1))+add(add_Alois P.Heinz,2008年9月6日
%t a[n_]:=a[n]=如果[n<=1,3*n,(总和[d*a[d],{d,除数[n-1]}]+总和[Sum[d*a[d]、{d、除数[j]}]*a[n-j],{j,1,n-2}])/(n-1)];表[a[n],{n,1,30}](*Jean-François Alcover_,2016年2月21日*)
%Y参考A000081、A029856、A038050。
%K nonn,简单,特征
%O 1,1号机组
%基督教G.鲍尔_
|