a: =n->系数(级数(RootOf(a+a^2+a^3=(1-sqrt(1-4*x))/2,a),x,n+1),x、n):序列(a(n),n=0..40)#阿洛伊斯·海因茨2012年5月12日
#第二个Maple项目:
a: =proc(n)选项记忆`如果`(n<5,[0,1,0,1,3][n+1],
(2*(n-1)*(n-2)*(n-3)*(21574*n^2-148237*n+252420)*a(n-1
+(n-2)*(n-3)*(30485*n^3-173514*n^2+191353*n+116820)*a(n-2
-4*(n-3)*(12730*n^4-266121*n^3+1766621*n^2-4771248*n+4563630)*a(n-3
-36*(6*n-23)*(67*n-183)*(6*n-25)*(3*n-10)*(3*n-11)*a(n-4))/
(132*(67*n-250)*(n-1)*(n-2)*(n-3)*n))
结束: