A135306型:=过程(n,k),如果n=0,则为1;否则加上(-1)^(j-k)*二项式(n-k,j-k)*二项式(2*n-3*j,n-j+1),j=k.floor((n-1)/2);%*二项式(n,k)/n;fi;结束时间:A135307号:=进程(n)A135306型(n,0);end:对于0到30之间的n,执行printf(“%a,”,A135307号(n) );日期:#R.J.马塔尔2007年12月8日
#第二个Maple项目:
a: =proc(n)选项记忆;“如果”(n<4,[1$2,2,4][n+1],
(2*n*(n-1)*(28*n^2-56*n-3)*a(n-1
+(140*n^4-630*n^3+1063*n^2-699*n+144)*a(n-2)
-12*(n-3)*(14*n^3-42*n^2+16*n+21)*a(n-3
+23*(n-3)*(n-4)*(28*n^2-14*n-3)*a(n-4/
(n*(n+1)*(28*n^2-70*n+39))
结束: