Hi! I'm a newbie, still figuring out my way through Mathematica.

ContourPlot3D[(-1/20) x^2 z^3 - y^2 z^3 + 1/1.5*(2 x^2 + y^2 + z^2 - 1)^3 == 0,{x, -1.7, 1.7}, {y, -1.7, 1.7}, {z, -1.7, 1.7}, PlotPoints -> 100, Axes -> False,Boxed -> False, Ticks -> None,ContourStyle -> Directive[Opacity[0.9], Red],Background -> GrayLevel[.1], Mesh -> None]