T059032年:=:=proc(i,j)选项记住;局部r,s,t1;如果i=0且j mod 2=0,则返回(b[j+1]);fi;如果j=0且i mod 2=1,则返回(b[i+1]);fi;如果i+j mod 2=1,则t1:=:=T059032(i+1,j-1);对于r从0到i,对于s从0到j,如果r+s<>i+j,则t1:=:=t1+T059032(r,s);fi;od:od:else t1:=:=T059032(i-1,j+1);对于r从0到i,对于s从0到j,如果r+s<>i+j,则t1:=:=t1+T059032(r,s);fi;od:od:fi;返回(t1);结束;#这就是三角形
b条:=[:= [1,序列(0,i=1..200)];A059032号:=:=n->如果n mod 2=0,则为T059032(n,0),否则为T050932(0,n);fi;编号生成变换
T059032:=proc(i,j)选项记忆;局部r,s,t1;如果i=0且j mod 2=0,则返回(b[j+1]);fi;如果j=0且i mod 2=1,则返回(b[i+1]);fi;如果i+j mod 2=1,则t1:=T059032(i+1,j-1);对于r从0到i,对于s从0到j,如果r+s<>i+j,则t1:=t1+T059032(r,s);fi;od:od:否则t1:=T059032(i-1,j+1);对于从0到i的r do,对于从0到j的s do,如果r+s<>i+j,则t1:=t1+T059032(r,s);fi;od:od:fi;返回(t1);结束;#这就是三角形
b: =[1,seq(0,i=1..200)];A059032号:=n->如果n mod 2=0,则为T059032(n,0),否则为T050932(0,n);fi;编号生成变换