h[t_]=t/(1-t)

k[t_]=h[t^2]

p1=ParametricPlot3D[{(4+t*Cos[u])*Cos[k[t]],(4+t*Cos[u])*Sin[k[t]],t*Sin[u]},{u,0,2Pi},{t,0,0.85},PlotStyle->Opacity[0.5]]

p2=ParametricPlot3D[{(4+t*Cos[u])*Cos[k[t]],(4+t*Cos[u])*Sin[k[t]],t*Sin[u]},{u,0,2Pi},{t,0.9,0.95},PlotStyle->Opacity[0.7]]

Show[p1,p2]