%I#11 2013年8月31日06:36:36
%S 1,2,2,3,0,3,4,0,0,4,5,0,,0,5,6,0,0,0,6,7,0,0-0,0,1,7,8,0,0.0,0,
%温度0,8,9,0,0,0,0,0,10,00,0_0,0,0-0,0.10,11,0,0+0,0,0.0,0.0,0,11,
%U 12,0,0,0-0,00,0,12,13,0,0,0,0_0,0,0.0,0.0,0,0
%N按行读取三角形:按V计算。
%C行总和为A103517,反对角线总和为A187012。
%F数字三角形T(n,k)=如果(k<=n,0^(k(n-k))*(n+1),0)
%e三角形开始
%e 1,
%e 2、2、,
%e 3、0、3、,
%e 4、0、0、4、,
%e五、零、零、五、,
%e 6、0、0、O、0、6、,
%e 7、0、0、0,0、0和7,
%e 8、0、0、0,0、0,0、8,
%e。。。
%t连接[{1},扁平[Table[Flatten[Join[{n,PadRight[{},n-2,0],n}]],{n,2,15}]](*哈维·P·戴尔,2013年3月23日*)
%o(PARI)表(nn)={表示(i=1,nn,表示(j=1,i,如果(j==1,t=i,如果);打印1(t,“,”););打印();)
%K轻松,不,tabl
%0、2
%A Paul Barry,2005年2月9日
|