ParametricPlot3D (Cos[x]Sin[ArcCos[1/Sqrt[1+Sin[x]^2]]],Sin[x]Sin[ArcCos[1/Sqrt[1+Sin[x]^2]]],Cos[ArcCos[1/Sqrt[1+Sin[x]^2]]]) on 0 < x < Pi