Graphics3D[{{{{}, {}, {}, {}, Cuboid[{1, 5, 0}, {2, 6, 225.}], 
    Cuboid[{1, 6, 0}, {2, 7, 211.}], Cuboid[{1, 7, 0}, {2, 8, 196.}], 
    Cuboid[{1, 8, 0}, {2, 9, 154.}], Cuboid[{1, 9, 0}, {2, 10, 134.}], 
    Cuboid[{1, 10, 0}, {2, 11, 37.}]}, {{}, {}, {}, {}, 
    Cuboid[{2, 5, 0}, {3, 6, 198.}], Cuboid[{2, 6, 0}, {3, 7, 192.}], 
    Cuboid[{2, 7, 0}, {3, 8, 174.}], Cuboid[{2, 8, 0}, {3, 9, 130.}], 
    Cuboid[{2, 9, 0}, {3, 10, 90.}], {}}, 
   {{}, Cuboid[{3, 2, 0}, {4, 3, 169.}], {}, {}, {}, 
    Cuboid[{3, 6, 0}, {4, 7, 162.}], Cuboid[{3, 7, 0}, {4, 8, 144.}], {}, {}, 
    {}}, {{}, {}, {}, {}, Cuboid[{4, 5, 0}, {5, 6, 150.}], 
    Cuboid[{4, 6, 0}, {5, 7, 148.}], Cuboid[{4, 7, 0}, {5, 8, 136.}], {}, {}, 
    {}}, {{}, {}, {}, {}, Cuboid[{5, 5, 0}, {6, 6, 138.}], 
    Cuboid[{5, 6, 0}, {6, 7, 137.}], Cuboid[{5, 7, 0}, {6, 8, 125.}], {}, {}, 
    {}}, {{}, {}, {}, {}, Cuboid[{6, 5, 0}, {7, 6, 146.}], 
    Cuboid[{6, 6, 0}, {7, 7, 145.}], Cuboid[{6, 7, 0}, {7, 8, 127.}], {}, {}, 
    {}}, {{}, {}, {}, {}, Cuboid[{7, 5, 0}, {8, 6, 159.}], 
    Cuboid[{7, 6, 0}, {8, 7, 156.}], Cuboid[{7, 7, 0}, {8, 8, 139.}], {}, {}, 
    {}}, {{}, {}, {}, {}, Cuboid[{8, 5, 0}, {9, 6, 128.}], 
    Cuboid[{8, 6, 0}, {9, 7, 126.}], Cuboid[{8, 7, 0}, {9, 8, 125.}], {}, {}, 
    {}}, {{}, {}, {}, {}, Cuboid[{9, 5, 0}, {10, 6, 137.}], 
    Cuboid[{9, 6, 0}, {10, 7, 135.}], Cuboid[{9, 7, 0}, {10, 8, 126.}], {}, 
    {}, {}}, {{}, {}, {}, {}, Cuboid[{10, 5, 0}, {11, 6, 128.}], 
    Cuboid[{10, 6, 0}, {11, 7, 131.}], Cuboid[{10, 7, 0}, {11, 8, 121.}], {}, 
    {}, {}}, {{}, {}, {}, {}, Cuboid[{11, 5, 0}, {12, 6, 144.}], 
    Cuboid[{11, 6, 0}, {12, 7, 153.}], Cuboid[{11, 7, 0}, {12, 8, 138.}], {}, 
    {}, {}}, {{}, {}, {}, {}, Cuboid[{12, 5, 0}, {13, 6, 149.}], 
    Cuboid[{12, 6, 0}, {13, 7, 148.}], Cuboid[{12, 7, 0}, {13, 8, 131.}], {}, 
    {}, {}}, {{}, {}, {}, {}, Cuboid[{13, 5, 0}, {14, 6, 148.}], 
    Cuboid[{13, 6, 0}, {14, 7, 144.}], Cuboid[{13, 7, 0}, {14, 8, 126.}], 
    Cuboid[{13, 8, 0}, {14, 9, 118.}], Cuboid[{13, 9, 0}, {14, 10, 82.}], 
    {}}, {{}, {}, {}, {}, Cuboid[{14, 5, 0}, {15, 6, 147.}], 
    Cuboid[{14, 6, 0}, {15, 7, 141.}], Cuboid[{14, 7, 0}, {15, 8, 122.}], 
    Cuboid[{14, 8, 0}, {15, 9, 111.}], Cuboid[{14, 9, 0}, {15, 10, 77.}], 
    {}}, {{}, {}, {}, {}, Cuboid[{15, 5, 0}, {16, 6, 146.}], 
    Cuboid[{15, 6, 0}, {16, 7, 138.}], Cuboid[{15, 7, 0}, {16, 8, 119.}], 
    Cuboid[{15, 8, 0}, {16, 9, 106.}], Cuboid[{15, 9, 0}, {16, 10, 75.}], 
    {}}, {{}, {}, {}, {}, {}, Cuboid[{16, 6, 0}, {17, 7, 135.}], 
    Cuboid[{16, 7, 0}, {17, 8, 116.}], Cuboid[{16, 8, 0}, {17, 9, 102.}], 
    Cuboid[{16, 9, 0}, {17, 10, 73.}], {}}, 
   {{}, Cuboid[{17, 2, 0}, {18, 3, 160.}], {}, {}, {}, 
    Cuboid[{17, 6, 0}, {18, 7, 133.}], Cuboid[{17, 7, 0}, {18, 8, 114.}], 
    Cuboid[{17, 8, 0}, {18, 9, 99.}], Cuboid[{17, 9, 0}, {18, 10, 71.}], {}}, 
   {{}, {}, {}, {}, Cuboid[{18, 5, 0}, {19, 6, 145.}], 
    Cuboid[{18, 6, 0}, {19, 7, 130.}], Cuboid[{18, 7, 0}, {19, 8, 110.}], 
    Cuboid[{18, 8, 0}, {19, 9, 97.}], Cuboid[{18, 9, 0}, {19, 10, 69.}], 
    Cuboid[{18, 10, 0}, {19, 11, 32.}]}}, GrayLevel[0], 
  {{{}, {}, {}, {RGBColor[1, 0, 0], Text["Fr", {1.5, 4.5, 1.93}]}, 
    {Text["Cs", {1.5, 5.5, 226.93}], Text["Cs", {1.5, 5.5, -1.93}]}, 
    {Text["Rb", {1.5, 6.5, 212.93}], Text["Rb", {1.5, 6.5, -1.93}]}, 
    {Text["K", {1.5, 7.5, 197.93}], Text["K", {1.5, 7.5, -1.93}]}, 
    {Text["Na", {1.5, 8.5, 155.93}], Text["Na", {1.5, 8.5, -1.93}]}, 
    {Text["Li", {1.5, 9.5, 135.93}], Text["Li", {1.5, 9.5, -1.93}]}, 
    {Text["H", {1.5, 10.5, 38.93}], Text["H", {1.5, 10.5, -1.93}]}}, 
   {{}, {}, {}, {RGBColor[1, 0, 0], Text["Ra", {2.5, 4.5, 1.93}]}, 
    {Text["Ba", {2.5, 5.5, 199.93}], Text["Ba", {2.5, 5.5, -1.93}]}, 
    {Text["Sr", {2.5, 6.5, 193.93}], Text["Sr", {2.5, 6.5, -1.93}]}, 
    {Text["Ca", {2.5, 7.5, 175.93}], Text["Ca", {2.5, 7.5, -1.93}]}, 
    {Text["Mg", {2.5, 8.5, 131.93}], Text["Mg", {2.5, 8.5, -1.93}]}, 
    {Text["Be", {2.5, 9.5, 91.93}], Text["Be", {2.5, 9.5, -1.93}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Ac", {3.5, 1.5, 1.93}]}, 
    {Text["La", {3.5, 2.5, 170.93}], Text["La", {3.5, 2.5, -1.93}]}, {}, {}, 
    {}, {Text["Y", {3.5, 6.5, 163.93}], Text["Y", {3.5, 6.5, -1.93}]}, 
    {Text["Sc", {3.5, 7.5, 145.93}], Text["Sc", {3.5, 7.5, -1.93}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Th", {4.5, 1.5, 1.93}]}, 
    {RGBColor[1, 0, 0], Text["Ce", {4.5, 2.5, 1.93}]}, {}, 
    {RGBColor[1, 0, 0], Text["Rf", {4.5, 4.5, 1.93}]}, 
    {Text["Hf", {4.5, 5.5, 151.93}], Text["Hf", {4.5, 5.5, -1.93}]}, 
    {Text["Zr", {4.5, 6.5, 149.93}], Text["Zr", {4.5, 6.5, -1.93}]}, 
    {Text["Ti", {4.5, 7.5, 137.93}], Text["Ti", {4.5, 7.5, -1.93}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Pa", {5.5, 1.5, 1.93}]}, 
    {RGBColor[1, 0, 0], Text["Pr", {5.5, 2.5, 1.93}]}, {}, 
    {RGBColor[1, 0, 0], Text["Db", {5.5, 4.5, 1.93}]}, 
    {Text["Ta", {5.5, 5.5, 139.93}], Text["Ta", {5.5, 5.5, -1.93}]}, 
    {Text["Nb", {5.5, 6.5, 138.93}], Text["Nb", {5.5, 6.5, -1.93}]}, 
    {Text["V", {5.5, 7.5, 126.93}], Text["V", {5.5, 7.5, -1.93}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["U", {6.5, 1.5, 1.93}]}, 
    {RGBColor[1, 0, 0], Text["Nd", {6.5, 2.5, 1.93}]}, {}, 
    {RGBColor[1, 0, 0], Text["Sg", {6.5, 4.5, 1.93}]}, 
    {Text["W", {6.5, 5.5, 147.93}], Text["W", {6.5, 5.5, -1.93}]}, 
    {Text["Mo", {6.5, 6.5, 146.93}], Text["Mo", {6.5, 6.5, -1.93}]}, 
    {Text["Cr", {6.5, 7.5, 128.93}], Text["Cr", {6.5, 7.5, -1.93}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Np", {7.5, 1.5, 1.93}]}, 
    {RGBColor[1, 0, 0], Text["Pm", {7.5, 2.5, 1.93}]}, {}, 
    {RGBColor[1, 0, 0], Text["Bh", {7.5, 4.5, 1.93}]}, 
    {Text["Re", {7.5, 5.5, 160.93}], Text["Re", {7.5, 5.5, -1.93}]}, 
    {Text["Tc", {7.5, 6.5, 157.93}], Text["Tc", {7.5, 6.5, -1.93}]}, 
    {Text["Mn", {7.5, 7.5, 140.93}], Text["Mn", {7.5, 7.5, -1.93}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Pu", {8.5, 1.5, 1.93}]}, 
    {RGBColor[1, 0, 0], Text["Sm", {8.5, 2.5, 1.93}]}, {}, 
    {RGBColor[1, 0, 0], Text["Hs", {8.5, 4.5, 1.93}]}, 
    {Text["Os", {8.5, 5.5, 129.93}], Text["Os", {8.5, 5.5, -1.93}]}, 
    {Text["Ru", {8.5, 6.5, 127.93}], Text["Ru", {8.5, 6.5, -1.93}]}, 
    {Text["Fe", {8.5, 7.5, 126.93}], Text["Fe", {8.5, 7.5, -1.93}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Am", {9.5, 1.5, 1.93}]}, 
    {RGBColor[1, 0, 0], Text["Eu", {9.5, 2.5, 1.93}]}, {}, 
    {RGBColor[1, 0, 0], Text["Mt", {9.5, 4.5, 1.93}]}, 
    {Text["Ir", {9.5, 5.5, 138.93}], Text["Ir", {9.5, 5.5, -1.93}]}, 
    {Text["Rh", {9.5, 6.5, 136.93}], Text["Rh", {9.5, 6.5, -1.93}]}, 
    {Text["Co", {9.5, 7.5, 127.93}], Text["Co", {9.5, 7.5, -1.93}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Cm", {10.5, 1.5, 1.93}]}, 
    {RGBColor[1, 0, 0], Text["Gd", {10.5, 2.5, 1.93}]}, {}, 
    {RGBColor[1, 0, 0], Text["Ds", {10.5, 4.5, 1.93}]}, 
    {Text["Pt", {10.5, 5.5, 129.93}], Text["Pt", {10.5, 5.5, -1.93}]}, 
    {Text["Pd", {10.5, 6.5, 132.93}], Text["Pd", {10.5, 6.5, -1.93}]}, 
    {Text["Ni", {10.5, 7.5, 122.93}], Text["Ni", {10.5, 7.5, -1.93}]}, {}, 
    {}, {}}, {{RGBColor[1, 0, 0], Text["Bk", {11.5, 1.5, 1.93}]}, 
    {RGBColor[1, 0, 0], Text["Tb", {11.5, 2.5, 1.93}]}, {}, 
    {RGBColor[1, 0, 0], Text["Rg", {11.5, 4.5, 1.93}]}, 
    {Text["Au", {11.5, 5.5, 145.93}], Text["Au", {11.5, 5.5, -1.93}]}, 
    {Text["Ag", {11.5, 6.5, 154.93}], Text["Ag", {11.5, 6.5, -1.93}]}, 
    {Text["Cu", {11.5, 7.5, 139.93}], Text["Cu", {11.5, 7.5, -1.93}]}, {}, 
    {}, {}}, {{RGBColor[1, 0, 0], Text["Cf", {12.5, 1.5, 1.93}]}, 
    {RGBColor[1, 0, 0], Text["Dy", {12.5, 2.5, 1.93}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uub", {12.5, 4.5, 1.93}]}, 
    {Text["Hg", {12.5, 5.5, 150.93}], Text["Hg", {12.5, 5.5, -1.93}]}, 
    {Text["Cd", {12.5, 6.5, 149.93}], Text["Cd", {12.5, 6.5, -1.93}]}, 
    {Text["Zn", {12.5, 7.5, 132.93}], Text["Zn", {12.5, 7.5, -1.93}]}, {}, 
    {}, {}}, {{RGBColor[1, 0, 0], Text["Es", {13.5, 1.5, 1.93}]}, 
    {RGBColor[1, 0, 0], Text["Ho", {13.5, 2.5, 1.93}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uut", {13.5, 4.5, 1.93}]}, 
    {Text["Tl", {13.5, 5.5, 149.93}], Text["Tl", {13.5, 5.5, -1.93}]}, 
    {Text["In", {13.5, 6.5, 145.93}], Text["In", {13.5, 6.5, -1.93}]}, 
    {Text["Ga", {13.5, 7.5, 127.93}], Text["Ga", {13.5, 7.5, -1.93}]}, 
    {Text["Al", {13.5, 8.5, 119.93}], Text["Al", {13.5, 8.5, -1.93}]}, 
    {Text["B", {13.5, 9.5, 83.93}], Text["B", {13.5, 9.5, -1.93}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Fm", {14.5, 1.5, 1.93}]}, 
    {RGBColor[1, 0, 0], Text["Er", {14.5, 2.5, 1.93}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uuq", {14.5, 4.5, 1.93}]}, 
    {Text["Pb", {14.5, 5.5, 148.93}], Text["Pb", {14.5, 5.5, -1.93}]}, 
    {Text["Sn", {14.5, 6.5, 142.93}], Text["Sn", {14.5, 6.5, -1.93}]}, 
    {Text["Ge", {14.5, 7.5, 123.93}], Text["Ge", {14.5, 7.5, -1.93}]}, 
    {Text["Si", {14.5, 8.5, 112.93}], Text["Si", {14.5, 8.5, -1.93}]}, 
    {Text["C", {14.5, 9.5, 78.93}], Text["C", {14.5, 9.5, -1.93}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Md", {15.5, 1.5, 1.93}]}, 
    {RGBColor[1, 0, 0], Text["Tm", {15.5, 2.5, 1.93}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uup", {15.5, 4.5, 1.93}]}, 
    {Text["Bi", {15.5, 5.5, 147.93}], Text["Bi", {15.5, 5.5, -1.93}]}, 
    {Text["Sb", {15.5, 6.5, 139.93}], Text["Sb", {15.5, 6.5, -1.93}]}, 
    {Text["As", {15.5, 7.5, 120.93}], Text["As", {15.5, 7.5, -1.93}]}, 
    {Text["P", {15.5, 8.5, 107.93}], Text["P", {15.5, 8.5, -1.93}]}, 
    {Text["N", {15.5, 9.5, 76.93}], Text["N", {15.5, 9.5, -1.93}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["No", {16.5, 1.5, 1.93}]}, 
    {RGBColor[1, 0, 0], Text["Yb", {16.5, 2.5, 1.93}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uuh", {16.5, 4.5, 1.93}]}, 
    {RGBColor[1, 0, 0], Text["Po", {16.5, 5.5, 1.93}]}, 
    {Text["Te", {16.5, 6.5, 136.93}], Text["Te", {16.5, 6.5, -1.93}]}, 
    {Text["Se", {16.5, 7.5, 117.93}], Text["Se", {16.5, 7.5, -1.93}]}, 
    {Text["S", {16.5, 8.5, 103.93}], Text["S", {16.5, 8.5, -1.93}]}, 
    {Text["O", {16.5, 9.5, 74.93}], Text["O", {16.5, 9.5, -1.93}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Lr", {17.5, 1.5, 1.93}]}, 
    {Text["Lu", {17.5, 2.5, 161.93}], Text["Lu", {17.5, 2.5, -1.93}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uus", {17.5, 4.5, 1.93}]}, 
    {RGBColor[1, 0, 0], Text["At", {17.5, 5.5, 1.93}]}, 
    {Text["I", {17.5, 6.5, 134.93}], Text["I", {17.5, 6.5, -1.93}]}, 
    {Text["Br", {17.5, 7.5, 115.93}], Text["Br", {17.5, 7.5, -1.93}]}, 
    {Text["Cl", {17.5, 8.5, 100.93}], Text["Cl", {17.5, 8.5, -1.93}]}, 
    {Text["F", {17.5, 9.5, 72.93}], Text["F", {17.5, 9.5, -1.93}]}, {}}, 
   {{}, {}, {}, {RGBColor[1, 0, 0], Text["Uuo", {18.5, 4.5, 1.93}]}, 
    {Text["Rn", {18.5, 5.5, 146.93}], Text["Rn", {18.5, 5.5, -1.93}]}, 
    {Text["Xe", {18.5, 6.5, 131.93}], Text["Xe", {18.5, 6.5, -1.93}]}, 
    {Text["Kr", {18.5, 7.5, 111.93}], Text["Kr", {18.5, 7.5, -1.93}]}, 
    {Text["Ar", {18.5, 8.5, 98.93}], Text["Ar", {18.5, 8.5, -1.93}]}, 
    {Text["Ne", {18.5, 9.5, 70.93}], Text["Ne", {18.5, 9.5, -1.93}]}, 
    {Text["He", {18.5, 10.5, 33.93}], Text["He", {18.5, 10.5, -1.93}]}}}}, 
 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[1., 1., 1.]], TicksStyle -> Directive[FontFamily -> "Helvetica", 
   FontSize -> 14, RGBColor[1., 1., 1.]], PlotRange -> All, 
 Background -> RGBColor[0, 0, 0]]
