%I#4 2012年3月30日16:48:58
%S 1,1,3,13,714873965373063980487484820162627000905067008,
%电话1422344109324151642725344062733053134859876114177777,
%电话:17868512677798173939733670198618791863322646815362822585761594590716490583972625166308889970
%N Boutrophedon变换的另一个变体应用于1,0,0。。。
%从左到右,然后从右到左交替读取三角形的行。行的初始条目是输入序列b[0]、b[1]、。。。;行的最后条目形成输出a[1]、a[1]、。。。行中的条目是同一行中的上一个条目加上新位置上方三角形中的所有条目的总和。
%e三角形开始
%e。。。。。。。。1
%e。。。。。。0...1
%e。。。。3…2…0
%e。。0...7...11.13
%e编号71.67..53..28..0
%e其中(假设)53=28+(7+11+3+2+0+0+1+1)
%p 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);结束;#这就是三角形
%p b:=[1,序列(0,i=1..200)];A059032:=n->如果n mod 2=0,则为T059032(n,0),否则为T050932(0,n);fi;编号生成变换
%Y参考A059033、A059034和A059035。
%K nonn公司
%0、3
%A _N.J.A.Sloane,2001年2月12日
|