%I#6 2021年3月17日22:51:38

%S 1,1,3,9,321184551803730430104125834532154227289788310，

%电话：42464315185394551813950824359132813615916173470819784774，

%电话：31625442414116906860412636713642586228690381745294

%N摆三角形A122445的行和。

%H G.C.Greubel，n的表格，n=0..1000时的a（n）</a>

%p T:=proc（n，k）选项记忆；

%p如果k=0且n=0，则为1；

%p elif k<0或2*（n-1）<k然后为0；

%p elif n=2，k<3，然后为1；

%p其他T（n-1，k）+`如果`（k<n，T（n，2*n-k-1），T（n-1,k）+T（n、2*n-k-2））；

%p end if；终末程序；

%p序列（加上（T（n，k），k=0..2*n），n=0..30）；#_G.C.Greubel，2021年3月17日

%tT[n_，k_]：=t[n，k]=如果[n==0&&k==0，1，如果[k<0|k>2*（n-1），0，如果[n=2&&k<3，1，t[n-1，k]+如果[k<n，t[n；

%t表[总和[t[n，k]，{k，0,2*n}]，{n，0,30}]（*_G.C.格鲁贝尔，2021年3月17日*）

%o（鼠尾草）

%o@CachedFunction

%o定义T（n，k）：

%o如果（n==0和k==0）：返回1

%o elif（k<0或k>2*（n-1））：返回0

%o elif（n==2且k<3）：返回1

%o else：如果k<n else T（n-1，k）+T（n，2*n-k-2），则返回T

%o[sum（T（n，k）for k in（0..2*n））for n in（0..30）]#_G.C.Greubel_，2021年3月17日

%Y参见A122445、A122446、A122477、A122488、A122440、A122451。

%K nonn公司

%0、3

%A·保罗·D·汉纳，2006年9月7日