Graphics3D[{{{{}, {}, {}, {}, Cuboid[{1, 5, 0}, {2, 6, 28.44}], 
    Cuboid[{1, 6, 0}, {2, 7, 39.31}], Cuboid[{1, 7, 0}, {2, 8, 63.38}], 
    Cuboid[{1, 8, 0}, {2, 9, 97.72}], Cuboid[{1, 9, 0}, {2, 10, 180.54}], 
    Cuboid[{1, 10, 0}, {2, 11, -259.14}]}, 
   {{}, {}, {}, Cuboid[{2, 4, 0}, {3, 5, 700.}], 
    Cuboid[{2, 5, 0}, {3, 6, 727.}], Cuboid[{2, 6, 0}, {3, 7, 777.}], 
    Cuboid[{2, 7, 0}, {3, 8, 842.}], Cuboid[{2, 8, 0}, {3, 9, 650.}], 
    Cuboid[{2, 9, 0}, {3, 10, 1287.}], {}}, 
   {Cuboid[{3, 1, 0}, {4, 2, 1050.}], Cuboid[{3, 2, 0}, {4, 3, 920.}], {}, 
    {}, {}, Cuboid[{3, 6, 0}, {4, 7, 1526.}], Cuboid[{3, 7, 0}, 
     {4, 8, 1541.}], {}, {}, {}}, {Cuboid[{4, 1, 0}, {5, 2, 1750.}], 
    Cuboid[{4, 2, 0}, {5, 3, 798.}], {}, {}, Cuboid[{4, 5, 0}, 
     {5, 6, 2233.}], Cuboid[{4, 6, 0}, {5, 7, 1855.}], 
    Cuboid[{4, 7, 0}, {5, 8, 1668.}], {}, {}, {}}, 
   {Cuboid[{5, 1, 0}, {6, 2, 1572.}], Cuboid[{5, 2, 0}, {6, 3, 931.}], {}, 
    {}, Cuboid[{5, 5, 0}, {6, 6, 3017.}], Cuboid[{5, 6, 0}, {6, 7, 2477.}], 
    Cuboid[{5, 7, 0}, {6, 8, 1910.}], {}, {}, {}}, 
   {Cuboid[{6, 1, 0}, {7, 2, 1135.}], Cuboid[{6, 2, 0}, {7, 3, 1021.}], {}, 
    {}, Cuboid[{6, 5, 0}, {7, 6, 3422.}], Cuboid[{6, 6, 0}, {7, 7, 2623.}], 
    Cuboid[{6, 7, 0}, {7, 8, 1907.}], {}, {}, {}}, 
   {Cuboid[{7, 1, 0}, {8, 2, 644.}], Cuboid[{7, 2, 0}, {8, 3, 1100.}], {}, 
    {}, Cuboid[{7, 5, 0}, {8, 6, 3186.}], Cuboid[{7, 6, 0}, {8, 7, 2157.}], 
    Cuboid[{7, 7, 0}, {8, 8, 1246.}], {}, {}, {}}, 
   {Cuboid[{8, 1, 0}, {9, 2, 640.}], Cuboid[{8, 2, 0}, {9, 3, 1072.}], {}, 
    {}, Cuboid[{8, 5, 0}, {9, 6, 3033.}], Cuboid[{8, 6, 0}, {9, 7, 2334.}], 
    Cuboid[{8, 7, 0}, {9, 8, 1538.}], {}, {}, {}}, 
   {Cuboid[{9, 1, 0}, {10, 2, 1176.}], Cuboid[{9, 2, 0}, {10, 3, 822.}], {}, 
    {}, Cuboid[{9, 5, 0}, {10, 6, 2466.}], Cuboid[{9, 6, 0}, {10, 7, 1964.}], 
    Cuboid[{9, 7, 0}, {10, 8, 1495.}], {}, {}, {}}, 
   {Cuboid[{10, 1, 0}, {11, 2, 1345.}], Cuboid[{10, 2, 0}, {11, 3, 1313.}], 
    {}, {}, Cuboid[{10, 5, 0}, {11, 6, 1768.3}], 
    Cuboid[{10, 6, 0}, {11, 7, 1554.9}], Cuboid[{10, 7, 0}, {11, 8, 1455.}], 
    {}, {}, {}}, {Cuboid[{11, 1, 0}, {12, 2, 1050.}], 
    Cuboid[{11, 2, 0}, {12, 3, 1356.}], {}, {}, Cuboid[{11, 5, 0}, 
     {12, 6, 1064.18}], Cuboid[{11, 6, 0}, {12, 7, 961.78}], 
    Cuboid[{11, 7, 0}, {12, 8, 1084.62}], {}, {}, {}}, 
   {Cuboid[{12, 1, 0}, {13, 2, 900.}], Cuboid[{12, 2, 0}, {13, 3, 1412.}], 
    {}, {}, Cuboid[{12, 5, 0}, {13, 6, -38.83}], 
    Cuboid[{12, 6, 0}, {13, 7, 321.07}], Cuboid[{12, 7, 0}, {13, 8, 419.53}], 
    {}, {}, {}}, {Cuboid[{13, 1, 0}, {14, 2, 860.}], 
    Cuboid[{13, 2, 0}, {14, 3, 1474.}], {}, {}, Cuboid[{13, 5, 0}, 
     {14, 6, 304.}], Cuboid[{13, 6, 0}, {14, 7, 156.6}], 
    Cuboid[{13, 7, 0}, {14, 8, 29.76}], Cuboid[{13, 8, 0}, {14, 9, 660.32}], 
    Cuboid[{13, 9, 0}, {14, 10, 2075.}], {}}, 
   {Cuboid[{14, 1, 0}, {15, 2, 1527.}], Cuboid[{14, 2, 0}, {15, 3, 1497.}], 
    {}, {}, Cuboid[{14, 5, 0}, {15, 6, 327.46}], 
    Cuboid[{14, 6, 0}, {15, 7, 231.93}], Cuboid[{14, 7, 0}, {15, 8, 938.3}], 
    Cuboid[{14, 8, 0}, {15, 9, 1414.}], Cuboid[{14, 9, 0}, {15, 10, 3550.}], 
    {}}, {Cuboid[{15, 1, 0}, {16, 2, 827.}], Cuboid[{15, 2, 0}, 
     {16, 3, 1545.}], {}, {}, Cuboid[{15, 5, 0}, {16, 6, 271.3}], 
    Cuboid[{15, 6, 0}, {16, 7, 630.63}], Cuboid[{15, 7, 0}, {16, 8, 817.}], 
    Cuboid[{15, 8, 0}, {16, 9, 44.2}], Cuboid[{15, 9, 0}, {16, 10, -210.1}], 
    {}}, {Cuboid[{16, 1, 0}, {17, 2, 827.}], Cuboid[{16, 2, 0}, 
     {17, 3, 819.}], {}, {}, Cuboid[{16, 5, 0}, {17, 6, 254.}], 
    Cuboid[{16, 6, 0}, {17, 7, 449.51}], Cuboid[{16, 7, 0}, {17, 8, 221.}], 
    Cuboid[{16, 8, 0}, {17, 9, 115.21}], Cuboid[{16, 9, 0}, 
     {17, 10, -218.3}], {}}, {Cuboid[{17, 1, 0}, {18, 2, 1627.}], 
    Cuboid[{17, 2, 0}, {18, 3, 1663.}], {}, {}, Cuboid[{17, 5, 0}, 
     {18, 6, 302.}], Cuboid[{17, 6, 0}, {18, 7, 113.7}], 
    Cuboid[{17, 7, 0}, {18, 8, -7.3}], Cuboid[{17, 8, 0}, {18, 9, -101.5}], 
    Cuboid[{17, 9, 0}, {18, 10, -219.6}], {}}, 
   {{}, {}, {}, {}, Cuboid[{18, 5, 0}, {19, 6, -71.}], 
    Cuboid[{18, 6, 0}, {19, 7, -111.8}], Cuboid[{18, 7, 0}, 
     {19, 8, -157.36}], Cuboid[{18, 8, 0}, {19, 9, -189.3}], 
    Cuboid[{18, 9, 0}, {19, 10, -248.59}], {}}}, GrayLevel[0], 
  {{{}, {}, {}, {RGBColor[1, 0, 0], Text["Fr", {1.5, 4.5, 38.0914}]}, 
    {Text["Cs", {1.5, 5.5, 66.5314}], Text["Cs", {1.5, 5.5, -38.0914}]}, 
    {Text["Rb", {1.5, 6.5, 77.4014}], Text["Rb", {1.5, 6.5, -38.0914}]}, 
    {Text["K", {1.5, 7.5, 101.4714}], Text["K", {1.5, 7.5, -38.0914}]}, 
    {Text["Na", {1.5, 8.5, 135.8114}], Text["Na", {1.5, 8.5, -38.0914}]}, 
    {Text["Li", {1.5, 9.5, 218.63139999999999}], 
     Text["Li", {1.5, 9.5, -38.0914}]}, {Text["H", {1.5, 10.5, -297.2314}], 
     Text["H", {1.5, 10.5, 38.0914}]}}, 
   {{}, {}, {}, {Text["Ra", {2.5, 4.5, 738.0914}], 
     Text["Ra", {2.5, 4.5, -38.0914}]}, {Text["Ba", {2.5, 5.5, 765.0914}], 
     Text["Ba", {2.5, 5.5, -38.0914}]}, {Text["Sr", {2.5, 6.5, 815.0914}], 
     Text["Sr", {2.5, 6.5, -38.0914}]}, {Text["Ca", {2.5, 7.5, 880.0914}], 
     Text["Ca", {2.5, 7.5, -38.0914}]}, {Text["Mg", {2.5, 8.5, 688.0914}], 
     Text["Mg", {2.5, 8.5, -38.0914}]}, {Text["Be", {2.5, 9.5, 1325.0914}], 
     Text["Be", {2.5, 9.5, -38.0914}]}, {}}, 
   {{Text["Ac", {3.5, 1.5, 1088.0914}], Text["Ac", {3.5, 1.5, -38.0914}]}, 
    {Text["La", {3.5, 2.5, 958.0914}], Text["La", {3.5, 2.5, -38.0914}]}, {}, 
    {}, {}, {Text["Y", {3.5, 6.5, 1564.0914}], 
     Text["Y", {3.5, 6.5, -38.0914}]}, {Text["Sc", {3.5, 7.5, 1579.0914}], 
     Text["Sc", {3.5, 7.5, -38.0914}]}, {}, {}, {}}, 
   {{Text["Th", {4.5, 1.5, 1788.0914}], Text["Th", {4.5, 1.5, -38.0914}]}, 
    {Text["Ce", {4.5, 2.5, 836.0914}], Text["Ce", {4.5, 2.5, -38.0914}]}, {}, 
    {RGBColor[1, 0, 0], Text["Rf", {4.5, 4.5, 38.0914}]}, 
    {Text["Hf", {4.5, 5.5, 2271.0914}], Text["Hf", {4.5, 5.5, -38.0914}]}, 
    {Text["Zr", {4.5, 6.5, 1893.0914}], Text["Zr", {4.5, 6.5, -38.0914}]}, 
    {Text["Ti", {4.5, 7.5, 1706.0914}], Text["Ti", {4.5, 7.5, -38.0914}]}, 
    {}, {}, {}}, {{Text["Pa", {5.5, 1.5, 1610.0914}], 
     Text["Pa", {5.5, 1.5, -38.0914}]}, {Text["Pr", {5.5, 2.5, 969.0914}], 
     Text["Pr", {5.5, 2.5, -38.0914}]}, {}, {RGBColor[1, 0, 0], 
     Text["Db", {5.5, 4.5, 38.0914}]}, {Text["Ta", {5.5, 5.5, 3055.0914}], 
     Text["Ta", {5.5, 5.5, -38.0914}]}, {Text["Nb", {5.5, 6.5, 2515.0914}], 
     Text["Nb", {5.5, 6.5, -38.0914}]}, {Text["V", {5.5, 7.5, 1948.0914}], 
     Text["V", {5.5, 7.5, -38.0914}]}, {}, {}, {}}, 
   {{Text["U", {6.5, 1.5, 1173.0914}], Text["U", {6.5, 1.5, -38.0914}]}, 
    {Text["Nd", {6.5, 2.5, 1059.0914}], Text["Nd", {6.5, 2.5, -38.0914}]}, 
    {}, {RGBColor[1, 0, 0], Text["Sg", {6.5, 4.5, 38.0914}]}, 
    {Text["W", {6.5, 5.5, 3460.0914}], Text["W", {6.5, 5.5, -38.0914}]}, 
    {Text["Mo", {6.5, 6.5, 2661.0914}], Text["Mo", {6.5, 6.5, -38.0914}]}, 
    {Text["Cr", {6.5, 7.5, 1945.0914}], Text["Cr", {6.5, 7.5, -38.0914}]}, 
    {}, {}, {}}, {{Text["Np", {7.5, 1.5, 682.0914}], 
     Text["Np", {7.5, 1.5, -38.0914}]}, {Text["Pm", {7.5, 2.5, 1138.0914}], 
     Text["Pm", {7.5, 2.5, -38.0914}]}, {}, {RGBColor[1, 0, 0], 
     Text["Bh", {7.5, 4.5, 38.0914}]}, {Text["Re", {7.5, 5.5, 3224.0914}], 
     Text["Re", {7.5, 5.5, -38.0914}]}, {Text["Tc", {7.5, 6.5, 2195.0914}], 
     Text["Tc", {7.5, 6.5, -38.0914}]}, {Text["Mn", {7.5, 7.5, 1284.0914}], 
     Text["Mn", {7.5, 7.5, -38.0914}]}, {}, {}, {}}, 
   {{Text["Pu", {8.5, 1.5, 678.0914}], Text["Pu", {8.5, 1.5, -38.0914}]}, 
    {Text["Sm", {8.5, 2.5, 1110.0914}], Text["Sm", {8.5, 2.5, -38.0914}]}, 
    {}, {RGBColor[1, 0, 0], Text["Hs", {8.5, 4.5, 38.0914}]}, 
    {Text["Os", {8.5, 5.5, 3071.0914}], Text["Os", {8.5, 5.5, -38.0914}]}, 
    {Text["Ru", {8.5, 6.5, 2372.0914}], Text["Ru", {8.5, 6.5, -38.0914}]}, 
    {Text["Fe", {8.5, 7.5, 1576.0914}], Text["Fe", {8.5, 7.5, -38.0914}]}, 
    {}, {}, {}}, {{Text["Am", {9.5, 1.5, 1214.0914}], 
     Text["Am", {9.5, 1.5, -38.0914}]}, {Text["Eu", {9.5, 2.5, 860.0914}], 
     Text["Eu", {9.5, 2.5, -38.0914}]}, {}, {RGBColor[1, 0, 0], 
     Text["Mt", {9.5, 4.5, 38.0914}]}, {Text["Ir", {9.5, 5.5, 2504.0914}], 
     Text["Ir", {9.5, 5.5, -38.0914}]}, {Text["Rh", {9.5, 6.5, 2002.0914}], 
     Text["Rh", {9.5, 6.5, -38.0914}]}, {Text["Co", {9.5, 7.5, 1533.0914}], 
     Text["Co", {9.5, 7.5, -38.0914}]}, {}, {}, {}}, 
   {{Text["Cm", {10.5, 1.5, 1383.0914}], Text["Cm", {10.5, 1.5, -38.0914}]}, 
    {Text["Gd", {10.5, 2.5, 1351.0914}], Text["Gd", {10.5, 2.5, -38.0914}]}, 
    {}, {RGBColor[1, 0, 0], Text["Ds", {10.5, 4.5, 38.0914}]}, 
    {Text["Pt", {10.5, 5.5, 1806.3914}], Text["Pt", {10.5, 5.5, -38.0914}]}, 
    {Text["Pd", {10.5, 6.5, 1592.9914}], Text["Pd", {10.5, 6.5, -38.0914}]}, 
    {Text["Ni", {10.5, 7.5, 1493.0914}], Text["Ni", {10.5, 7.5, -38.0914}]}, 
    {}, {}, {}}, {{Text["Bk", {11.5, 1.5, 1088.0914}], 
     Text["Bk", {11.5, 1.5, -38.0914}]}, {Text["Tb", {11.5, 2.5, 1394.0914}], 
     Text["Tb", {11.5, 2.5, -38.0914}]}, {}, {RGBColor[1, 0, 0], 
     Text["Rg", {11.5, 4.5, 38.0914}]}, {Text["Au", {11.5, 5.5, 1102.2714}], 
     Text["Au", {11.5, 5.5, -38.0914}]}, {Text["Ag", {11.5, 6.5, 999.8714}], 
     Text["Ag", {11.5, 6.5, -38.0914}]}, {Text["Cu", {11.5, 7.5, 1122.7114}], 
     Text["Cu", {11.5, 7.5, -38.0914}]}, {}, {}, {}}, 
   {{Text["Cf", {12.5, 1.5, 938.0914}], Text["Cf", {12.5, 1.5, -38.0914}]}, 
    {Text["Dy", {12.5, 2.5, 1450.0914}], Text["Dy", {12.5, 2.5, -38.0914}]}, 
    {}, {RGBColor[1, 0, 0], Text["Uub", {12.5, 4.5, 38.0914}]}, 
    {Text["Hg", {12.5, 5.5, -76.9214}], Text["Hg", {12.5, 5.5, 38.0914}]}, 
    {Text["Cd", {12.5, 6.5, 359.1614}], Text["Cd", {12.5, 6.5, -38.0914}]}, 
    {Text["Zn", {12.5, 7.5, 457.6214}], Text["Zn", {12.5, 7.5, -38.0914}]}, 
    {}, {}, {}}, {{Text["Es", {13.5, 1.5, 898.0914}], 
     Text["Es", {13.5, 1.5, -38.0914}]}, {Text["Ho", {13.5, 2.5, 1512.0914}], 
     Text["Ho", {13.5, 2.5, -38.0914}]}, {}, {RGBColor[1, 0, 0], 
     Text["Uut", {13.5, 4.5, 38.0914}]}, {Text["Tl", {13.5, 5.5, 342.0914}], 
     Text["Tl", {13.5, 5.5, -38.0914}]}, {Text["In", {13.5, 6.5, 194.6914}], 
     Text["In", {13.5, 6.5, -38.0914}]}, {Text["Ga", {13.5, 7.5, 67.8514}], 
     Text["Ga", {13.5, 7.5, -38.0914}]}, 
    {Text["Al", {13.5, 8.5, 698.4114000000001}], 
     Text["Al", {13.5, 8.5, -38.0914}]}, {Text["B", {13.5, 9.5, 2113.0914}], 
     Text["B", {13.5, 9.5, -38.0914}]}, {}}, 
   {{Text["Fm", {14.5, 1.5, 1565.0914}], Text["Fm", {14.5, 1.5, -38.0914}]}, 
    {Text["Er", {14.5, 2.5, 1535.0914}], Text["Er", {14.5, 2.5, -38.0914}]}, 
    {}, {RGBColor[1, 0, 0], Text["Uuq", {14.5, 4.5, 38.0914}]}, 
    {Text["Pb", {14.5, 5.5, 365.5514}], Text["Pb", {14.5, 5.5, -38.0914}]}, 
    {Text["Sn", {14.5, 6.5, 270.0214}], Text["Sn", {14.5, 6.5, -38.0914}]}, 
    {Text["Ge", {14.5, 7.5, 976.3914}], Text["Ge", {14.5, 7.5, -38.0914}]}, 
    {Text["Si", {14.5, 8.5, 1452.0914}], Text["Si", {14.5, 8.5, -38.0914}]}, 
    {Text["C", {14.5, 9.5, 3588.0914}], Text["C", {14.5, 9.5, -38.0914}]}, 
    {}}, {{Text["Md", {15.5, 1.5, 865.0914}], 
     Text["Md", {15.5, 1.5, -38.0914}]}, {Text["Tm", {15.5, 2.5, 1583.0914}], 
     Text["Tm", {15.5, 2.5, -38.0914}]}, {}, {RGBColor[1, 0, 0], 
     Text["Uup", {15.5, 4.5, 38.0914}]}, 
    {Text["Bi", {15.5, 5.5, 309.39140000000003}], 
     Text["Bi", {15.5, 5.5, -38.0914}]}, {Text["Sb", {15.5, 6.5, 668.7214}], 
     Text["Sb", {15.5, 6.5, -38.0914}]}, {Text["As", {15.5, 7.5, 855.0914}], 
     Text["As", {15.5, 7.5, -38.0914}]}, 
    {Text["P", {15.5, 8.5, 82.29140000000001}], 
     Text["P", {15.5, 8.5, -38.0914}]}, {Text["N", {15.5, 9.5, -248.1914}], 
     Text["N", {15.5, 9.5, 38.0914}]}, {}}, 
   {{Text["No", {16.5, 1.5, 865.0914}], Text["No", {16.5, 1.5, -38.0914}]}, 
    {Text["Yb", {16.5, 2.5, 857.0914}], Text["Yb", {16.5, 2.5, -38.0914}]}, 
    {}, {RGBColor[1, 0, 0], Text["Uuh", {16.5, 4.5, 38.0914}]}, 
    {Text["Po", {16.5, 5.5, 292.0914}], Text["Po", {16.5, 5.5, -38.0914}]}, 
    {Text["Te", {16.5, 6.5, 487.6014}], Text["Te", {16.5, 6.5, -38.0914}]}, 
    {Text["Se", {16.5, 7.5, 259.0914}], Text["Se", {16.5, 7.5, -38.0914}]}, 
    {Text["S", {16.5, 8.5, 153.3014}], Text["S", {16.5, 8.5, -38.0914}]}, 
    {Text["O", {16.5, 9.5, -256.39140000000003}], 
     Text["O", {16.5, 9.5, 38.0914}]}, {}}, 
   {{Text["Lr", {17.5, 1.5, 1665.0914}], Text["Lr", {17.5, 1.5, -38.0914}]}, 
    {Text["Lu", {17.5, 2.5, 1701.0914}], Text["Lu", {17.5, 2.5, -38.0914}]}, 
    {}, {RGBColor[1, 0, 0], Text["Uus", {17.5, 4.5, 38.0914}]}, 
    {Text["At", {17.5, 5.5, 340.0914}], Text["At", {17.5, 5.5, -38.0914}]}, 
    {Text["I", {17.5, 6.5, 151.7914}], Text["I", {17.5, 6.5, -38.0914}]}, 
    {Text["Br", {17.5, 7.5, -45.3914}], Text["Br", {17.5, 7.5, 38.0914}]}, 
    {Text["Cl", {17.5, 8.5, -139.5914}], Text["Cl", {17.5, 8.5, 38.0914}]}, 
    {Text["F", {17.5, 9.5, -257.6914}], Text["F", {17.5, 9.5, 38.0914}]}, 
    {}}, {{}, {}, {}, {RGBColor[1, 0, 0], Text["Uuo", {18.5, 4.5, 38.0914}]}, 
    {Text["Rn", {18.5, 5.5, -109.0914}], Text["Rn", {18.5, 5.5, 38.0914}]}, 
    {Text["Xe", {18.5, 6.5, -149.8914}], Text["Xe", {18.5, 6.5, 38.0914}]}, 
    {Text["Kr", {18.5, 7.5, -195.4514}], Text["Kr", {18.5, 7.5, 38.0914}]}, 
    {Text["Ar", {18.5, 8.5, -227.3914}], Text["Ar", {18.5, 8.5, 38.0914}]}, 
    {Text["Ne", {18.5, 9.5, -286.6814}], Text["Ne", {18.5, 9.5, 38.0914}]}, 
    {RGBColor[1, 0, 0], Text["He", {18.5, 10.5, 38.0914}]}}}}, 
 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[1., 1., 1.]]
