%I#7 2014年3月12日16:36:47

%S 1,2,2,3,2,3,3,4,2,3,1,4,4,4，1,2,3,4,1,3,4，4,4,1，

%温度4,1,4,1,2,3,3,4,3,4],4,4,12,3,4,14,4,4],14,1,3,4，4,1,4，

%U 1,4,1,4,1,2,4,4,1,4,1,4,1,2,4,1,4,1,2,4,1,2,4,1,2,3,3,4,3,4,4,4,4,4,4,1,3,4

%N Theta（1）Pisot替代水平7：特征多项式x^4-x^3-1=0。

%获得多项式的C程序：s[1]={2，0，0，0}；s[2]={3，0，0，0}；s[3]={4，0，0，0}；s[4]={4,1,0,0}；M=表[表[计数[s[j]，i]，{i，1，n0}]，{j，1，n0}]细节[M-x*标识矩阵[n0]]

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/PisotNumber.html“>活塞编号</a>

%F 1->{2}，2->{3}，3->{4}，4->{4,1}

%ts[1]={2}；s[2]＝{3}；s[3]={4}；s[4]={4,1}；t[a_]：=连接[a，展平[s/@a]]；p[0]={1}；p[1]=t[{1}]；p[n]：=t[p[n-1]]aa=p[7]

%K nonn，未编辑

%0、2

%A _Roger L.Bagula，2005年4月15日