options = {Mesh -> None, Boxed -> False, Axes -> True,  AxesOrigin -> {0, 0, 0}, 
       PlotStyle -> Directive[Opacity[.6], Specularity[White, 20]], ImageSize -> 500};
    SphericalPlot3D[{1, 2, 3}, {t, 0, Pi}, {p , 0, 3 Pi/2},  Evaluate@options]

![enter image description here][1]


  [1]: https://i.sstatic.net/HEZtz.png

or

    ParametricPlot3D[{Cos[u] Sin[v], Sin[u] Sin[v], Cos[v]} # & /@ {1, 2, 3}, 
      {v, 0, Pi}, {u, 0, 2 Pi}, 
      Evaluate@options, RegionFunction -> Function[{x, y}, x y > 0 || y > 0]]

or

    ContourPlot3D[x^2 + y^2 + z^2, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, 
       Contours -> {1, 2, 3}, Evaluate[options /. PlotStyle -> ContourStyle],
       BoundaryStyle -> None, RegionFunction -> Function[{x, y}, x y > 0 || y > 0]]

or

    Show[RevolutionPlot3D[{# Cos[t], # Sin[t]}, {t, -Pi/2, Pi/2}, {v, Pi/2, 2 Pi},
         Evaluate@options] & /@ {3, 2, 1}]