Graphics3D[{{{{}, {}, {}, {}, Cuboid[{1, 5, 0}, {2, 6, 1.843}], 
    Cuboid[{1, 6, 0}, {2, 7, 1.46}], Cuboid[{1, 7, 0}, 
     {2, 8, 0.8280000000000001}], Cuboid[{1, 8, 0}, {2, 9, 0.927}], 
    Cuboid[{1, 9, 0}, {2, 10, 0.512}], {}}, {{}, {}, {}, {}, 
    Cuboid[{2, 5, 0}, {3, 6, 3.338}], Cuboid[{2, 6, 0}, {3, 7, 6.98}], 
    Cuboid[{2, 7, 0}, {3, 8, 1.3780000000000001}], 
    Cuboid[{2, 8, 0}, {3, 9, 1.584}], Cuboid[{2, 9, 0}, {3, 10, 1.69}], {}}, 
   {{}, Cuboid[{3, 2, 0}, {4, 3, 5.94}], {}, {}, {}, 
    Cuboid[{3, 6, 0}, {4, 7, 4.24}], Cuboid[{3, 7, 0}, 
     {4, 8, 2.8000000000000003}], {}, {}, {}}, 
   {{}, Cuboid[{4, 2, 0}, {5, 3, 6.55}], {}, {}, 
    Cuboid[{4, 5, 0}, {5, 6, 12.}], Cuboid[{4, 6, 0}, {5, 7, 5.8}], 
    Cuboid[{4, 7, 0}, {5, 8, 4.11}], {}, {}, {}}, 
   {{}, Cuboid[{5, 2, 0}, {6, 3, 6.5}], {}, {}, Cuboid[{5, 5, 0}, 
     {6, 6, 15.}], {}, Cuboid[{5, 7, 0}, {6, 8, 5.5}], {}, {}, {}}, 
   {Cuboid[{6, 1, 0}, {7, 2, 17.3}], Cuboid[{6, 2, 0}, 
     {7, 3, 6.890000000000001}], {}, {}, Cuboid[{6, 5, 0}, {7, 6, 17.6}], 
    Cuboid[{6, 6, 0}, {7, 7, 9.33}], Cuboid[{6, 7, 0}, {7, 8, 6.3}], {}, {}, 
    {}}, {{}, {}, {}, {}, Cuboid[{7, 5, 0}, {8, 6, 18.900000000000002}], {}, 
    Cuboid[{7, 7, 0}, {8, 8, 5.95}], {}, {}, {}}, 
   {Cuboid[{8, 1, 0}, {9, 2, 16.63}], Cuboid[{8, 2, 0}, {9, 3, 7.16}], {}, 
    {}, Cuboid[{8, 5, 0}, {9, 6, 20.}], Cuboid[{8, 6, 0}, {9, 7, 10.65}], 
    Cuboid[{8, 7, 0}, {9, 8, 6.98}], {}, {}, {}}, 
   {{}, Cuboid[{9, 2, 0}, {10, 3, 5.13}], {}, {}, 
    Cuboid[{9, 5, 0}, {10, 6, 19.}], Cuboid[{9, 6, 0}, 
     {10, 7, 10.700000000000001}], Cuboid[{9, 7, 0}, {10, 8, 7.75}], {}, {}, 
    {}}, {{}, Cuboid[{10, 2, 0}, {11, 3, 7.4}], {}, {}, 
    Cuboid[{10, 5, 0}, {11, 6, 19.77}], Cuboid[{10, 6, 0}, {11, 7, 10.38}], 
    Cuboid[{10, 7, 0}, {11, 8, 7.8100000000000005}], {}, {}, {}}, 
   {{}, Cuboid[{11, 2, 0}, {12, 3, 7.65}], {}, {}, 
    Cuboid[{11, 5, 0}, {12, 6, 17.31}], Cuboid[{11, 6, 0}, {12, 7, 9.32}], 
    Cuboid[{11, 7, 0}, {12, 8, 8.02}], {}, {}, {}}, 
   {{}, Cuboid[{12, 2, 0}, {13, 3, 8.370000000000001}], {}, {}, 
    Cuboid[{12, 5, 0}, {13, 6, 13.534}], Cuboid[{12, 6, 0}, {13, 7, 7.996}], 
    Cuboid[{12, 7, 0}, {13, 8, 6.57}], {}, {}, {}}, 
   {{}, Cuboid[{13, 2, 0}, {14, 3, 8.34}], {}, {}, 
    Cuboid[{13, 5, 0}, {14, 6, 11.22}], Cuboid[{13, 6, 0}, 
     {14, 7, 7.0200000000000005}], Cuboid[{13, 7, 0}, {14, 8, 6.095}], 
    Cuboid[{13, 8, 0}, {14, 9, 2.375}], Cuboid[{13, 9, 0}, {14, 10, 2.08}], 
    {}}, {{}, Cuboid[{14, 2, 0}, {15, 3, 8.86}], {}, {}, 
    Cuboid[{14, 5, 0}, {15, 6, 10.66}], Cuboid[{14, 6, 0}, {15, 7, 6.99}], 
    Cuboid[{14, 7, 0}, {15, 8, 5.6000000000000005}], 
    Cuboid[{14, 8, 0}, {15, 9, 2.57}], {}, {}}, 
   {{}, Cuboid[{15, 2, 0}, {16, 3, 8.56}], {}, {}, 
    Cuboid[{15, 5, 0}, {16, 6, 10.05}], Cuboid[{15, 6, 0}, {16, 7, 6.53}], 
    Cuboid[{15, 7, 0}, {16, 8, 5.22}], {}, {}, {}}, 
   {{}, Cuboid[{16, 2, 0}, {17, 3, 6.21}], {}, {}, {}, 
    Cuboid[{16, 6, 0}, {17, 7, 5.7}], Cuboid[{16, 7, 0}, {17, 8, 3.99}], 
    Cuboid[{16, 8, 0}, {17, 9, 1.819}], {}, {}}, 
   {{}, Cuboid[{17, 2, 0}, {18, 3, 9.3}], {}, {}, {}, {}, 
    Cuboid[{17, 7, 0}, {18, 8, 3.12}], {}, {}, {}}, 
   {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, GrayLevel[0], 
  {{{}, {}, {}, {RGBColor[1, 0, 0], Text["Fr", {1.5, 4.5, 0.19488}]}, 
    {Text["Cs", {1.5, 5.5, 2.03788}], Text["Cs", {1.5, 5.5, -0.19488}]}, 
    {Text["Rb", {1.5, 6.5, 1.65488}], Text["Rb", {1.5, 6.5, -0.19488}]}, 
    {Text["K", {1.5, 7.5, 1.02288}], Text["K", {1.5, 7.5, -0.19488}]}, 
    {Text["Na", {1.5, 8.5, 1.12188}], Text["Na", {1.5, 8.5, -0.19488}]}, 
    {Text["Li", {1.5, 9.5, 0.70688}], Text["Li", {1.5, 9.5, -0.19488}]}, 
    {RGBColor[1, 0, 0], Text["H", {1.5, 10.5, 0.19488}]}}, 
   {{}, {}, {}, {RGBColor[1, 0, 0], Text["Ra", {2.5, 4.5, 0.19488}]}, 
    {Text["Ba", {2.5, 5.5, 3.53288}], Text["Ba", {2.5, 5.5, -0.19488}]}, 
    {Text["Sr", {2.5, 6.5, 7.174880000000001}], 
     Text["Sr", {2.5, 6.5, -0.19488}]}, {Text["Ca", {2.5, 7.5, 1.57288}], 
     Text["Ca", {2.5, 7.5, -0.19488}]}, {Text["Mg", {2.5, 8.5, 1.77888}], 
     Text["Mg", {2.5, 8.5, -0.19488}]}, 
    {Text["Be", {2.5, 9.5, 1.8848799999999999}], 
     Text["Be", {2.5, 9.5, -0.19488}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Ac", {3.5, 1.5, 0.19488}]}, 
    {Text["La", {3.5, 2.5, 6.134880000000001}], 
     Text["La", {3.5, 2.5, -0.19488}]}, {}, {}, {}, 
    {Text["Y", {3.5, 6.5, 4.434880000000001}], 
     Text["Y", {3.5, 6.5, -0.19488}]}, {Text["Sc", {3.5, 7.5, 2.99488}], 
     Text["Sc", {3.5, 7.5, -0.19488}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Th", {4.5, 1.5, 0.19488}]}, 
    {Text["Ce", {4.5, 2.5, 6.74488}], Text["Ce", {4.5, 2.5, -0.19488}]}, {}, 
    {RGBColor[1, 0, 0], Text["Rf", {4.5, 4.5, 0.19488}]}, 
    {Text["Hf", {4.5, 5.5, 12.19488}], Text["Hf", {4.5, 5.5, -0.19488}]}, 
    {Text["Zr", {4.5, 6.5, 5.99488}], Text["Zr", {4.5, 6.5, -0.19488}]}, 
    {Text["Ti", {4.5, 7.5, 4.304880000000001}], 
     Text["Ti", {4.5, 7.5, -0.19488}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Pa", {5.5, 1.5, 0.19488}]}, 
    {Text["Pr", {5.5, 2.5, 6.69488}], Text["Pr", {5.5, 2.5, -0.19488}]}, {}, 
    {RGBColor[1, 0, 0], Text["Db", {5.5, 4.5, 0.19488}]}, 
    {Text["Ta", {5.5, 5.5, 15.19488}], Text["Ta", {5.5, 5.5, -0.19488}]}, 
    {RGBColor[1, 0, 0], Text["Nb", {5.5, 6.5, 0.19488}]}, 
    {Text["V", {5.5, 7.5, 5.69488}], Text["V", {5.5, 7.5, -0.19488}]}, {}, 
    {}, {}}, {{Text["U", {6.5, 1.5, 17.494880000000002}], 
     Text["U", {6.5, 1.5, -0.19488}]}, 
    {Text["Nd", {6.5, 2.5, 7.084880000000001}], 
     Text["Nd", {6.5, 2.5, -0.19488}]}, {}, {RGBColor[1, 0, 0], 
     Text["Sg", {6.5, 4.5, 0.19488}]}, 
    {Text["W", {6.5, 5.5, 17.794880000000003}], 
     Text["W", {6.5, 5.5, -0.19488}]}, {Text["Mo", {6.5, 6.5, 9.52488}], 
     Text["Mo", {6.5, 6.5, -0.19488}]}, {Text["Cr", {6.5, 7.5, 6.49488}], 
     Text["Cr", {6.5, 7.5, -0.19488}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Np", {7.5, 1.5, 0.19488}]}, 
    {RGBColor[1, 0, 0], Text["Pm", {7.5, 2.5, 0.19488}]}, {}, 
    {RGBColor[1, 0, 0], Text["Bh", {7.5, 4.5, 0.19488}]}, 
    {Text["Re", {7.5, 5.5, 19.094880000000003}], 
     Text["Re", {7.5, 5.5, -0.19488}]}, {RGBColor[1, 0, 0], 
     Text["Tc", {7.5, 6.5, 0.19488}]}, 
    {Text["Mn", {7.5, 7.5, 6.144880000000001}], 
     Text["Mn", {7.5, 7.5, -0.19488}]}, {}, {}, {}}, 
   {{Text["Pu", {8.5, 1.5, 16.82488}], Text["Pu", {8.5, 1.5, -0.19488}]}, 
    {Text["Sm", {8.5, 2.5, 7.3548800000000005}], 
     Text["Sm", {8.5, 2.5, -0.19488}]}, {}, {RGBColor[1, 0, 0], 
     Text["Hs", {8.5, 4.5, 0.19488}]}, {Text["Os", {8.5, 5.5, 20.19488}], 
     Text["Os", {8.5, 5.5, -0.19488}]}, {Text["Ru", {8.5, 6.5, 10.84488}], 
     Text["Ru", {8.5, 6.5, -0.19488}]}, 
    {Text["Fe", {8.5, 7.5, 7.174880000000001}], 
     Text["Fe", {8.5, 7.5, -0.19488}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Am", {9.5, 1.5, 0.19488}]}, 
    {Text["Eu", {9.5, 2.5, 5.32488}], Text["Eu", {9.5, 2.5, -0.19488}]}, {}, 
    {RGBColor[1, 0, 0], Text["Mt", {9.5, 4.5, 0.19488}]}, 
    {Text["Ir", {9.5, 5.5, 19.19488}], Text["Ir", {9.5, 5.5, -0.19488}]}, 
    {Text["Rh", {9.5, 6.5, 10.89488}], Text["Rh", {9.5, 6.5, -0.19488}]}, 
    {Text["Co", {9.5, 7.5, 7.94488}], Text["Co", {9.5, 7.5, -0.19488}]}, {}, 
    {}, {}}, {{RGBColor[1, 0, 0], Text["Cm", {10.5, 1.5, 0.19488}]}, 
    {Text["Gd", {10.5, 2.5, 7.594880000000001}], 
     Text["Gd", {10.5, 2.5, -0.19488}]}, {}, {RGBColor[1, 0, 0], 
     Text["Ds", {10.5, 4.5, 0.19488}]}, {Text["Pt", {10.5, 5.5, 19.96488}], 
     Text["Pt", {10.5, 5.5, -0.19488}]}, {Text["Pd", {10.5, 6.5, 10.57488}], 
     Text["Pd", {10.5, 6.5, -0.19488}]}, {Text["Ni", {10.5, 7.5, 8.00488}], 
     Text["Ni", {10.5, 7.5, -0.19488}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Bk", {11.5, 1.5, 0.19488}]}, 
    {Text["Tb", {11.5, 2.5, 7.844880000000001}], 
     Text["Tb", {11.5, 2.5, -0.19488}]}, {}, {RGBColor[1, 0, 0], 
     Text["Rg", {11.5, 4.5, 0.19488}]}, {Text["Au", {11.5, 5.5, 17.50488}], 
     Text["Au", {11.5, 5.5, -0.19488}]}, {Text["Ag", {11.5, 6.5, 9.51488}], 
     Text["Ag", {11.5, 6.5, -0.19488}]}, 
    {Text["Cu", {11.5, 7.5, 8.214879999999999}], 
     Text["Cu", {11.5, 7.5, -0.19488}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Cf", {12.5, 1.5, 0.19488}]}, 
    {Text["Dy", {12.5, 2.5, 8.56488}], Text["Dy", {12.5, 2.5, -0.19488}]}, 
    {}, {RGBColor[1, 0, 0], Text["Uub", {12.5, 4.5, 0.19488}]}, 
    {Text["Hg", {12.5, 5.5, 13.72888}], Text["Hg", {12.5, 5.5, -0.19488}]}, 
    {Text["Cd", {12.5, 6.5, 8.19088}], Text["Cd", {12.5, 6.5, -0.19488}]}, 
    {Text["Zn", {12.5, 7.5, 6.764880000000001}], 
     Text["Zn", {12.5, 7.5, -0.19488}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Es", {13.5, 1.5, 0.19488}]}, 
    {Text["Ho", {13.5, 2.5, 8.53488}], Text["Ho", {13.5, 2.5, -0.19488}]}, 
    {}, {RGBColor[1, 0, 0], Text["Uut", {13.5, 4.5, 0.19488}]}, 
    {Text["Tl", {13.5, 5.5, 11.41488}], Text["Tl", {13.5, 5.5, -0.19488}]}, 
    {Text["In", {13.5, 6.5, 7.214880000000001}], 
     Text["In", {13.5, 6.5, -0.19488}]}, {Text["Ga", {13.5, 7.5, 6.28988}], 
     Text["Ga", {13.5, 7.5, -0.19488}]}, {Text["Al", {13.5, 8.5, 2.56988}], 
     Text["Al", {13.5, 8.5, -0.19488}]}, {Text["B", {13.5, 9.5, 2.27488}], 
     Text["B", {13.5, 9.5, -0.19488}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Fm", {14.5, 1.5, 0.19488}]}, 
    {Text["Er", {14.5, 2.5, 9.054879999999999}], 
     Text["Er", {14.5, 2.5, -0.19488}]}, {}, {RGBColor[1, 0, 0], 
     Text["Uuq", {14.5, 4.5, 0.19488}]}, {Text["Pb", {14.5, 5.5, 10.85488}], 
     Text["Pb", {14.5, 5.5, -0.19488}]}, 
    {Text["Sn", {14.5, 6.5, 7.184880000000001}], 
     Text["Sn", {14.5, 6.5, -0.19488}]}, 
    {Text["Ge", {14.5, 7.5, 5.794880000000001}], 
     Text["Ge", {14.5, 7.5, -0.19488}]}, {Text["Si", {14.5, 8.5, 2.76488}], 
     Text["Si", {14.5, 8.5, -0.19488}]}, {RGBColor[1, 0, 0], 
     Text["C", {14.5, 9.5, 0.19488}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Md", {15.5, 1.5, 0.19488}]}, 
    {Text["Tm", {15.5, 2.5, 8.75488}], Text["Tm", {15.5, 2.5, -0.19488}]}, 
    {}, {RGBColor[1, 0, 0], Text["Uup", {15.5, 4.5, 0.19488}]}, 
    {Text["Bi", {15.5, 5.5, 10.24488}], Text["Bi", {15.5, 5.5, -0.19488}]}, 
    {Text["Sb", {15.5, 6.5, 6.724880000000001}], 
     Text["Sb", {15.5, 6.5, -0.19488}]}, {Text["As", {15.5, 7.5, 5.41488}], 
     Text["As", {15.5, 7.5, -0.19488}]}, {RGBColor[1, 0, 0], 
     Text["P", {15.5, 8.5, 0.19488}]}, {RGBColor[1, 0, 0], 
     Text["N", {15.5, 9.5, 0.19488}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["No", {16.5, 1.5, 0.19488}]}, 
    {Text["Yb", {16.5, 2.5, 6.40488}], Text["Yb", {16.5, 2.5, -0.19488}]}, 
    {}, {RGBColor[1, 0, 0], Text["Uuh", {16.5, 4.5, 0.19488}]}, 
    {RGBColor[1, 0, 0], Text["Po", {16.5, 5.5, 0.19488}]}, 
    {Text["Te", {16.5, 6.5, 5.894880000000001}], 
     Text["Te", {16.5, 6.5, -0.19488}]}, 
    {Text["Se", {16.5, 7.5, 4.184880000000001}], 
     Text["Se", {16.5, 7.5, -0.19488}]}, {Text["S", {16.5, 8.5, 2.01388}], 
     Text["S", {16.5, 8.5, -0.19488}]}, {RGBColor[1, 0, 0], 
     Text["O", {16.5, 9.5, 0.19488}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Lr", {17.5, 1.5, 0.19488}]}, 
    {Text["Lu", {17.5, 2.5, 9.49488}], Text["Lu", {17.5, 2.5, -0.19488}]}, 
    {}, {RGBColor[1, 0, 0], Text["Uus", {17.5, 4.5, 0.19488}]}, 
    {RGBColor[1, 0, 0], Text["At", {17.5, 5.5, 0.19488}]}, 
    {RGBColor[1, 0, 0], Text["I", {17.5, 6.5, 0.19488}]}, 
    {Text["Br", {17.5, 7.5, 3.31488}], Text["Br", {17.5, 7.5, -0.19488}]}, 
    {RGBColor[1, 0, 0], Text["Cl", {17.5, 8.5, 0.19488}]}, 
    {RGBColor[1, 0, 0], Text["F", {17.5, 9.5, 0.19488}]}, {}}, 
   {{}, {}, {}, {RGBColor[1, 0, 0], Text["Uuo", {18.5, 4.5, 0.19488}]}, 
    {RGBColor[1, 0, 0], Text["Rn", {18.5, 5.5, 0.19488}]}, 
    {RGBColor[1, 0, 0], Text["Xe", {18.5, 6.5, 0.19488}]}, 
    {RGBColor[1, 0, 0], Text["Kr", {18.5, 7.5, 0.19488}]}, 
    {RGBColor[1, 0, 0], Text["Ar", {18.5, 8.5, 0.19488}]}, 
    {RGBColor[1, 0, 0], Text["Ne", {18.5, 9.5, 0.19488}]}, 
    {RGBColor[1, 0, 0], Text["He", {18.5, 10.5, 0.19488}]}}}}, 
 ViewPoint -> {3, -4, 15}, BoxRatios -> {2, 1, 1}, ImageSize -> 500, 
 SphericalRegion -> True, Boxed -> False, Axes -> {False, False, True}, 
 Ticks -> {None, None, Automatic}, 
 BoxStyle -> Directive[FontFamily -> "Helvetica", FontSize -> 14, 
   RGBColor[0, 0, 0]], TicksStyle -> Directive[FontFamily -> "Helvetica", 
   FontSize -> 14, RGBColor[0, 0, 0]], PlotRange -> All, 
 Background -> RGBColor[0.6666666666666666, 0.6666666666666666, 
   0.6666666666666666]]
