psylxa[X_] := {ColorConvert[Hue[Arg[X]/(2*Pi), 1, 1], "RGB"][[1]],
       ColorConvert[Hue[Arg[X]/(2*Pi), 1, 1], "RGB"][[2]],
       ColorConvert[Hue[Arg[X]/(2*Pi), 1, 1], "RGB"][[3]]};
tsylxe[X_] := RGBColor[X[[1]], X[[2]], X[[3]]]; a = Pi/7; r = 20;
  c = 3; Show[Table[ParametricPlot3D[{(c + Cos[t])*Cos[a*t],
          (c + Cos[t])*Sin[a*t],
    Sin[t]}, {t, -16*r*Pi + (32*Pi*r*n)/80,
          -16*r*Pi + (32*Pi*r*(n + 1))/80}, PlotRange -> All,
        Boxed -> False, Mesh -> None, Axes -> False,
        PlotStyle -> Directive[Opacity[0.2],
            tsylxe[psylxa[Exp[(-1)^(n/3)*GoldenRatio*n*I]]]]], {n, 1,
   80}],
    Background -> Black]