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））
结束：
