Make Lists of Graphics

Mathematica 6 allows you to treat graphics just like any other output element.

Table[SphericalPlot3D[

  1 + Sin[n \[Phi]] Sin[2 n \[Theta]]/(2 n), {\[Theta], 0, 

   Pi}, {\[Phi], 0, 2 Pi}, Axes -> None], {n, 4}]

Out[1]=