ParametricPlot3D[{Cos[2t](3+Cos[t]), Sin[2t](3+ Cos[t]), Sin[t]}, {t, 0, 100}]