%I#5 2012年3月30日18:57:39
%S 2,5,3,9,11,4,14,26,19,50,50,55,29,6,27,85125,99,41,37,35133245,
%电话259161,55,8,44196434574476244,71,9,5427671411341176804,
%电话:351,89,10,6537511102058256221901275485109,11,774951650
%N三角形A193971的镜子。
%C A193972是通过颠倒三角形A193971的行获得的。
%F写下A193971处三角形的w(n,k)。A193972处的三角形由w(n,n-k)给出。
%e前六行:
%第2页
%e 5….3
%e 9…11…4
%e 14…26…19…5
%e 20…50…55…29…6
%e 27…85…125…99…41…7
%tz=11;
%tp[0,x_]:=1;p[n,x_]:=x*p[n-1,x]+n+1;
%tq[n,x_]:=(x+1)^n
%t p1[n_,k_]:=系数[p[n,x],x^k];
%t p1[n,0]:=p[n,x]/。x->0;
%td[n,x_]:=和[p1[n,k]*q[n-1-k,x],{k,0,n-1}]
%t h[n_]:=系数列表[d[n,x],{x}]
%t表格形式[表格[反向[h[n]],{n,0,z}]]
%t压扁[表格[反向[h[n]],{n,-1,z}]](*A193971*)
%t表格形式[表格[h[n],{n,0,z}]]
%t压扁[表[h[n],{n,-1,z}]](*A193972*)
%Y参考A193971。
%K nonn,表
%0、1
%A_Clark Kimberling_,2011年8月10日
|