In[]:=
Graphics3D[With[{c=ColorData["BrightBands"]},{Opacity[.5],Specularity[White,20],c[0],Sphere[],Table[{c[i/7],Sphere[{Cos[2Pii/6],0,Sin[2Pii/6]},1]},{i,6}],Table[{c[i/7],Sphere[{Sqrt[3]*Cos[(2i+1)Pi/6],0,Sqrt[3]*Sin[(2i+1)Pi/6]},1]},{i,6}],Table[{c[i/7],Sphere[{Sqrt[5]*Cos[(2i)Pi/6],0,Sqrt[5]*Sin[(2i)Pi/6]},1]},{i,6}]}],Lighting"Neutral",BoxedFalse,ViewPointFront]
Out[]=
