Graphics3D[{{{{}, {}, {}, {}, Cuboid[{1, 5, 0}, {2, 6, 8.}], 
    Cuboid[{1, 6, 0}, {2, 7, 28.}], Cuboid[{1, 7, 0}, {2, 8, 9.}], 
    Cuboid[{1, 8, 0}, {2, 9, 73.}], Cuboid[{1, 9, 0}, {2, 10, 67.}], 
    Cuboid[{1, 10, 0}, {2, 11, 66.}]}, {{}, {}, {}, 
    Cuboid[{2, 4, 0}, {3, 5, 69.}], Cuboid[{2, 5, 0}, {3, 6, 35.}], 
    Cuboid[{2, 6, 0}, {3, 7, 53.}], Cuboid[{2, 7, 0}, {3, 8, 41.}], 
    Cuboid[{2, 8, 0}, {3, 9, 15.}], Cuboid[{2, 9, 0}, {3, 10, 33.}], {}}, 
   {{}, {}, {}, {}, {}, Cuboid[{3, 6, 0}, {4, 7, 63.}], 
    Cuboid[{3, 7, 0}, {4, 8, 54.}], {}, {}, {}}, 
   {Cuboid[{4, 1, 0}, {5, 2, 60.}], Cuboid[{4, 2, 0}, {5, 3, 39.}], {}, {}, 
    Cuboid[{4, 5, 0}, {5, 6, 48.}], Cuboid[{4, 6, 0}, {5, 7, 65.}], 
    Cuboid[{4, 7, 0}, {5, 8, 59.}], {}, {}, {}}, 
   {{}, Cuboid[{5, 2, 0}, {6, 3, 22.}], {}, {}, Cuboid[{5, 5, 0}, 
     {6, 6, 58.}], Cuboid[{5, 6, 0}, {6, 7, 18.}], 
    Cuboid[{5, 7, 0}, {6, 8, 72.}], {}, {}, {}}, 
   {Cuboid[{6, 1, 0}, {7, 2, 61.}], Cuboid[{6, 2, 0}, {7, 3, 17.}], {}, {}, 
    Cuboid[{6, 5, 0}, {7, 6, 62.}], Cuboid[{6, 6, 0}, {7, 7, 14.}], 
    Cuboid[{6, 7, 0}, {7, 8, 38.}], {}, {}, {}}, 
   {{}, {}, {}, {}, Cuboid[{7, 5, 0}, {8, 6, 27.}], {}, 
    Cuboid[{7, 7, 0}, {8, 8, 76.}], {}, {}, {}}, 
   {Cuboid[{8, 1, 0}, {9, 2, 68.}], Cuboid[{8, 2, 0}, {9, 3, 52.}], {}, {}, 
    Cuboid[{8, 5, 0}, {9, 6, 21.}], Cuboid[{8, 6, 0}, {9, 7, 25.}], 
    Cuboid[{8, 7, 0}, {9, 8, 75.}], {}, {}, {}}, 
   {{}, Cuboid[{9, 2, 0}, {10, 3, 10.}], {}, {}, 
    Cuboid[{9, 5, 0}, {10, 6, 50.}], Cuboid[{9, 6, 0}, {10, 7, 29.}], 
    Cuboid[{9, 7, 0}, {10, 8, 71.}], {}, {}, {}}, 
   {{}, Cuboid[{10, 2, 0}, {11, 3, 45.}], {}, {}, 
    Cuboid[{10, 5, 0}, {11, 6, 77.}], Cuboid[{10, 6, 0}, {11, 7, 23.}], 
    Cuboid[{10, 7, 0}, {11, 8, 19.}], {}, {}, {}}, 
   {{}, Cuboid[{11, 2, 0}, {12, 3, 57.}], {}, {}, 
    Cuboid[{11, 5, 0}, {12, 6, 30.}], Cuboid[{11, 6, 0}, {12, 7, 6.}], 
    Cuboid[{11, 7, 0}, {12, 8, 37.}], {}, {}, {}}, 
   {{}, Cuboid[{12, 2, 0}, {13, 3, 42.}], {}, {}, 
    Cuboid[{12, 5, 0}, {13, 6, 20.}], Cuboid[{12, 6, 0}, {13, 7, 40.}], 
    Cuboid[{12, 7, 0}, {13, 8, 64.}], {}, {}, {}}, 
   {{}, Cuboid[{13, 2, 0}, {14, 3, 47.}], {}, {}, 
    Cuboid[{13, 5, 0}, {14, 6, 56.}], Cuboid[{13, 6, 0}, {14, 7, 1.}], 
    Cuboid[{13, 7, 0}, {14, 8, 46.}], Cuboid[{13, 8, 0}, {14, 9, 32.}], 
    Cuboid[{13, 9, 0}, {14, 10, 34.}], {}}, 
   {{}, Cuboid[{14, 2, 0}, {15, 3, 43.}], {}, {}, 
    Cuboid[{14, 5, 0}, {15, 6, 24.}], Cuboid[{14, 6, 0}, {15, 7, 51.}], 
    Cuboid[{14, 7, 0}, {15, 8, 82.}], Cuboid[{14, 8, 0}, {15, 9, 74.}], 
    Cuboid[{14, 9, 0}, {15, 10, 80.}], {}}, 
   {{}, Cuboid[{15, 2, 0}, {16, 3, 55.}], {}, {}, 
    Cuboid[{15, 5, 0}, {16, 6, 36.}], {}, Cuboid[{15, 7, 0}, {16, 8, 31.}], 
    Cuboid[{15, 8, 0}, {16, 9, 79.}], Cuboid[{15, 9, 0}, {16, 10, 7.}], {}}, 
   {{}, Cuboid[{16, 2, 0}, {17, 3, 11.}], {}, {}, {}, 
    Cuboid[{16, 6, 0}, {17, 7, 3.}], Cuboid[{16, 7, 0}, {17, 8, 81.}], {}, 
    Cuboid[{16, 9, 0}, {17, 10, 70.}], {}}, 
   {{}, Cuboid[{17, 2, 0}, {18, 3, 13.}], {}, {}, {}, 
    Cuboid[{17, 6, 0}, {18, 7, 4.}], Cuboid[{17, 7, 0}, {18, 8, 5.}], {}, 
    Cuboid[{17, 9, 0}, {18, 10, 44.}], {}}, {{}, {}, {}, {}, 
    Cuboid[{18, 5, 0}, {19, 6, 26.}], Cuboid[{18, 6, 0}, {19, 7, 2.}], 
    Cuboid[{18, 7, 0}, {19, 8, 12.}], Cuboid[{18, 8, 0}, {19, 9, 78.}], 
    Cuboid[{18, 9, 0}, {19, 10, 16.}], Cuboid[{18, 10, 0}, {19, 11, 49.}]}}, 
  GrayLevel[0], {{{}, {}, {}, {RGBColor[1, 0, 0], 
     Text["Fr", {1.5, 4.5, 0.81}]}, {Text["Cs", {1.5, 5.5, 8.81}], 
     Text["Cs", {1.5, 5.5, -0.81}]}, {Text["Rb", {1.5, 6.5, 28.81}], 
     Text["Rb", {1.5, 6.5, -0.81}]}, {Text["K", {1.5, 7.5, 9.81}], 
     Text["K", {1.5, 7.5, -0.81}]}, {Text["Na", {1.5, 8.5, 73.81}], 
     Text["Na", {1.5, 8.5, -0.81}]}, {Text["Li", {1.5, 9.5, 67.81}], 
     Text["Li", {1.5, 9.5, -0.81}]}, {Text["H", {1.5, 10.5, 66.81}], 
     Text["H", {1.5, 10.5, -0.81}]}}, {{}, {}, {}, 
    {Text["Ra", {2.5, 4.5, 69.81}], Text["Ra", {2.5, 4.5, -0.81}]}, 
    {Text["Ba", {2.5, 5.5, 35.81}], Text["Ba", {2.5, 5.5, -0.81}]}, 
    {Text["Sr", {2.5, 6.5, 53.81}], Text["Sr", {2.5, 6.5, -0.81}]}, 
    {Text["Ca", {2.5, 7.5, 41.81}], Text["Ca", {2.5, 7.5, -0.81}]}, 
    {Text["Mg", {2.5, 8.5, 15.81}], Text["Mg", {2.5, 8.5, -0.81}]}, 
    {Text["Be", {2.5, 9.5, 33.81}], Text["Be", {2.5, 9.5, -0.81}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Ac", {3.5, 1.5, 0.81}]}, 
    {RGBColor[1, 0, 0], Text["La", {3.5, 2.5, 0.81}]}, {}, {}, {}, 
    {Text["Y", {3.5, 6.5, 63.81}], Text["Y", {3.5, 6.5, -0.81}]}, 
    {Text["Sc", {3.5, 7.5, 54.81}], Text["Sc", {3.5, 7.5, -0.81}]}, {}, {}, 
    {}}, {{Text["Th", {4.5, 1.5, 60.81}], Text["Th", {4.5, 1.5, -0.81}]}, 
    {Text["Ce", {4.5, 2.5, 39.81}], Text["Ce", {4.5, 2.5, -0.81}]}, {}, 
    {RGBColor[1, 0, 0], Text["Rf", {4.5, 4.5, 0.81}]}, 
    {Text["Hf", {4.5, 5.5, 48.81}], Text["Hf", {4.5, 5.5, -0.81}]}, 
    {Text["Zr", {4.5, 6.5, 65.81}], Text["Zr", {4.5, 6.5, -0.81}]}, 
    {Text["Ti", {4.5, 7.5, 59.81}], Text["Ti", {4.5, 7.5, -0.81}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Pa", {5.5, 1.5, 0.81}]}, 
    {Text["Pr", {5.5, 2.5, 22.81}], Text["Pr", {5.5, 2.5, -0.81}]}, {}, 
    {RGBColor[1, 0, 0], Text["Db", {5.5, 4.5, 0.81}]}, 
    {Text["Ta", {5.5, 5.5, 58.81}], Text["Ta", {5.5, 5.5, -0.81}]}, 
    {Text["Nb", {5.5, 6.5, 18.81}], Text["Nb", {5.5, 6.5, -0.81}]}, 
    {Text["V", {5.5, 7.5, 72.81}], Text["V", {5.5, 7.5, -0.81}]}, {}, {}, 
    {}}, {{Text["U", {6.5, 1.5, 61.81}], Text["U", {6.5, 1.5, -0.81}]}, 
    {Text["Nd", {6.5, 2.5, 17.81}], Text["Nd", {6.5, 2.5, -0.81}]}, {}, 
    {RGBColor[1, 0, 0], Text["Sg", {6.5, 4.5, 0.81}]}, 
    {Text["W", {6.5, 5.5, 62.81}], Text["W", {6.5, 5.5, -0.81}]}, 
    {Text["Mo", {6.5, 6.5, 14.81}], Text["Mo", {6.5, 6.5, -0.81}]}, 
    {Text["Cr", {6.5, 7.5, 38.81}], Text["Cr", {6.5, 7.5, -0.81}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Np", {7.5, 1.5, 0.81}]}, 
    {RGBColor[1, 0, 0], Text["Pm", {7.5, 2.5, 0.81}]}, {}, 
    {RGBColor[1, 0, 0], Text["Bh", {7.5, 4.5, 0.81}]}, 
    {Text["Re", {7.5, 5.5, 27.81}], Text["Re", {7.5, 5.5, -0.81}]}, 
    {RGBColor[1, 0, 0], Text["Tc", {7.5, 6.5, 0.81}]}, 
    {Text["Mn", {7.5, 7.5, 76.81}], Text["Mn", {7.5, 7.5, -0.81}]}, {}, {}, 
    {}}, {{Text["Pu", {8.5, 1.5, 68.81}], Text["Pu", {8.5, 1.5, -0.81}]}, 
    {Text["Sm", {8.5, 2.5, 52.81}], Text["Sm", {8.5, 2.5, -0.81}]}, {}, 
    {RGBColor[1, 0, 0], Text["Hs", {8.5, 4.5, 0.81}]}, 
    {Text["Os", {8.5, 5.5, 21.81}], Text["Os", {8.5, 5.5, -0.81}]}, 
    {Text["Ru", {8.5, 6.5, 25.81}], Text["Ru", {8.5, 6.5, -0.81}]}, 
    {Text["Fe", {8.5, 7.5, 75.81}], Text["Fe", {8.5, 7.5, -0.81}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Am", {9.5, 1.5, 0.81}]}, 
    {Text["Eu", {9.5, 2.5, 10.81}], Text["Eu", {9.5, 2.5, -0.81}]}, {}, 
    {RGBColor[1, 0, 0], Text["Mt", {9.5, 4.5, 0.81}]}, 
    {Text["Ir", {9.5, 5.5, 50.81}], Text["Ir", {9.5, 5.5, -0.81}]}, 
    {Text["Rh", {9.5, 6.5, 29.81}], Text["Rh", {9.5, 6.5, -0.81}]}, 
    {Text["Co", {9.5, 7.5, 71.81}], Text["Co", {9.5, 7.5, -0.81}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Cm", {10.5, 1.5, 0.81}]}, 
    {Text["Gd", {10.5, 2.5, 45.81}], Text["Gd", {10.5, 2.5, -0.81}]}, {}, 
    {RGBColor[1, 0, 0], Text["Ds", {10.5, 4.5, 0.81}]}, 
    {Text["Pt", {10.5, 5.5, 77.81}], Text["Pt", {10.5, 5.5, -0.81}]}, 
    {Text["Pd", {10.5, 6.5, 23.81}], Text["Pd", {10.5, 6.5, -0.81}]}, 
    {Text["Ni", {10.5, 7.5, 19.81}], Text["Ni", {10.5, 7.5, -0.81}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Bk", {11.5, 1.5, 0.81}]}, 
    {Text["Tb", {11.5, 2.5, 57.81}], Text["Tb", {11.5, 2.5, -0.81}]}, {}, 
    {RGBColor[1, 0, 0], Text["Rg", {11.5, 4.5, 0.81}]}, 
    {Text["Au", {11.5, 5.5, 30.81}], Text["Au", {11.5, 5.5, -0.81}]}, 
    {Text["Ag", {11.5, 6.5, 6.8100000000000005}], 
     Text["Ag", {11.5, 6.5, -0.81}]}, {Text["Cu", {11.5, 7.5, 37.81}], 
     Text["Cu", {11.5, 7.5, -0.81}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Cf", {12.5, 1.5, 0.81}]}, 
    {Text["Dy", {12.5, 2.5, 42.81}], Text["Dy", {12.5, 2.5, -0.81}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uub", {12.5, 4.5, 0.81}]}, 
    {Text["Hg", {12.5, 5.5, 20.81}], Text["Hg", {12.5, 5.5, -0.81}]}, 
    {Text["Cd", {12.5, 6.5, 40.81}], Text["Cd", {12.5, 6.5, -0.81}]}, 
    {Text["Zn", {12.5, 7.5, 64.81}], Text["Zn", {12.5, 7.5, -0.81}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Es", {13.5, 1.5, 0.81}]}, 
    {Text["Ho", {13.5, 2.5, 47.81}], Text["Ho", {13.5, 2.5, -0.81}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uut", {13.5, 4.5, 0.81}]}, 
    {Text["Tl", {13.5, 5.5, 56.81}], Text["Tl", {13.5, 5.5, -0.81}]}, 
    {Text["In", {13.5, 6.5, 1.81}], Text["In", {13.5, 6.5, -0.81}]}, 
    {Text["Ga", {13.5, 7.5, 46.81}], Text["Ga", {13.5, 7.5, -0.81}]}, 
    {Text["Al", {13.5, 8.5, 32.81}], Text["Al", {13.5, 8.5, -0.81}]}, 
    {Text["B", {13.5, 9.5, 34.81}], Text["B", {13.5, 9.5, -0.81}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Fm", {14.5, 1.5, 0.81}]}, 
    {Text["Er", {14.5, 2.5, 43.81}], Text["Er", {14.5, 2.5, -0.81}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uuq", {14.5, 4.5, 0.81}]}, 
    {Text["Pb", {14.5, 5.5, 24.81}], Text["Pb", {14.5, 5.5, -0.81}]}, 
    {Text["Sn", {14.5, 6.5, 51.81}], Text["Sn", {14.5, 6.5, -0.81}]}, 
    {Text["Ge", {14.5, 7.5, 82.81}], Text["Ge", {14.5, 7.5, -0.81}]}, 
    {Text["Si", {14.5, 8.5, 74.81}], Text["Si", {14.5, 8.5, -0.81}]}, 
    {Text["C", {14.5, 9.5, 80.81}], Text["C", {14.5, 9.5, -0.81}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Md", {15.5, 1.5, 0.81}]}, 
    {Text["Tm", {15.5, 2.5, 55.81}], Text["Tm", {15.5, 2.5, -0.81}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uup", {15.5, 4.5, 0.81}]}, 
    {Text["Bi", {15.5, 5.5, 36.81}], Text["Bi", {15.5, 5.5, -0.81}]}, 
    {RGBColor[1, 0, 0], Text["Sb", {15.5, 6.5, 0.81}]}, 
    {Text["As", {15.5, 7.5, 31.81}], Text["As", {15.5, 7.5, -0.81}]}, 
    {Text["P", {15.5, 8.5, 79.81}], Text["P", {15.5, 8.5, -0.81}]}, 
    {Text["N", {15.5, 9.5, 7.8100000000000005}], 
     Text["N", {15.5, 9.5, -0.81}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["No", {16.5, 1.5, 0.81}]}, 
    {Text["Yb", {16.5, 2.5, 11.81}], Text["Yb", {16.5, 2.5, -0.81}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uuh", {16.5, 4.5, 0.81}]}, 
    {RGBColor[1, 0, 0], Text["Po", {16.5, 5.5, 0.81}]}, 
    {Text["Te", {16.5, 6.5, 3.81}], Text["Te", {16.5, 6.5, -0.81}]}, 
    {Text["Se", {16.5, 7.5, 81.81}], Text["Se", {16.5, 7.5, -0.81}]}, 
    {RGBColor[1, 0, 0], Text["S", {16.5, 8.5, 0.81}]}, 
    {Text["O", {16.5, 9.5, 70.81}], Text["O", {16.5, 9.5, -0.81}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Lr", {17.5, 1.5, 0.81}]}, 
    {Text["Lu", {17.5, 2.5, 13.81}], Text["Lu", {17.5, 2.5, -0.81}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uus", {17.5, 4.5, 0.81}]}, 
    {RGBColor[1, 0, 0], Text["At", {17.5, 5.5, 0.81}]}, 
    {Text["I", {17.5, 6.5, 4.8100000000000005}], 
     Text["I", {17.5, 6.5, -0.81}]}, 
    {Text["Br", {17.5, 7.5, 5.8100000000000005}], 
     Text["Br", {17.5, 7.5, -0.81}]}, {RGBColor[1, 0, 0], 
     Text["Cl", {17.5, 8.5, 0.81}]}, {Text["F", {17.5, 9.5, 44.81}], 
     Text["F", {17.5, 9.5, -0.81}]}, {}}, 
   {{}, {}, {}, {RGBColor[1, 0, 0], Text["Uuo", {18.5, 4.5, 0.81}]}, 
    {Text["Rn", {18.5, 5.5, 26.81}], Text["Rn", {18.5, 5.5, -0.81}]}, 
    {Text["Xe", {18.5, 6.5, 2.81}], Text["Xe", {18.5, 6.5, -0.81}]}, 
    {Text["Kr", {18.5, 7.5, 12.81}], Text["Kr", {18.5, 7.5, -0.81}]}, 
    {Text["Ar", {18.5, 8.5, 78.81}], Text["Ar", {18.5, 8.5, -0.81}]}, 
    {Text["Ne", {18.5, 9.5, 16.81}], Text["Ne", {18.5, 9.5, -0.81}]}, 
    {Text["He", {18.5, 10.5, 49.81}], Text["He", {18.5, 10.5, -0.81}]}}}}, 
 ViewPoint -> {3, -4, 15}, BoxRatios -> {2, 1, 1}, ImageSize -> 500, 
 SphericalRegion -> True, Boxed -> False, Axes -> {False, False, True}, 
 Ticks -> {None, None, {{1, "Gmelin1081"}, {2, "Gmelin1125"}, 
    {3, "Gmelin1153"}, {4, "Gmelin1160"}, {5, "Gmelin1182"}, 
    {6, "Gmelin1253"}, {7, "Gmelin150"}, {8, "Gmelin15188"}, 
    {9, "Gmelin15203"}, {10, "Gmelin15985"}, {11, "Gmelin16014"}, 
    {12, "Gmelin16201"}, {13, "Gmelin16202"}, {14, "Gmelin16205"}, 
    {15, "Gmelin16207"}, {16, "Gmelin16211"}, {17, "Gmelin16212"}, 
    {18, "Gmelin16213"}, {19, "Gmelin16229"}, {20, "Gmelin1623"}, 
    {21, "Gmelin16234"}, {22, "Gmelin16238"}, {23, "Gmelin16239"}, 
    {24, "Gmelin16240"}, {25, "Gmelin16241"}, {26, "Gmelin16242"}, 
    {27, "Gmelin16243"}, {28, "Gmelin16244"}, {29, "Gmelin16245"}, 
    {30, "Gmelin16246"}, {31, "Gmelin16247"}, {32, "Gmelin16248"}, 
    {33, "Gmelin16256"}, {34, "Gmelin16262"}, {35, "Gmelin16266"}, 
    {36, "Gmelin16267"}, {37, "Gmelin16269"}, {38, "Gmelin16274"}, 
    {39, "Gmelin16275"}, {40, "Gmelin16276"}, {41, "Gmelin16277"}, 
    {42, "Gmelin16278"}, {43, "Gmelin16280"}, {44, "Gmelin16281"}, 
    {45, "Gmelin16286"}, {46, "Gmelin16287"}, {47, "Gmelin16291"}, 
    {48, "Gmelin16293"}, {49, "Gmelin16294"}, {50, "Gmelin16298"}, 
    {51, "Gmelin16300"}, {52, "Gmelin16301"}, {53, "Gmelin16302"}, 
    {54, "Gmelin16304"}, {55, "Gmelin16307"}, {56, "Gmelin16308"}, 
    {57, "Gmelin16311"}, {58, "Gmelin16312"}, {59, "Gmelin16313"}, 
    {60, "Gmelin16314"}, {61, "Gmelin16315"}, {62, "Gmelin16317"}, 
    {63, "Gmelin16319"}, {64, "Gmelin16321"}, {65, "Gmelin16322"}, 
    {66, "Gmelin3"}, {67, "Gmelin30"}, {68, "Gmelin40432"}, 
    {69, "Gmelin40437"}, {70, "Gmelin485"}, {71, "Gmelin49017"}, 
    {72, "Gmelin49047"}, {73, "Gmelin563"}, {74, "Gmelin61188"}, 
    {75, "Gmelin6845"}, {76, "Gmelin699"}, {77, "Gmelin79607"}, 
    {78, "Gmelin821"}, {79, "Gmelin8863"}, {80, "Gmelin8868"}, 
    {81, "Gmelin8872"}, {82, "Gmelin93634"}}}, 
 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]]
