ParametricPlot3D[{Cos[4t](6+Cos[t]), Sin[4t](6+ Cos[t]), Sin[t]}, {t, 0, 100}]