The (3,5) Torus Knot Wrapped Around a Torus

We can show the (3,5) torus knot wrapped around a torus as follows.

torus = TubePlotFrenet[{Cos[t], Sin[t], 0}, {t, 0, 2Pi}, .4, 
    DisplayFunction -> Identity];
noEdgeTorus = 
    torus /. Graphics3D[x_, y___] :> Graphics3D[Prepend[x, EdgeForm[]], y];
torusKnot35 = 
    TorusKnotPlot[3, 5, DisplayFunction -> Identity, 
    PlotPoints -> {128, 16}];
Show[{noEdgeTorus, torusKnot35}, 
    DisplayFunction -> $DisplayFunction, Boxed -> False, Axes -> False,
    LightSources -> {{{1., 0., 1.}, RGBColor[1, 0, 0]}, {{1., 1., 1.}, 
        RGBColor[0, 1, 0]}, {{0., 1., 1.}, 
        RGBColor[0, 0, 1]}, {{-1., 0., -1.}, 
        RGBColor[1, 0, 0]}, {{-1., -1., -1.}, 
        RGBColor[0, 1, 0]}, {{0., -1., -1.}, RGBColor[0, 0, 1]}}]