%I#16 2020年4月25日14:47:42

%S 1,1,1,1,1,1,1,3,1,1,7,13,1,1,15157,63,1,1,1,3121015419321,1，

%电话：1,1,63324617177952205611683,1,1,1127580693142090291328504401，

%电话：97638078989,1,1255119178373991899123944362553521172423625545463597348639,1,1

%N格路径的数目A（N，k），从{N}^k开始，当k或任何分量等于0时结束，使用将一个或多个分量减1的步长；方阵A（n，k），n>=0，k>=0。

%H Alois P.Heinz，反对角线n=0..20，扁平</a>

%e方阵A（n，k）开始：

%e 1，1，1，1，1，1。。。

%e 1、1、3、7、15、31。。。

%e 1、1、13、157、2101、32461。。。

%e 1、1、63、5419、717795、142090291。。。

%电子邮箱1、1、321、220561、328504401、944362553521。。。

%e 1，1，1683，9763807，172924236255，7622403922836151。。。

%p s：=proc（n）选项记忆`如果`（n=0，{[]}，

%p映射（x->[[x[]，0]，[x[]，1]][]，s（n-1））

%p端：

%pb:=proc（l）选项记忆`如果`（l=[]或l[1]=0，1，

%p加（（p->`if`（p[1]<0，0，`if`）（p[1]=0，1，b（p）））

%p）（排序（l-x）），x=s（nops（l））减去{[0$nops（1）]}）

%p端：

%p A:=（n，k）->b（[n$k]）：

%p序列（序列（A（n，d-n），n=0..d），d=0..10）；

%t g[k_]：=表格[Reverse[Integer Digits[n，2]][[；；k]]，{n，2^k+1，2^（k+1）-1}]；

%tb[l_]：=b[l]=如果[l[[1]]==0，1，和[b[Sort[l-h]]，{h，g[k]}]；

%t a[n_，k_]：=如果[n==0||k==0| | k==1，1，b[表[n，{k}]]；

%t表[a[n-k，k]，{n，0，10}，{k，n，0-1}]//扁平（*_Jean-François Alcover_，2020年4月25日，在A115866*中的_Alois P.Heinz_之后）

%Y列k=0+1，2-10给出：A000012，A001850，A115866，A263162，A263163，A2163164，A26165，A263166，A262167，A263/168。

%Y行n=0-1给出：A000012，A255047。

%Y主对角线表示A263160。

%Y参见A210472、A225094、A227578、A227655、A229142、A229345、A262809。

%K nonn，表

%0、8

%A _Alois P.Heinz，2015年10月11日