解[x^3-x-1==0,x]Phi=Pisot_real_root数字=40 a=表[If[m==0、Phi、Phi*积[Prime[n],{n,1,m}]],{m,0,Digits}]b=表[Exp[Sum[n,{n、0,m}],{m,0,Digits}]c=表[Floor[a[Floor[(n+1)/2]]*b[Floor[2]]],]
求解[x^3-x-1==0,x]
Phi=Pisot_real_root
数字=40
a=表[If[m==0,Phi,Phi*乘积[Prime[n],{n,1,m}]],{m,0,数字}]
b=表[Exp[Sum[n,{n,0,m}]],{m,0,Digits}]
c=表格[楼层[a[[楼层[(n+1)/2]]*b[[楼层[n/2]]],{n,2,数字+1}]