%I#22 2018年9月6日15:43:07
%S 0,0,0,1241801260945077952709128708744077398200918257472,
%电话:11771602128162251002368239370453504037647052591104,
%电话:6289133967014401123162442408960207662678687208960
%N例如f.的展开:-(log(1-x))^3*x。
%C以前的名字是:简单语法。
%H G.C.Greubel,n表,n=0..448的a(n)</a>
%H INRIA算法项目,<a href=“http://ecs.inria.fr/services/structure?nbr=714“>组合结构百科全书714</a>
%F例如:log(-1/(-1+x))^3*x。
%F递归:{a(1)=0,a(2)=0、a(3)=0和a(4)=24,(4*n^4-n^6-7*n-9*n^2-3*n^5+6+10*n^3)*a(n)+n+3)=0}。
%F a(n)~(n-1)!*(3*log(n)^2+6*gamma*log(n)-Pi^2/2+3*gamma^2),其中gamma是Euler-Marcheroni常数(A001620)_瓦茨拉夫·科特索维奇,2013年10月1日
%p规范:=[S,{B=循环(Z),S=生产(B,B,B和Z)},标记]:seq(组合结构[计数](规范,大小=n),n=0..20);
%t系数列表[Series[-(Log[1-x])^3*x,{x,0,20}],x]*Range[0,20]!(*_Vaclav Kotesovec_,2013年10月1日*)
%t求并[{0,0,0},递归表[{a[4]==24,a[5]==180,a[6]==1260,(4*n^4-n^6-7*n-9*n^2-3*n^5+6+10*n^3)*a[n]+(3*n*5+12*n^4+4*n^3-13*n^2+6*n)*a[1]+(-12*n^3-4*n^4-9*n^2)*a[2]==-(n^3+3*n^2+2*n)*a[n+3]},a,{n,4,30}]](*_G.C.格鲁贝尔,2018年9月5日*)
%o(PARI)x='x+o('x^30);concat(矢量(4),Vec(serlaplace(log(-1/(-1+x))^3*x)))\\_G.C.Greubel_,2018年9月5日
%K容易,不是
%0、5
%百科全书(AT)pommard.inia.fr,2000年1月25日
%E使用新名称,例如,_Vaclav Kotesovec_,2013年10月1日
|