%I#20 2023年9月15日05:26:00
%S 1,3,1,6,1,10,1,3,15,1,3,1,1,21,1,3,4,3,1,28,1,3,4,3,1,1,36,1,3,4,
%温度7,1,3,1,45,1,3,4,7,1,6,1,1,55,1,34,7,6,6,1,31,6,1,6,3,1,
%U 1,78,1,3,4,7,6,12,1,7,4,3,1,91,1,3,4,7,6,12,1,7,4,3,1,1105,1,3,4,7,6,12,8,7,4,3,1,3,1
%N三角形T(N,m)=A000012*A127094,按行读取。
%C考虑将A000012作为左下方的全1三角形,并通过从右侧与A127094相乘来构建矩阵乘积。
%F T(n,m)=Sum_{j=m.n.n}A00012(n,j)*A127094(j,m)=Sum_{j=m.n.n}A127094(j,m)。
%e三角形的前几行是:
%e 1;
%e 3、1、,
%e 6、1、1;
%e 10、1、3、1;
%e十五、一、三、一、一;
%e第21、1、3、4、3、1条;
%e第28、1、3、4、3、1、1条;
%e。。。
%p A127093:=过程(n,m),如果n mod m=0,则m;否则为0;fi;结束时间:
%p A127094:=程序(n,m)A127093(n,n-m+1);结束时间:
%p A127096:=过程(n,m)加(A127094(j,m),j=m.n);结束时间:
%p表示n从1到15,do表示m从1到n,do打印f(“%d,”,A127096(n,m));od:od:#R.J.Mathar_,2009年8月18日
%tT[n_,m_]:=总和[1+Mod[j,m-j-1]-Mod[1+j,m-j-1],{j,m,n}];
%t表[t[n,m],{n,1,14},{m,1,n}]//扁平(*_Jean-François Alcover_,2023年9月15日*)
%Y参见A127093、A127094、A123229、A024916(行总和)、A000203、A126988。
%K nonn,简单,tabl
%O 1,2号机组
%A _加里·W·亚当森,2007年1月5日
%E由R.J.Mathar_编辑和扩展,2009年8月18日
|