Manipulate[SphericalPlot3D[1+Sin[n ϕ]Sin[2n θ]/(2n),{θ,0,Pi},{ϕ,0,2Pi},Axes->None,PerformanceGoal->"Quality"],{n,1,4}]