ParametricPlot3D[{Cos[t], Sin[t], 0} + {Cos[t] Sin[(2 t)/Prime[4]], Sin[t] Sin[(2 t)/Prime[4]], Cos[(2 t)/Prime[4]]}, {t, 0, Prime[4]*2Pi}]