%I#24 2021年2月9日08:19:34

%S 1,0,0,0,1,0,2,0,1,2,3,2,1,4,12,14,8,6,0,29,68,82,54,25,6,1206，

%电话：496546376170,48,12,017083960434929221353430,98,12,115702，

%电话：358163863226048120844052982160,20,0159737358786352325755212091941508106471998270,20,1

%无固定点的[N]置换p的N个T（N，k），使得|{j:|p（j）-j|=1}|=k；三角形T（n，k），n>=0，0<=k<=n，按行读取。

%H Alois P.Heinz，行n=0..23，扁平</a>

%F和{k=1..n}T（n，k）=A296050（n）。

%e T（4.0）=1:3412。

%e T（4,1）=2:34214312。

%e T（4,2）=3:241331424321。

%e T（4,3）=2:23414123。

%e T（4,4）=1:2143。

%e三角形T（n，k）开始：

%e 1；

%e 0，0；

%e 0，0，1；

%e 0，0，2，0；

%e 1、2、3、2、1；

%e 4、12、14、8、6、0；

%e第29、68、82、54、25、6、1页；

%e 206、496、546、376、170、48、12、0；

%e 1708、3960、4349、2922、1353、430、98、12、1；

%e 15702、35816、38632、26048、12084、4052、982、160、20、0；

%e。。。

%p b:=进程选项记忆；展开（（n->`if`（n=0，1，加法(

%p（t->`if`（t=0，0，`if`）（t=1，x，1）*b（s减去{j}））

%p）（abs（n-j）），j=s））（nops（s））

%p结束：

%pT:=n->（p->seq（系数（p，x，i），i=0..n））（b（{$1..n}））：

%p序列（T（n），n=0..12）；

%tb[s_]：=b[s]=展开[n函数[n，If[n==0，1，Sum[Function[t，If==0,0，If[t==1，x，1]*b[s~补码~{j}]][Abs[n-j]]，{j，s}]]][Length[s]]；

%t t[n_]：=PadRight[系数列表[b[范围[n]]，x]，n+1]；

%t t/@Range[0，12]//Flatten（*_Jean-François Alcover_，2021年2月9日，在_Alois P.Heinz_*之后）

%Y列k=0表示A001883。

%Y行总和表示A000166。

%Y主对角线和下对角线表示A059841、A110660。

%Y参考A296050，A320582。

%K nonn，表

%0、9

%A _Alois P.Heinz，2019年1月23日