28 Dec
2016
28 Dec
'16
3:55 p.m.
irreducible, indecomposable, nonreciprocal, solvable: In[996]:= Factor@Decompose[MinimalPolynomial[I/Sqrt[3]-(I (1/2 (9 I-2 Sqrt[3]+3 3^(1/4) Sqrt[-4 I-3 Sqrt[3]]))^(1/3))/3^(2/3)+(I+Sqrt[3])/(2^(2/3) (27 I-6 Sqrt[3]+9 3^(1/4) Sqrt[-4 I-3 Sqrt[3]])^(1/3)),x],x] Out[996]= {3-3 x+x^6} In[997]:= Factor@Decompose[MinimalPolynomial[1/12 (2-2^(2/3) (-29+3 Sqrt[321])^(1/3)+2^(2/3) (29+3 Sqrt[321])^(1/3)-2^(5/6) Sqrt[3 (7 2^(1/3)+(83-3 Sqrt[321])^(1/3)+(83+3 Sqrt[321])^(1/3))]),x],x] Out[997]= {-1-x-x^5+x^6} --rwg