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,seq(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);对于r从0到i,对于s从0到j,如果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;编号生成变换