%I#19 2022年3月25日03:03:32
%S 1,2,1,4,3,1,8,7,4,1,15,14,10,5,1,26,25,20,13,6,1,42,41,35,26,16,7,1,
%电话64,63,56,45,32,19,8,1,93,92,84,71,55,38,22,9,1130129120105,86,65,
%U 44,25,10,1176175165148126101,75,50,28,11,1号
%N A077028*A000012,即Rascal三角形(作为矩阵)乘以1的下三角矩阵(包括1的主对角线)。
%C左边框=A000125。
%C行总和=A134393。
%F A077028*A000012作为无限下三角矩阵。
%F按行读取三角形,部分和从A077028右侧开始。
%e三角形的前几行:
%e 1;
%e 2,1;
%e 4、3、1;
%e第8、7、4、1条;
%e第15、14、10、5、1条;
%e第26、25、20、13、6、1条;
%e第42、41、35、26、16、7、1条;
%e。。。
%t行=11;
%t R[n_,k_]/;k<=n:=k(n-k)+1;R[0,0]=1;R[_,_]=0;
%t MR=表格[R[n,k],{n,0,rows-1},{k,0,rouws-1}];
%t MB=表[Boole[0<=k<=n],{n,0,rows-1},{k,0,rows-1}];
%t t=MR.MB;
%t表[t[[n,k]],{n,1,rows},{k,1,n}]//扁平(*_Jean-François Alcover_,2020年4月1日*)
%Y参考A077028、A000125、A134393。
%K nonn,表
%O 1,2号机组
%A _加里·W·亚当森,2007年10月23日
%E字体由_Jean-François Alcover_更正,2020年4月1日
|