User Portlet User Portlet

Discussions
This gives square and cubic radical expressions, but of complex numbers: ToRadicals[RootReduce[ReIm[x /. Solve[x^7 == 1]]]]