%I#9 2014年12月20日13:48:32
%S 1,1,3,3150512443227207661591240975409920684625,
%电话8282460205891886498379552919111190541933344777,
%电话:16136424098890466281268020574496484849494949492593550474697822072905464111069012132266930747043325280598116469824339521406081
%N例如满足:A(x)=exp(x*A(((x+1)^6-1)/6))。
%H Alois P.Heinz,n的表格,n=0..100时的a(n)</a>
%p A:=proc(n,k::nonnegint)选项记忆;如果n<=0或k=0,则1其他A(n-1,k)(((x+1)^k-1)/k)fi;unapply(convert(series(exp(x*%),x,n+1),polynom),x)end:a:=n->系数(a(n,6)(x),x、n)*n!:seq(a(n),n=0..20);
%tA[n_,k_]:=模[{f},f[x_]=如果[n<=0||k==0,1,A[n-1,k][((x+1)^k-1)/k]];正常[序列[Exp[x*f[x]],{x,0,n+1}]/。x->#]&;a[n_]:=系数[a[n,6][x],x,n]*n!;表[a[n],{n,0,21}](*_Jean-François Alcover_,2014年2月14日,在Maple之后*)
%Y参见A143632第6列。
%K nonn公司
%O 0.3
%A _Alois P.Heinz,2008年8月27日
|