%I#9 2016年8月26日03:01:17
%S 1,1,5,3736941705131256361256895695929980491525441,
%电话:4327419237691342277139745195663318104116418360947494353,
%电话:64010103226916628126659869619363530177118142623521934815041555063598417196314252756055067645593905664891442112016932871347206336817931567651481815767204102801
%N例如,W(x)^W(x。
%H Vaclav Kotesovec,n的表格,n=0..384的a(n)</a>
%F例如:exp(兰伯特W(-x)^2/x)。
%F a(n)~2*exp(exp(1)+1)*n^(n-1).-_瓦茨拉夫·科特索维奇,2016年8月26日
%例如:A(x)=1+x+5*x^2/2!+37*x^3/3!+369*x^4/4!+4641*x^5/5!+70513*x^6/6!+1256361*x ^ 7/7!+25689569*x^8/8!+592998049*x^9/9!+15254145441*x^10/10!+。。。
%e使A(x)=W(x)^W(x)。
%e定义W(x)=LambertW(-x)/(-x
%e W(x)=1+x+3*x^2/2!+16*x^3/3!+125*x^4/4!+1296*x^5/5!+16807*x^6/6!+262144*x^7/7!+4782969*x ^8/8!+100000000*x^9/9!+…+(n+1)^(n-1)*x^n/n!+。。。
%e满足W(x)=exp(x)^W(x”)。
%t系数列表[系列[E^(LambertW[-x]^2/x),{x,0,20}],x]*范围[0,20]!(*_Vaclav Kotesovec_,2016年8月26日*)
%o(PARI){a(n)=my(a=1+x,W);W=serreverse(x*exp(-x+x^2*o(x^n))/x;a=W^W;n!*polceoff(a,n)}
%o表示(n=0,40,打印1(a(n),“,”)
%Y参考A276231。
%K nonn公司
%0、3
%A _保罗·D·汉纳,2016年8月24日
|