WolframAlpha computational knowledge AI
ParametricPlot3D[{Cos[Sqrt[3]t](4+Cos[t]), Sin[Sqrt[3]t](4+ Cos[t]), Sin[t]}, {t, 0, 100}]