%I#8 2022年12月19日15:06:14

%S 1，-1,2，-1，-1,0,3,0，-1，-1，-1,1,3,1，-1，-1-，-1,1,0，-1,3，-1,0，-1-，

%T-3，-1,5，-1，-3,2,1，-1

%N无意义序列。

%e{1}，

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

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

%e｛-1，-1，1，3，1，-1，-1｝，

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

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

%ta0={1，x-1，x^2-x-1，x ^3-x-1，x ^4-x ^3-1，x ^5-x ^4-x^3+x ^2-1}；

%t b0=表[系数列表[ExpandAll[a0[[n]]*x^（n-1）*（a0[n]/.x->1/x）]，x]，{n，1，6}]；

%t表格[b0]；

%t压扁[b0]

%K符号，tabf，未编辑，较少，fini，完整

%0、3

%A _Roger L.Bagula，2008年11月8日