Graphics3D[{{{{}, {}, {}, {}, Cuboid[{1, 5, 0}, {2, 6, 301.59}], 
    Cuboid[{1, 6, 0}, {2, 7, 312.46}], Cuboid[{1, 7, 0}, {2, 8, 336.53}], 
    Cuboid[{1, 8, 0}, {2, 9, 370.87}], Cuboid[{1, 9, 0}, {2, 10, 453.69}], 
    Cuboid[{1, 10, 0}, {2, 11, 14.01}]}, 
   {{}, {}, {}, Cuboid[{2, 4, 0}, {3, 5, 973.}], 
    Cuboid[{2, 5, 0}, {3, 6, 1000.}], Cuboid[{2, 6, 0}, {3, 7, 1050.}], 
    Cuboid[{2, 7, 0}, {3, 8, 1115.}], Cuboid[{2, 8, 0}, {3, 9, 923.}], 
    Cuboid[{2, 9, 0}, {3, 10, 1560.}], {}}, 
   {Cuboid[{3, 1, 0}, {4, 2, 1323.}], Cuboid[{3, 2, 0}, {4, 3, 1193.}], {}, 
    {}, {}, Cuboid[{3, 6, 0}, {4, 7, 1799.}], Cuboid[{3, 7, 0}, 
     {4, 8, 1814.}], {}, {}, {}}, {Cuboid[{4, 1, 0}, {5, 2, 2023.}], 
    Cuboid[{4, 2, 0}, {5, 3, 1071.}], {}, {}, Cuboid[{4, 5, 0}, 
     {5, 6, 2506.}], Cuboid[{4, 6, 0}, {5, 7, 2128.}], 
    Cuboid[{4, 7, 0}, {5, 8, 1941.}], {}, {}, {}}, 
   {Cuboid[{5, 1, 0}, {6, 2, 1845.}], Cuboid[{5, 2, 0}, {6, 3, 1204.}], {}, 
    {}, Cuboid[{5, 5, 0}, {6, 6, 3290.}], Cuboid[{5, 6, 0}, {6, 7, 2750.}], 
    Cuboid[{5, 7, 0}, {6, 8, 2183.}], {}, {}, {}}, 
   {Cuboid[{6, 1, 0}, {7, 2, 1408.}], Cuboid[{6, 2, 0}, {7, 3, 1294.}], {}, 
    {}, Cuboid[{6, 5, 0}, {7, 6, 3695.}], Cuboid[{6, 6, 0}, {7, 7, 2896.}], 
    Cuboid[{6, 7, 0}, {7, 8, 2180.}], {}, {}, {}}, 
   {Cuboid[{7, 1, 0}, {8, 2, 917.}], Cuboid[{7, 2, 0}, {8, 3, 1373.}], {}, 
    {}, Cuboid[{7, 5, 0}, {8, 6, 3459.}], Cuboid[{7, 6, 0}, {8, 7, 2430.}], 
    Cuboid[{7, 7, 0}, {8, 8, 1519.}], {}, {}, {}}, 
   {Cuboid[{8, 1, 0}, {9, 2, 913.}], Cuboid[{8, 2, 0}, {9, 3, 1345.}], {}, 
    {}, Cuboid[{8, 5, 0}, {9, 6, 3306.}], Cuboid[{8, 6, 0}, {9, 7, 2607.}], 
    Cuboid[{8, 7, 0}, {9, 8, 1811.}], {}, {}, {}}, 
   {Cuboid[{9, 1, 0}, {10, 2, 1449.}], Cuboid[{9, 2, 0}, {10, 3, 1095.}], {}, 
    {}, Cuboid[{9, 5, 0}, {10, 6, 2739.}], Cuboid[{9, 6, 0}, {10, 7, 2237.}], 
    Cuboid[{9, 7, 0}, {10, 8, 1768.}], {}, {}, {}}, 
   {Cuboid[{10, 1, 0}, {11, 2, 1618.}], Cuboid[{10, 2, 0}, {11, 3, 1586.}], 
    {}, {}, Cuboid[{10, 5, 0}, {11, 6, 2041.4}], 
    Cuboid[{10, 6, 0}, {11, 7, 1828.05}], Cuboid[{10, 7, 0}, {11, 8, 1728.}], 
    {}, {}, {}}, {Cuboid[{11, 1, 0}, {12, 2, 1323.}], 
    Cuboid[{11, 2, 0}, {12, 3, 1629.}], {}, {}, Cuboid[{11, 5, 0}, 
     {12, 6, 1337.33}], Cuboid[{11, 6, 0}, {12, 7, 1234.93}], 
    Cuboid[{11, 7, 0}, {12, 8, 1357.77}], {}, {}, {}}, 
   {Cuboid[{12, 1, 0}, {13, 2, 1173.}], Cuboid[{12, 2, 0}, {13, 3, 1685.}], 
    {}, {}, Cuboid[{12, 5, 0}, {13, 6, 234.32}], 
    Cuboid[{12, 6, 0}, {13, 7, 594.22}], Cuboid[{12, 7, 0}, {13, 8, 692.68}], 
    {}, {}, {}}, {Cuboid[{13, 1, 0}, {14, 2, 1133.}], 
    Cuboid[{13, 2, 0}, {14, 3, 1747.}], {}, {}, Cuboid[{13, 5, 0}, 
     {14, 6, 577.}], Cuboid[{13, 6, 0}, {14, 7, 429.75}], 
    Cuboid[{13, 7, 0}, {14, 8, 302.91}], Cuboid[{13, 8, 0}, {14, 9, 933.47}], 
    Cuboid[{13, 9, 0}, {14, 10, 2348.}], {}}, 
   {Cuboid[{14, 1, 0}, {15, 2, 1800.}], Cuboid[{14, 2, 0}, {15, 3, 1770.}], 
    {}, {}, Cuboid[{14, 5, 0}, {15, 6, 600.61}], 
    Cuboid[{14, 6, 0}, {15, 7, 505.08}], Cuboid[{14, 7, 0}, {15, 8, 1211.4}], 
    Cuboid[{14, 8, 0}, {15, 9, 1687.}], Cuboid[{14, 9, 0}, {15, 10, 3823.}], 
    {}}, {Cuboid[{15, 1, 0}, {16, 2, 1100.}], Cuboid[{15, 2, 0}, 
     {16, 3, 1818.}], {}, {}, Cuboid[{15, 5, 0}, {16, 6, 544.4}], 
    Cuboid[{15, 6, 0}, {16, 7, 903.78}], Cuboid[{15, 7, 0}, {16, 8, 1090.}], 
    Cuboid[{15, 8, 0}, {16, 9, 317.3}], Cuboid[{15, 9, 0}, {16, 10, 63.05}], 
    {}}, {Cuboid[{16, 1, 0}, {17, 2, 1100.}], Cuboid[{16, 2, 0}, 
     {17, 3, 1092.}], {}, {}, Cuboid[{16, 5, 0}, {17, 6, 527.}], 
    Cuboid[{16, 6, 0}, {17, 7, 722.66}], Cuboid[{16, 7, 0}, {17, 8, 494.}], 
    Cuboid[{16, 8, 0}, {17, 9, 388.36}], Cuboid[{16, 9, 0}, {17, 10, 54.8}], 
    {}}, {Cuboid[{17, 1, 0}, {18, 2, 1900.}], Cuboid[{17, 2, 0}, 
     {18, 3, 1936.}], {}, {}, Cuboid[{17, 5, 0}, {18, 6, 575.}], 
    Cuboid[{17, 6, 0}, {18, 7, 386.85}], Cuboid[{17, 7, 0}, {18, 8, 265.8}], 
    Cuboid[{17, 8, 0}, {18, 9, 171.6}], Cuboid[{17, 9, 0}, {18, 10, 53.5}], 
    {}}, {{}, {}, {}, {}, Cuboid[{18, 5, 0}, {19, 6, 202.}], 
    Cuboid[{18, 6, 0}, {19, 7, 161.3}], Cuboid[{18, 7, 0}, {19, 8, 115.79}], 
    Cuboid[{18, 8, 0}, {19, 9, 83.8}], Cuboid[{18, 9, 0}, {19, 10, 24.56}], 
    {}}}, GrayLevel[0], {{{}, {}, {}, {RGBColor[1, 0, 0], 
     Text["Fr", {1.5, 4.5, 38.0899}]}, {Text["Cs", {1.5, 5.5, 339.6799}], 
     Text["Cs", {1.5, 5.5, -38.0899}]}, {Text["Rb", {1.5, 6.5, 350.5499}], 
     Text["Rb", {1.5, 6.5, -38.0899}]}, {Text["K", {1.5, 7.5, 374.6199}], 
     Text["K", {1.5, 7.5, -38.0899}]}, {Text["Na", {1.5, 8.5, 408.9599}], 
     Text["Na", {1.5, 8.5, -38.0899}]}, {Text["Li", {1.5, 9.5, 491.7799}], 
     Text["Li", {1.5, 9.5, -38.0899}]}, {Text["H", {1.5, 10.5, 52.0999}], 
     Text["H", {1.5, 10.5, -38.0899}]}}, 
   {{}, {}, {}, {Text["Ra", {2.5, 4.5, 1011.0899}], 
     Text["Ra", {2.5, 4.5, -38.0899}]}, {Text["Ba", {2.5, 5.5, 1038.0899}], 
     Text["Ba", {2.5, 5.5, -38.0899}]}, {Text["Sr", {2.5, 6.5, 1088.0899}], 
     Text["Sr", {2.5, 6.5, -38.0899}]}, {Text["Ca", {2.5, 7.5, 1153.0899}], 
     Text["Ca", {2.5, 7.5, -38.0899}]}, {Text["Mg", {2.5, 8.5, 961.0899}], 
     Text["Mg", {2.5, 8.5, -38.0899}]}, {Text["Be", {2.5, 9.5, 1598.0899}], 
     Text["Be", {2.5, 9.5, -38.0899}]}, {}}, 
   {{Text["Ac", {3.5, 1.5, 1361.0899}], Text["Ac", {3.5, 1.5, -38.0899}]}, 
    {Text["La", {3.5, 2.5, 1231.0899}], Text["La", {3.5, 2.5, -38.0899}]}, 
    {}, {}, {}, {Text["Y", {3.5, 6.5, 1837.0899}], 
     Text["Y", {3.5, 6.5, -38.0899}]}, {Text["Sc", {3.5, 7.5, 1852.0899}], 
     Text["Sc", {3.5, 7.5, -38.0899}]}, {}, {}, {}}, 
   {{Text["Th", {4.5, 1.5, 2061.0899}], Text["Th", {4.5, 1.5, -38.0899}]}, 
    {Text["Ce", {4.5, 2.5, 1109.0899}], Text["Ce", {4.5, 2.5, -38.0899}]}, 
    {}, {RGBColor[1, 0, 0], Text["Rf", {4.5, 4.5, 38.0899}]}, 
    {Text["Hf", {4.5, 5.5, 2544.0899}], Text["Hf", {4.5, 5.5, -38.0899}]}, 
    {Text["Zr", {4.5, 6.5, 2166.0899}], Text["Zr", {4.5, 6.5, -38.0899}]}, 
    {Text["Ti", {4.5, 7.5, 1979.0899}], Text["Ti", {4.5, 7.5, -38.0899}]}, 
    {}, {}, {}}, {{Text["Pa", {5.5, 1.5, 1883.0899}], 
     Text["Pa", {5.5, 1.5, -38.0899}]}, {Text["Pr", {5.5, 2.5, 1242.0899}], 
     Text["Pr", {5.5, 2.5, -38.0899}]}, {}, {RGBColor[1, 0, 0], 
     Text["Db", {5.5, 4.5, 38.0899}]}, {Text["Ta", {5.5, 5.5, 3328.0899}], 
     Text["Ta", {5.5, 5.5, -38.0899}]}, {Text["Nb", {5.5, 6.5, 2788.0899}], 
     Text["Nb", {5.5, 6.5, -38.0899}]}, {Text["V", {5.5, 7.5, 2221.0899}], 
     Text["V", {5.5, 7.5, -38.0899}]}, {}, {}, {}}, 
   {{Text["U", {6.5, 1.5, 1446.0899}], Text["U", {6.5, 1.5, -38.0899}]}, 
    {Text["Nd", {6.5, 2.5, 1332.0899}], Text["Nd", {6.5, 2.5, -38.0899}]}, 
    {}, {RGBColor[1, 0, 0], Text["Sg", {6.5, 4.5, 38.0899}]}, 
    {Text["W", {6.5, 5.5, 3733.0899}], Text["W", {6.5, 5.5, -38.0899}]}, 
    {Text["Mo", {6.5, 6.5, 2934.0899}], Text["Mo", {6.5, 6.5, -38.0899}]}, 
    {Text["Cr", {6.5, 7.5, 2218.0899}], Text["Cr", {6.5, 7.5, -38.0899}]}, 
    {}, {}, {}}, {{Text["Np", {7.5, 1.5, 955.0899}], 
     Text["Np", {7.5, 1.5, -38.0899}]}, {Text["Pm", {7.5, 2.5, 1411.0899}], 
     Text["Pm", {7.5, 2.5, -38.0899}]}, {}, {RGBColor[1, 0, 0], 
     Text["Bh", {7.5, 4.5, 38.0899}]}, {Text["Re", {7.5, 5.5, 3497.0899}], 
     Text["Re", {7.5, 5.5, -38.0899}]}, {Text["Tc", {7.5, 6.5, 2468.0899}], 
     Text["Tc", {7.5, 6.5, -38.0899}]}, {Text["Mn", {7.5, 7.5, 1557.0899}], 
     Text["Mn", {7.5, 7.5, -38.0899}]}, {}, {}, {}}, 
   {{Text["Pu", {8.5, 1.5, 951.0899}], Text["Pu", {8.5, 1.5, -38.0899}]}, 
    {Text["Sm", {8.5, 2.5, 1383.0899}], Text["Sm", {8.5, 2.5, -38.0899}]}, 
    {}, {RGBColor[1, 0, 0], Text["Hs", {8.5, 4.5, 38.0899}]}, 
    {Text["Os", {8.5, 5.5, 3344.0899}], Text["Os", {8.5, 5.5, -38.0899}]}, 
    {Text["Ru", {8.5, 6.5, 2645.0899}], Text["Ru", {8.5, 6.5, -38.0899}]}, 
    {Text["Fe", {8.5, 7.5, 1849.0899}], Text["Fe", {8.5, 7.5, -38.0899}]}, 
    {}, {}, {}}, {{Text["Am", {9.5, 1.5, 1487.0899}], 
     Text["Am", {9.5, 1.5, -38.0899}]}, {Text["Eu", {9.5, 2.5, 1133.0899}], 
     Text["Eu", {9.5, 2.5, -38.0899}]}, {}, {RGBColor[1, 0, 0], 
     Text["Mt", {9.5, 4.5, 38.0899}]}, {Text["Ir", {9.5, 5.5, 2777.0899}], 
     Text["Ir", {9.5, 5.5, -38.0899}]}, {Text["Rh", {9.5, 6.5, 2275.0899}], 
     Text["Rh", {9.5, 6.5, -38.0899}]}, {Text["Co", {9.5, 7.5, 1806.0899}], 
     Text["Co", {9.5, 7.5, -38.0899}]}, {}, {}, {}}, 
   {{Text["Cm", {10.5, 1.5, 1656.0899}], Text["Cm", {10.5, 1.5, -38.0899}]}, 
    {Text["Gd", {10.5, 2.5, 1624.0899}], Text["Gd", {10.5, 2.5, -38.0899}]}, 
    {}, {RGBColor[1, 0, 0], Text["Ds", {10.5, 4.5, 38.0899}]}, 
    {Text["Pt", {10.5, 5.5, 2079.4899}], Text["Pt", {10.5, 5.5, -38.0899}]}, 
    {Text["Pd", {10.5, 6.5, 1866.1399}], Text["Pd", {10.5, 6.5, -38.0899}]}, 
    {Text["Ni", {10.5, 7.5, 1766.0899}], Text["Ni", {10.5, 7.5, -38.0899}]}, 
    {}, {}, {}}, {{Text["Bk", {11.5, 1.5, 1361.0899}], 
     Text["Bk", {11.5, 1.5, -38.0899}]}, {Text["Tb", {11.5, 2.5, 1667.0899}], 
     Text["Tb", {11.5, 2.5, -38.0899}]}, {}, {RGBColor[1, 0, 0], 
     Text["Rg", {11.5, 4.5, 38.0899}]}, 
    {Text["Au", {11.5, 5.5, 1375.4198999999999}], 
     Text["Au", {11.5, 5.5, -38.0899}]}, {Text["Ag", {11.5, 6.5, 1273.0199}], 
     Text["Ag", {11.5, 6.5, -38.0899}]}, {Text["Cu", {11.5, 7.5, 1395.8599}], 
     Text["Cu", {11.5, 7.5, -38.0899}]}, {}, {}, {}}, 
   {{Text["Cf", {12.5, 1.5, 1211.0899}], Text["Cf", {12.5, 1.5, -38.0899}]}, 
    {Text["Dy", {12.5, 2.5, 1723.0899}], Text["Dy", {12.5, 2.5, -38.0899}]}, 
    {}, {RGBColor[1, 0, 0], Text["Uub", {12.5, 4.5, 38.0899}]}, 
    {Text["Hg", {12.5, 5.5, 272.4099}], Text["Hg", {12.5, 5.5, -38.0899}]}, 
    {Text["Cd", {12.5, 6.5, 632.3099}], Text["Cd", {12.5, 6.5, -38.0899}]}, 
    {Text["Zn", {12.5, 7.5, 730.7699}], Text["Zn", {12.5, 7.5, -38.0899}]}, 
    {}, {}, {}}, {{Text["Es", {13.5, 1.5, 1171.0899}], 
     Text["Es", {13.5, 1.5, -38.0899}]}, {Text["Ho", {13.5, 2.5, 1785.0899}], 
     Text["Ho", {13.5, 2.5, -38.0899}]}, {}, {RGBColor[1, 0, 0], 
     Text["Uut", {13.5, 4.5, 38.0899}]}, {Text["Tl", {13.5, 5.5, 615.0899}], 
     Text["Tl", {13.5, 5.5, -38.0899}]}, {Text["In", {13.5, 6.5, 467.8399}], 
     Text["In", {13.5, 6.5, -38.0899}]}, {Text["Ga", {13.5, 7.5, 340.9999}], 
     Text["Ga", {13.5, 7.5, -38.0899}]}, {Text["Al", {13.5, 8.5, 971.5599}], 
     Text["Al", {13.5, 8.5, -38.0899}]}, {Text["B", {13.5, 9.5, 2386.0899}], 
     Text["B", {13.5, 9.5, -38.0899}]}, {}}, 
   {{Text["Fm", {14.5, 1.5, 1838.0899}], Text["Fm", {14.5, 1.5, -38.0899}]}, 
    {Text["Er", {14.5, 2.5, 1808.0899}], Text["Er", {14.5, 2.5, -38.0899}]}, 
    {}, {RGBColor[1, 0, 0], Text["Uuq", {14.5, 4.5, 38.0899}]}, 
    {Text["Pb", {14.5, 5.5, 638.6999000000001}], 
     Text["Pb", {14.5, 5.5, -38.0899}]}, {Text["Sn", {14.5, 6.5, 543.1699}], 
     Text["Sn", {14.5, 6.5, -38.0899}]}, {Text["Ge", {14.5, 7.5, 1249.4899}], 
     Text["Ge", {14.5, 7.5, -38.0899}]}, {Text["Si", {14.5, 8.5, 1725.0899}], 
     Text["Si", {14.5, 8.5, -38.0899}]}, {Text["C", {14.5, 9.5, 3861.0899}], 
     Text["C", {14.5, 9.5, -38.0899}]}, {}}, 
   {{Text["Md", {15.5, 1.5, 1138.0899}], Text["Md", {15.5, 1.5, -38.0899}]}, 
    {Text["Tm", {15.5, 2.5, 1856.0899}], Text["Tm", {15.5, 2.5, -38.0899}]}, 
    {}, {RGBColor[1, 0, 0], Text["Uup", {15.5, 4.5, 38.0899}]}, 
    {Text["Bi", {15.5, 5.5, 582.4899}], Text["Bi", {15.5, 5.5, -38.0899}]}, 
    {Text["Sb", {15.5, 6.5, 941.8698999999999}], 
     Text["Sb", {15.5, 6.5, -38.0899}]}, {Text["As", {15.5, 7.5, 1128.0899}], 
     Text["As", {15.5, 7.5, -38.0899}]}, {Text["P", {15.5, 8.5, 355.3899}], 
     Text["P", {15.5, 8.5, -38.0899}]}, {Text["N", {15.5, 9.5, 101.1399}], 
     Text["N", {15.5, 9.5, -38.0899}]}, {}}, 
   {{Text["No", {16.5, 1.5, 1138.0899}], Text["No", {16.5, 1.5, -38.0899}]}, 
    {Text["Yb", {16.5, 2.5, 1130.0899}], Text["Yb", {16.5, 2.5, -38.0899}]}, 
    {}, {RGBColor[1, 0, 0], Text["Uuh", {16.5, 4.5, 38.0899}]}, 
    {Text["Po", {16.5, 5.5, 565.0899}], Text["Po", {16.5, 5.5, -38.0899}]}, 
    {Text["Te", {16.5, 6.5, 760.7499}], Text["Te", {16.5, 6.5, -38.0899}]}, 
    {Text["Se", {16.5, 7.5, 532.0899}], Text["Se", {16.5, 7.5, -38.0899}]}, 
    {Text["S", {16.5, 8.5, 426.4499}], Text["S", {16.5, 8.5, -38.0899}]}, 
    {Text["O", {16.5, 9.5, 92.8899}], Text["O", {16.5, 9.5, -38.0899}]}, {}}, 
   {{Text["Lr", {17.5, 1.5, 1938.0899}], Text["Lr", {17.5, 1.5, -38.0899}]}, 
    {Text["Lu", {17.5, 2.5, 1974.0899}], Text["Lu", {17.5, 2.5, -38.0899}]}, 
    {}, {RGBColor[1, 0, 0], Text["Uus", {17.5, 4.5, 38.0899}]}, 
    {Text["At", {17.5, 5.5, 613.0899}], Text["At", {17.5, 5.5, -38.0899}]}, 
    {Text["I", {17.5, 6.5, 424.9399}], Text["I", {17.5, 6.5, -38.0899}]}, 
    {Text["Br", {17.5, 7.5, 303.8899}], Text["Br", {17.5, 7.5, -38.0899}]}, 
    {Text["Cl", {17.5, 8.5, 209.6899}], Text["Cl", {17.5, 8.5, -38.0899}]}, 
    {Text["F", {17.5, 9.5, 91.5899}], Text["F", {17.5, 9.5, -38.0899}]}, {}}, 
   {{}, {}, {}, {RGBColor[1, 0, 0], Text["Uuo", {18.5, 4.5, 38.0899}]}, 
    {Text["Rn", {18.5, 5.5, 240.0899}], Text["Rn", {18.5, 5.5, -38.0899}]}, 
    {Text["Xe", {18.5, 6.5, 199.3899}], Text["Xe", {18.5, 6.5, -38.0899}]}, 
    {Text["Kr", {18.5, 7.5, 153.87990000000002}], 
     Text["Kr", {18.5, 7.5, -38.0899}]}, {Text["Ar", {18.5, 8.5, 121.8899}], 
     Text["Ar", {18.5, 8.5, -38.0899}]}, {Text["Ne", {18.5, 9.5, 62.6499}], 
     Text["Ne", {18.5, 9.5, -38.0899}]}, {RGBColor[1, 0, 0], 
     Text["He", {18.5, 10.5, 38.0899}]}}}}, 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.]]
