Graphics3D[{{{{}, {}, {}, {}, Cuboid[{1, 5, 0}, {2, 6, 0.14}], 
    Cuboid[{1, 6, 0}, {2, 7, 0.216}], Cuboid[{1, 7, 0}, {2, 8, 0.363}], 
    Cuboid[{1, 8, 0}, {2, 9, 0.69}], {}, {}}, {{}, {}, {}, {}, {}, {}, 
    Cuboid[{2, 7, 0}, {3, 8, 167.}], Cuboid[{2, 8, 0}, {3, 9, 260.}], 
    Cuboid[{2, 9, 0}, {3, 10, 600.}], {}}, 
   {{}, Cuboid[{3, 2, 0}, {4, 3, 363.}], {}, {}, {}, 
    Cuboid[{3, 6, 0}, {4, 7, 589.}], Cuboid[{3, 7, 0}, {4, 8, 750.}], {}, {}, 
    {}}, {Cuboid[{4, 1, 0}, {5, 2, 400.}], Cuboid[{4, 2, 0}, {5, 3, 412.}], 
    {}, {}, Cuboid[{4, 5, 0}, {5, 6, 1700.}], Cuboid[{4, 6, 0}, 
     {5, 7, 650.}], Cuboid[{4, 7, 0}, {5, 8, 716.}], {}, {}, {}}, 
   {{}, Cuboid[{5, 2, 0}, {6, 3, 481.}], {}, {}, 
    Cuboid[{5, 5, 0}, {6, 6, 800.}], Cuboid[{5, 6, 0}, {6, 7, 736.}], 
    Cuboid[{5, 7, 0}, {6, 8, 628.}], {}, {}, {}}, 
   {Cuboid[{6, 1, 0}, {7, 2, 2400.}], Cuboid[{6, 2, 0}, {7, 3, 265.}], {}, 
    {}, Cuboid[{6, 5, 0}, {7, 6, 2570.}], Cuboid[{6, 6, 0}, {7, 7, 1500.}], 
    Cuboid[{6, 7, 0}, {7, 8, 1120.}], {}, {}, {}}, 
   {{}, {}, {}, {}, Cuboid[{7, 5, 0}, {8, 6, 1320.}], {}, 
    Cuboid[{7, 7, 0}, {8, 8, 196.}], {}, {}, {}}, 
   {{}, Cuboid[{8, 2, 0}, {9, 3, 441.}], {}, {}, 
    Cuboid[{8, 5, 0}, {9, 6, 3920.}], Cuboid[{8, 6, 0}, {9, 7, 2160.}], 
    Cuboid[{8, 7, 0}, {9, 8, 490.}], {}, {}, {}}, 
   {{}, {}, {}, {}, Cuboid[{9, 5, 0}, {10, 6, 1670.}], 
    Cuboid[{9, 6, 0}, {10, 7, 1100.}], Cuboid[{9, 7, 0}, {10, 8, 700.}], {}, 
    {}, {}}, {{}, {}, {}, {}, Cuboid[{10, 5, 0}, {11, 6, 392.}], 
    Cuboid[{10, 6, 0}, {11, 7, 37.3}], Cuboid[{10, 7, 0}, {11, 8, 700.}], {}, 
    {}, {}}, {{}, Cuboid[{11, 2, 0}, {12, 3, 677.}], {}, {}, 
    Cuboid[{11, 5, 0}, {12, 6, 2450.}], Cuboid[{11, 6, 0}, {12, 7, 24.5}], 
    Cuboid[{11, 7, 0}, {12, 8, 874.}], {}, {}, {}}, 
   {{}, Cuboid[{12, 2, 0}, {13, 3, 500.}], {}, {}, {}, 
    Cuboid[{12, 6, 0}, {13, 7, 203.}], Cuboid[{12, 7, 0}, {13, 8, 412.}], {}, 
    {}, {}}, {{}, Cuboid[{13, 2, 0}, {14, 3, 746.}], {}, {}, 
    Cuboid[{13, 5, 0}, {14, 6, 26.4}], Cuboid[{13, 6, 0}, {14, 7, 8.83}], 
    Cuboid[{13, 7, 0}, {14, 8, 60.}], Cuboid[{13, 8, 0}, {14, 9, 245.}], {}, 
    {}}, {{}, Cuboid[{14, 2, 0}, {15, 3, 814.}], {}, {}, 
    Cuboid[{14, 5, 0}, {15, 6, 38.3}], Cuboid[{14, 6, 0}, {15, 7, 51.}], {}, 
    {}, {}, {}}, {{}, Cuboid[{15, 2, 0}, {16, 3, 471.}], {}, {}, 
    Cuboid[{15, 5, 0}, {16, 6, 94.2}], Cuboid[{15, 6, 0}, {16, 7, 294.}], 
    Cuboid[{15, 7, 0}, {16, 8, 1440.}], {}, {}, {}}, 
   {{}, Cuboid[{16, 2, 0}, {17, 3, 343.}], {}, {}, {}, 
    Cuboid[{16, 6, 0}, {17, 7, 180.}], Cuboid[{16, 7, 0}, {17, 8, 736.}], {}, 
    {}, {}}, {{}, Cuboid[{17, 2, 0}, {18, 3, 893.}], {}, {}, {}, {}, {}, {}, 
    {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, GrayLevel[0], 
  {{{}, {}, {}, {RGBColor[1, 0, 0], Text["Fr", {1.5, 4.5, 39.1986}]}, 
    {Text["Cs", {1.5, 5.5, 39.3386}], Text["Cs", {1.5, 5.5, -39.1986}]}, 
    {Text["Rb", {1.5, 6.5, 39.4146}], Text["Rb", {1.5, 6.5, -39.1986}]}, 
    {Text["K", {1.5, 7.5, 39.5616}], Text["K", {1.5, 7.5, -39.1986}]}, 
    {Text["Na", {1.5, 8.5, 39.8886}], Text["Na", {1.5, 8.5, -39.1986}]}, 
    {RGBColor[1, 0, 0], Text["Li", {1.5, 9.5, 39.1986}]}, 
    {RGBColor[1, 0, 0], Text["H", {1.5, 10.5, 39.1986}]}}, 
   {{}, {}, {}, {RGBColor[1, 0, 0], Text["Ra", {2.5, 4.5, 39.1986}]}, 
    {RGBColor[1, 0, 0], Text["Ba", {2.5, 5.5, 39.1986}]}, 
    {RGBColor[1, 0, 0], Text["Sr", {2.5, 6.5, 39.1986}]}, 
    {Text["Ca", {2.5, 7.5, 206.1986}], Text["Ca", {2.5, 7.5, -39.1986}]}, 
    {Text["Mg", {2.5, 8.5, 299.1986}], Text["Mg", {2.5, 8.5, -39.1986}]}, 
    {Text["Be", {2.5, 9.5, 639.1985999999999}], 
     Text["Be", {2.5, 9.5, -39.1986}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Ac", {3.5, 1.5, 39.1986}]}, 
    {Text["La", {3.5, 2.5, 402.1986}], Text["La", {3.5, 2.5, -39.1986}]}, {}, 
    {}, {}, {Text["Y", {3.5, 6.5, 628.1985999999999}], 
     Text["Y", {3.5, 6.5, -39.1986}]}, 
    {Text["Sc", {3.5, 7.5, 789.1985999999999}], 
     Text["Sc", {3.5, 7.5, -39.1986}]}, {}, {}, {}}, 
   {{Text["Th", {4.5, 1.5, 439.1986}], Text["Th", {4.5, 1.5, -39.1986}]}, 
    {Text["Ce", {4.5, 2.5, 451.1986}], Text["Ce", {4.5, 2.5, -39.1986}]}, {}, 
    {RGBColor[1, 0, 0], Text["Rf", {4.5, 4.5, 39.1986}]}, 
    {Text["Hf", {4.5, 5.5, 1739.1986}], Text["Hf", {4.5, 5.5, -39.1986}]}, 
    {Text["Zr", {4.5, 6.5, 689.1985999999999}], 
     Text["Zr", {4.5, 6.5, -39.1986}]}, 
    {Text["Ti", {4.5, 7.5, 755.1985999999999}], 
     Text["Ti", {4.5, 7.5, -39.1986}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Pa", {5.5, 1.5, 39.1986}]}, 
    {Text["Pr", {5.5, 2.5, 520.1985999999999}], 
     Text["Pr", {5.5, 2.5, -39.1986}]}, {}, {RGBColor[1, 0, 0], 
     Text["Db", {5.5, 4.5, 39.1986}]}, 
    {Text["Ta", {5.5, 5.5, 839.1985999999999}], 
     Text["Ta", {5.5, 5.5, -39.1986}]}, 
    {Text["Nb", {5.5, 6.5, 775.1985999999999}], 
     Text["Nb", {5.5, 6.5, -39.1986}]}, 
    {Text["V", {5.5, 7.5, 667.1985999999999}], 
     Text["V", {5.5, 7.5, -39.1986}]}, {}, {}, {}}, 
   {{Text["U", {6.5, 1.5, 2439.1986}], Text["U", {6.5, 1.5, -39.1986}]}, 
    {Text["Nd", {6.5, 2.5, 304.1986}], Text["Nd", {6.5, 2.5, -39.1986}]}, {}, 
    {RGBColor[1, 0, 0], Text["Sg", {6.5, 4.5, 39.1986}]}, 
    {Text["W", {6.5, 5.5, 2609.1986}], Text["W", {6.5, 5.5, -39.1986}]}, 
    {Text["Mo", {6.5, 6.5, 1539.1986}], Text["Mo", {6.5, 6.5, -39.1986}]}, 
    {Text["Cr", {6.5, 7.5, 1159.1986}], Text["Cr", {6.5, 7.5, -39.1986}]}, 
    {}, {}, {}}, {{RGBColor[1, 0, 0], Text["Np", {7.5, 1.5, 39.1986}]}, 
    {RGBColor[1, 0, 0], Text["Pm", {7.5, 2.5, 39.1986}]}, {}, 
    {RGBColor[1, 0, 0], Text["Bh", {7.5, 4.5, 39.1986}]}, 
    {Text["Re", {7.5, 5.5, 1359.1986}], Text["Re", {7.5, 5.5, -39.1986}]}, 
    {RGBColor[1, 0, 0], Text["Tc", {7.5, 6.5, 39.1986}]}, 
    {Text["Mn", {7.5, 7.5, 235.1986}], Text["Mn", {7.5, 7.5, -39.1986}]}, {}, 
    {}, {}}, {{RGBColor[1, 0, 0], Text["Pu", {8.5, 1.5, 39.1986}]}, 
    {Text["Sm", {8.5, 2.5, 480.1986}], Text["Sm", {8.5, 2.5, -39.1986}]}, {}, 
    {RGBColor[1, 0, 0], Text["Hs", {8.5, 4.5, 39.1986}]}, 
    {Text["Os", {8.5, 5.5, 3959.1986}], Text["Os", {8.5, 5.5, -39.1986}]}, 
    {Text["Ru", {8.5, 6.5, 2199.1986}], Text["Ru", {8.5, 6.5, -39.1986}]}, 
    {Text["Fe", {8.5, 7.5, 529.1985999999999}], 
     Text["Fe", {8.5, 7.5, -39.1986}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Am", {9.5, 1.5, 39.1986}]}, 
    {RGBColor[1, 0, 0], Text["Eu", {9.5, 2.5, 39.1986}]}, {}, 
    {RGBColor[1, 0, 0], Text["Mt", {9.5, 4.5, 39.1986}]}, 
    {Text["Ir", {9.5, 5.5, 1709.1986}], Text["Ir", {9.5, 5.5, -39.1986}]}, 
    {Text["Rh", {9.5, 6.5, 1139.1986}], Text["Rh", {9.5, 6.5, -39.1986}]}, 
    {Text["Co", {9.5, 7.5, 739.1985999999999}], 
     Text["Co", {9.5, 7.5, -39.1986}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Cm", {10.5, 1.5, 39.1986}]}, 
    {RGBColor[1, 0, 0], Text["Gd", {10.5, 2.5, 39.1986}]}, {}, 
    {RGBColor[1, 0, 0], Text["Ds", {10.5, 4.5, 39.1986}]}, 
    {Text["Pt", {10.5, 5.5, 431.1986}], Text["Pt", {10.5, 5.5, -39.1986}]}, 
    {Text["Pd", {10.5, 6.5, 76.4986}], Text["Pd", {10.5, 6.5, -39.1986}]}, 
    {Text["Ni", {10.5, 7.5, 739.1985999999999}], 
     Text["Ni", {10.5, 7.5, -39.1986}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Bk", {11.5, 1.5, 39.1986}]}, 
    {Text["Tb", {11.5, 2.5, 716.1985999999999}], 
     Text["Tb", {11.5, 2.5, -39.1986}]}, {}, {RGBColor[1, 0, 0], 
     Text["Rg", {11.5, 4.5, 39.1986}]}, {Text["Au", {11.5, 5.5, 2489.1986}], 
     Text["Au", {11.5, 5.5, -39.1986}]}, {Text["Ag", {11.5, 6.5, 63.6986}], 
     Text["Ag", {11.5, 6.5, -39.1986}]}, 
    {Text["Cu", {11.5, 7.5, 913.1985999999999}], 
     Text["Cu", {11.5, 7.5, -39.1986}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Cf", {12.5, 1.5, 39.1986}]}, 
    {Text["Dy", {12.5, 2.5, 539.1985999999999}], 
     Text["Dy", {12.5, 2.5, -39.1986}]}, {}, {RGBColor[1, 0, 0], 
     Text["Uub", {12.5, 4.5, 39.1986}]}, {RGBColor[1, 0, 0], 
     Text["Hg", {12.5, 5.5, 39.1986}]}, {Text["Cd", {12.5, 6.5, 242.1986}], 
     Text["Cd", {12.5, 6.5, -39.1986}]}, {Text["Zn", {12.5, 7.5, 451.1986}], 
     Text["Zn", {12.5, 7.5, -39.1986}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Es", {13.5, 1.5, 39.1986}]}, 
    {Text["Ho", {13.5, 2.5, 785.1985999999999}], 
     Text["Ho", {13.5, 2.5, -39.1986}]}, {}, {RGBColor[1, 0, 0], 
     Text["Uut", {13.5, 4.5, 39.1986}]}, {Text["Tl", {13.5, 5.5, 65.5986}], 
     Text["Tl", {13.5, 5.5, -39.1986}]}, {Text["In", {13.5, 6.5, 48.0286}], 
     Text["In", {13.5, 6.5, -39.1986}]}, {Text["Ga", {13.5, 7.5, 99.1986}], 
     Text["Ga", {13.5, 7.5, -39.1986}]}, {Text["Al", {13.5, 8.5, 284.1986}], 
     Text["Al", {13.5, 8.5, -39.1986}]}, {RGBColor[1, 0, 0], 
     Text["B", {13.5, 9.5, 39.1986}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Fm", {14.5, 1.5, 39.1986}]}, 
    {Text["Er", {14.5, 2.5, 853.1985999999999}], 
     Text["Er", {14.5, 2.5, -39.1986}]}, {}, {RGBColor[1, 0, 0], 
     Text["Uuq", {14.5, 4.5, 39.1986}]}, {Text["Pb", {14.5, 5.5, 77.4986}], 
     Text["Pb", {14.5, 5.5, -39.1986}]}, {Text["Sn", {14.5, 6.5, 90.1986}], 
     Text["Sn", {14.5, 6.5, -39.1986}]}, {RGBColor[1, 0, 0], 
     Text["Ge", {14.5, 7.5, 39.1986}]}, {RGBColor[1, 0, 0], 
     Text["Si", {14.5, 8.5, 39.1986}]}, {RGBColor[1, 0, 0], 
     Text["C", {14.5, 9.5, 39.1986}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Md", {15.5, 1.5, 39.1986}]}, 
    {Text["Tm", {15.5, 2.5, 510.1986}], Text["Tm", {15.5, 2.5, -39.1986}]}, 
    {}, {RGBColor[1, 0, 0], Text["Uup", {15.5, 4.5, 39.1986}]}, 
    {Text["Bi", {15.5, 5.5, 133.3986}], Text["Bi", {15.5, 5.5, -39.1986}]}, 
    {Text["Sb", {15.5, 6.5, 333.1986}], Text["Sb", {15.5, 6.5, -39.1986}]}, 
    {Text["As", {15.5, 7.5, 1479.1986}], Text["As", {15.5, 7.5, -39.1986}]}, 
    {RGBColor[1, 0, 0], Text["P", {15.5, 8.5, 39.1986}]}, 
    {RGBColor[1, 0, 0], Text["N", {15.5, 9.5, 39.1986}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["No", {16.5, 1.5, 39.1986}]}, 
    {Text["Yb", {16.5, 2.5, 382.1986}], Text["Yb", {16.5, 2.5, -39.1986}]}, 
    {}, {RGBColor[1, 0, 0], Text["Uuh", {16.5, 4.5, 39.1986}]}, 
    {RGBColor[1, 0, 0], Text["Po", {16.5, 5.5, 39.1986}]}, 
    {Text["Te", {16.5, 6.5, 219.1986}], Text["Te", {16.5, 6.5, -39.1986}]}, 
    {Text["Se", {16.5, 7.5, 775.1985999999999}], 
     Text["Se", {16.5, 7.5, -39.1986}]}, {RGBColor[1, 0, 0], 
     Text["S", {16.5, 8.5, 39.1986}]}, {RGBColor[1, 0, 0], 
     Text["O", {16.5, 9.5, 39.1986}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Lr", {17.5, 1.5, 39.1986}]}, 
    {Text["Lu", {17.5, 2.5, 932.1985999999999}], 
     Text["Lu", {17.5, 2.5, -39.1986}]}, {}, {RGBColor[1, 0, 0], 
     Text["Uus", {17.5, 4.5, 39.1986}]}, {RGBColor[1, 0, 0], 
     Text["At", {17.5, 5.5, 39.1986}]}, {RGBColor[1, 0, 0], 
     Text["I", {17.5, 6.5, 39.1986}]}, {RGBColor[1, 0, 0], 
     Text["Br", {17.5, 7.5, 39.1986}]}, {RGBColor[1, 0, 0], 
     Text["Cl", {17.5, 8.5, 39.1986}]}, {RGBColor[1, 0, 0], 
     Text["F", {17.5, 9.5, 39.1986}]}, {}}, 
   {{}, {}, {}, {RGBColor[1, 0, 0], Text["Uuo", {18.5, 4.5, 39.1986}]}, 
    {RGBColor[1, 0, 0], Text["Rn", {18.5, 5.5, 39.1986}]}, 
    {RGBColor[1, 0, 0], Text["Xe", {18.5, 6.5, 39.1986}]}, 
    {RGBColor[1, 0, 0], Text["Kr", {18.5, 7.5, 39.1986}]}, 
    {RGBColor[1, 0, 0], Text["Ar", {18.5, 8.5, 39.1986}]}, 
    {RGBColor[1, 0, 0], Text["Ne", {18.5, 9.5, 39.1986}]}, 
    {RGBColor[1, 0, 0], Text["He", {18.5, 10.5, 39.1986}]}}}}, 
 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]]
