%I#9 2024年2月18日09:05:32

%S 1,1，-1，-1，-2,1,0,3，-1，-1,0,2，-4,1,0,1,0，-5,5，-1，-1-1,0,0，-2,9，-6,1,1，

%T 0,0,0,7，-14,7，-1，-1,0,0,0,2，-16,20，-8,1,0,0,0，-9,30，-27,9，-1，-1，

%U 0,0,0.0，-2,25，-50,35，-10,1

%N三角形：h（N，m）=如果[m==1，N，如果[N-m+1==0，1，如果[N-m==0、1，如果[N-m>0、1、0]]]，N，m<=d。

%e{1}，

%e{1，-1}，

%e{-1，-2，1}，

%e{1，0，3，-1}，

%e{-1，0，2，-4，1}，

%e{1，0，0，-5，5，-1}，

%e{-1，0，0，-2，9，-6，1}，

%e{1，0，0，7，-14，7，-1}，

%e{-1,0,0,0，2，-16，20，-8，1}，

%e{1，0，0，0,0，-9，30，-27,9，-1}，

%e{-1，0，0，0,0，-2，25，-50，35，-10，1}

%t f[n_，m_]：=如果[m==1，n，如果[n-m+1==0，1，如果[n-m==0、1，如果[n-m>0、1、0]]]；

%t M[d_]：=表[表[f[n，M]，{n，1，d}]，{M，1，d}]；

%t a=连接[{{1}}，表[系数列表[特征多项式[M[n]，x]，{n，1，10}]]；

%t压扁[a]

%K未编辑、表格、签名、更少

%O 1,5型

%A _Roger L.Bagula_，2008年3月20日