%I#16 2017年2月19日05:28:07

%S 1,1,1,1,2,1,1,1,3,5,1,1,5,10,15,10,15,1,1,9,22,41,52,1,17,52125196203，

%电话：1,1,331304138361057877,1,1,653401445316627763224140,1,1，

%电话：1299225261196764107523964139321147,1125725721968516416288517481384479593293608115975

%N平方数组A（N，k），N>=0，k>=0（通过反对偶读取），其中k列是k次幂的指数变换。

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

%H维基百科，<a href=“https://en.wikipedia.org/wiki/Kronecker_delta“>克罗内克三角洲</a>

%F列k的示例F:exp（exp（x）*（总和{j=0..k}斯特林2（n，j）*x^j）-增量{0，k}）。

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

%e:1,1,1,1,1，1，1。。。

%e:1,1,1,1,1，1，1。。。

%e：2、3、5、9、17、33、65。。。

%电子邮箱：5、10、22、52、130、340、922。。。

%电子邮箱：15、41、125、413、1445、5261、19685。。。

%电子邮箱：52、196、836、3916、19676、104116、572036。。。

%电话：203、1057、6277、41077、288517、2133397、16379797。。。

%p egf:=k->exp（exp（x）*add（斯特林2（k，j）*x^j，j=0..k）-`如果`（k=0，1，0））：

%p A:=（n，k）->n*系数（级数（egf（k），x，n+1），x、n）：

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

%p#第二个Maple程序：

%p A:=proc（n，k）选项记忆`如果`（n=0，1，

%p加法（二项式（n-1，j-1）*j^k*A（n-j，k），j=1..n））

%p端：

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

%tA[n_，k_]：=A[n，k]=如果[n==0，1，和[二项式[n-1，j-1]*j^k*A[n-j，k]，{j，1，n}]]；表[A[n，d-n]，{d，0，12}，{n，0，d}]//Flatten（*_Jean-François Alcover_，2017年2月19日，翻译自Maple*）

%Y列k=0-10表示：A000110、A000248、A033462、A279358、A279637、A27963、A27969、A279640、A27964、A2796、A2792和A279643。

%Y行n=0+1,2给出：A000012、A000051。

%Y主对角线给出A279644。

%Y参考A145460。

%K nonn，表

%0、6

%A _Alois P.Heinz，2016年12月16日