%I#5 2012年3月30日18:57:38
%S 1,1,1,4,3,1,16,9,6,16,27,27,9,1256,81108,54,12,11024243405,
%电话:270,90,15,1409672914581215540135,18,11638421875103,
%电话:2835945189,21,165536656117496204121360856701512252,24,1262144
%N三角形镜子A193794。
%C A193795是通过颠倒三角形A193794的行获得的。
%F写下A193794处三角形的w(n,k)。A193795处的三角形由w(n,n-k)表示。
%e前六行:
%e 1个
%e 1…..1
%e 4…..3….1
%e 16….9….6….1
%e 64…27…27…9…1
%e 256…81…108…54…12…1
%t z=9;a=3;b=1;
%t p[n,x_]:=(a*x+b)^n
%tq[n,x_]:=1+x^n;q[n,0]:=q[n,x]/。x->0;
%t t[n_,k_]:=系数[p[n,x],x^k];t[n,0]:=p[n,x]/。x->0;
%tw[n,x_]:=和[t[n,k]*q[n+1-k,x],{k,0,n}];w[-1,x_]:=1
%t g[n_]:=系数列表[w[n,x],{x}]
%t表格形式[表格[反向[g[n]],{n,-1,z}]]
%t压扁[表[反向[g[n]],{n,-1,z}]](*A193794*)
%t表格形式[表格[g[n],{n,-1,z}]]
%t压扁[表[g[n],{n,-1,z}]](*A193795*)
%Y参考A193794。
%K nonn,表
%0、4
%A_Clark Kimberling_,2011年8月5日
|