%I#6 2013年5月19日23:59:41
%S 1,1,3,1,6,1,1,9,9,1,12,22,12,1,15,40,40,15,11,18,63,92,63,18,1,
%电话:1,21,91175175,91,21,1,1,2424296390296124,24,1,1,27162462,
%电话:756756462162,27,1,1,30205680133016521330680205,30,1
%N三角形t(N,k):(1+x)^N+2*N*x*(1+x)^(N-2)的系数[x^k],在行N,列k中。
%C行总和以A001792表示。
%e 1;
%e 1,3;
%e 1、6、1;
%e 1、9、9、1;
%e 1、12、22、12、1;
%e 1、15、40、40、15、1;
%e 1、18、63、92、63、18、1;
%e 1、21、91、175、175,91、21、1;
%e 1、24、124、296、390、296和124、24、1;
%e编号1、27、162、462、756、756和462、162和27、1;
%e 1、30、205、680、1330、1652、1330,680、205,30,1;
%p A177375:=进程(n,k)
%p(1+x)^n+2*n*x*(1+x)^(n-2);
%p系数(%,x=0,k)
%p end程序:#_R.J.Mathar_,2013年5月19日
%tp[x,0,q_]:=1;p[x,1,q_]:=x+1;
%tp[x,n,q_]:=p[x,n,q]=(1+x)^n+2*q*n*x*(1+x)^(n-2);
%t表[展平[表[系数列表[p[x,n,q],x],{n,0,10}]],{q,1,10}]
%Y参考A162246
%K nonn,表
%0、3
%A _Roger L.Bagula,2010年5月7日
|