%I#26 2022年2月16日11:03:33
%S 1,3,2,8,4,3,20,6,9,4,48,8,18,16,5112,10,30,40,25,6256,12,45,80,75,
%电话:36,7576,14,63140175126,49,81280,16,84224350336196,64,92816,
%U 18108336630756588288,81,10电话
%N A007318*A103516作为下三角矩阵。
%C三角形A103516的二项式变换。
%H G.C.Greubel,<a href=“/A135852/b135852.txt”>三角形的n=0..50行,展平</a>
%F T(n,k)=(A007318*A103516)(n,k)。
%F T(n,0)=A001792(n)。
%F和{k=0..n}T(n,k)=A099035(n+1)。
%F T(n,k)=(k+1)*二项式_G.C.Greubel_,2016年12月7日
%e三角形的前几行是:
%e 1;
%e 3,2;
%e 8、4、3;
%e第20、6、9、4条;
%e第48、8、18、16、5条;
%e 112、10、30、40、25、6;
%e 256、12、45、80、75、36、7;
%e。。。
%tT[n_,k_]:=如果[n==0,1,如果[k==0、(n+2)*2^(n-1)、(k+1)*二项式[n,k]];
%t表[t[n,k],{n,0,12},{k,0,n}]//扁平(*_G.C.格鲁贝尔,2016年12月7日*)
%o(鼠尾草)
%o定义A135852(n,k):
%o如果(n==0):返回1
%o elif(k==0):返回(n+2)*2^(n-1)
%o else:返回(k+1)*二项式(n,k)
%o压扁([[A135852(n,k)for k in(0..n)]for n in(0..12)])#_G.C.Greubel_,2022年2月7日
%Y参考A007318、A103516。
%Y参见A001792(第1列),A099035(行总和)。
%Y参考A135853(=A103516*A007318)。
%K nonn,表
%0、2
%A _Gary W.Adamson_,2007年12月1日
%2022年2月7日,G.C.Greubel_将E偏移更改为0
|