The three cube roots of 8

using Mathematica

 

NSolve[x^38,x]

{{x-1.-1.73205 },{x-1.+1.73205 },{x2.}}

 

N[2*(4**p/3) ]

-1.-1.73205

 

N[2*(2**p/3) ]

-1.+1.73205

 

N[2*(0**p/3) ]

2.

 

ListPlot[Map[{Re[#],Im[#]}&,x/.Solve[x38]],PlotRange2.1,

AspectRatioAutomatic,PlotStylePointSize[0.03]]