Graphics3D[{{{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, 
   {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, 
    {}, {}}, {{}, Cuboid[{4, 2, 1}, {5, 3, 2.5257286443082556}], {}, {}, {}, 
    {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, 
   {{}, Cuboid[{6, 2, 1}, {7, 3, 2.954910279033736}], {}, {}, {}, {}, 
    Cuboid[{6, 7, 1}, {7, 8, 5.973809611869261}], {}, {}, {}}, 
   {{}, {}, {}, {}, {}, {}, Cuboid[{7, 7, 1}, {8, 8, 4.605170185988092}], {}, 
    {}, {}}, {{}, Cuboid[{8, 2, 1}, {9, 3, 4.663439094112067}], {}, {}, {}, 
    {}, {}, {}, {}, {}}, {{}, Cuboid[{9, 2, 1}, {10, 3, 4.505349850705881}], 
    {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, 
    {}}, {{}, Cuboid[{11, 2, 1}, {12, 3, 5.438079308923196}], {}, {}, {}, {}, 
    {}, {}, {}, {}}, {{}, Cuboid[{12, 2, 1}, {13, 3, 5.181783550292085}], {}, 
    {}, {}, {}, {}, {}, {}, {}}, 
   {{}, Cuboid[{13, 2, 1}, {14, 3, 4.882801922586371}], {}, {}, {}, {}, {}, 
    {}, {}, {}}, {{}, Cuboid[{14, 2, 1}, {15, 3, 4.406719247264253}], {}, {}, 
    {}, {}, {}, {}, {}, {}}, {{}, Cuboid[{15, 2, 1}, 
     {16, 3, 4.02535169073515}], {}, {}, {}, {}, {}, {}, {}, {}}, 
   {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, 
    {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, GrayLevel[0], 
  {{{}, {}, {}, {RGBColor[1, 0, 0], Text["Fr", 
      {1.5, 4.5, 1.03448080967561}]}, {RGBColor[1, 0, 0], 
     Text["Cs", {1.5, 5.5, 1.03448080967561}]}, {RGBColor[1, 0, 0], 
     Text["Rb", {1.5, 6.5, 1.03448080967561}]}, {RGBColor[1, 0, 0], 
     Text["K", {1.5, 7.5, 1.03448080967561}]}, {RGBColor[1, 0, 0], 
     Text["Na", {1.5, 8.5, 1.03448080967561}]}, {RGBColor[1, 0, 0], 
     Text["Li", {1.5, 9.5, 1.03448080967561}]}, {RGBColor[1, 0, 0], 
     Text["H", {1.5, 10.5, 1.03448080967561}]}}, 
   {{}, {}, {}, {RGBColor[1, 0, 0], Text["Ra", 
      {2.5, 4.5, 1.03448080967561}]}, {RGBColor[1, 0, 0], 
     Text["Ba", {2.5, 5.5, 1.03448080967561}]}, {RGBColor[1, 0, 0], 
     Text["Sr", {2.5, 6.5, 1.03448080967561}]}, {RGBColor[1, 0, 0], 
     Text["Ca", {2.5, 7.5, 1.03448080967561}]}, {RGBColor[1, 0, 0], 
     Text["Mg", {2.5, 8.5, 1.03448080967561}]}, {RGBColor[1, 0, 0], 
     Text["Be", {2.5, 9.5, 1.03448080967561}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Ac", {3.5, 1.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["La", {3.5, 2.5, 1.03448080967561}]}, {}, {}, 
    {}, {RGBColor[1, 0, 0], Text["Y", {3.5, 6.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Sc", {3.5, 7.5, 1.03448080967561}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Th", {4.5, 1.5, 1.03448080967561}]}, 
    {Text["Ce", {4.5, 2.5, 2.5602094539838656}], 
     Text["Ce", {4.5, 2.5, 0.9655191903243899}]}, {}, 
    {RGBColor[1, 0, 0], Text["Rf", {4.5, 4.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Hf", {4.5, 5.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Zr", {4.5, 6.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Ti", {4.5, 7.5, 1.03448080967561}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Pa", {5.5, 1.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Pr", {5.5, 2.5, 1.03448080967561}]}, {}, 
    {RGBColor[1, 0, 0], Text["Db", {5.5, 4.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Ta", {5.5, 5.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Nb", {5.5, 6.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["V", {5.5, 7.5, 1.03448080967561}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["U", {6.5, 1.5, 1.03448080967561}]}, 
    {Text["Nd", {6.5, 2.5, 2.989391088709346}], 
     Text["Nd", {6.5, 2.5, 0.9655191903243899}]}, {}, 
    {RGBColor[1, 0, 0], Text["Sg", {6.5, 4.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["W", {6.5, 5.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Mo", {6.5, 6.5, 1.03448080967561}]}, 
    {Text["Cr", {6.5, 7.5, 6.008290421544872}], 
     Text["Cr", {6.5, 7.5, 0.9655191903243899}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Np", {7.5, 1.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Pm", {7.5, 2.5, 1.03448080967561}]}, {}, 
    {RGBColor[1, 0, 0], Text["Bh", {7.5, 4.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Re", {7.5, 5.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Tc", {7.5, 6.5, 1.03448080967561}]}, 
    {Text["Mn", {7.5, 7.5, 4.639650995663702}], 
     Text["Mn", {7.5, 7.5, 0.9655191903243899}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Pu", {8.5, 1.5, 1.03448080967561}]}, 
    {Text["Sm", {8.5, 2.5, 4.697919903787677}], 
     Text["Sm", {8.5, 2.5, 0.9655191903243899}]}, {}, 
    {RGBColor[1, 0, 0], Text["Hs", {8.5, 4.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Os", {8.5, 5.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Ru", {8.5, 6.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Fe", {8.5, 7.5, 1.03448080967561}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Am", {9.5, 1.5, 1.03448080967561}]}, 
    {Text["Eu", {9.5, 2.5, 4.539830660381491}], 
     Text["Eu", {9.5, 2.5, 0.9655191903243899}]}, {}, 
    {RGBColor[1, 0, 0], Text["Mt", {9.5, 4.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Ir", {9.5, 5.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Rh", {9.5, 6.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Co", {9.5, 7.5, 1.03448080967561}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Cm", {10.5, 1.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Gd", {10.5, 2.5, 1.03448080967561}]}, {}, 
    {RGBColor[1, 0, 0], Text["Ds", {10.5, 4.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Pt", {10.5, 5.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Pd", {10.5, 6.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Ni", {10.5, 7.5, 1.03448080967561}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Bk", {11.5, 1.5, 1.03448080967561}]}, 
    {Text["Tb", {11.5, 2.5, 5.472560118598806}], 
     Text["Tb", {11.5, 2.5, 0.9655191903243899}]}, {}, 
    {RGBColor[1, 0, 0], Text["Rg", {11.5, 4.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Au", {11.5, 5.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Ag", {11.5, 6.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Cu", {11.5, 7.5, 1.03448080967561}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Cf", {12.5, 1.5, 1.03448080967561}]}, 
    {Text["Dy", {12.5, 2.5, 5.216264359967695}], 
     Text["Dy", {12.5, 2.5, 0.9655191903243899}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uub", {12.5, 4.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Hg", {12.5, 5.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Cd", {12.5, 6.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Zn", {12.5, 7.5, 1.03448080967561}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Es", {13.5, 1.5, 1.03448080967561}]}, 
    {Text["Ho", {13.5, 2.5, 4.917282732261981}], 
     Text["Ho", {13.5, 2.5, 0.9655191903243899}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uut", {13.5, 4.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Tl", {13.5, 5.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["In", {13.5, 6.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Ga", {13.5, 7.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Al", {13.5, 8.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["B", {13.5, 9.5, 1.03448080967561}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Fm", {14.5, 1.5, 1.03448080967561}]}, 
    {Text["Er", {14.5, 2.5, 4.441200056939864}], 
     Text["Er", {14.5, 2.5, 0.9655191903243899}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uuq", {14.5, 4.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Pb", {14.5, 5.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Sn", {14.5, 6.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Ge", {14.5, 7.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Si", {14.5, 8.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["C", {14.5, 9.5, 1.03448080967561}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Md", {15.5, 1.5, 1.03448080967561}]}, 
    {Text["Tm", {15.5, 2.5, 4.05983250041076}], 
     Text["Tm", {15.5, 2.5, 0.9655191903243899}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uup", {15.5, 4.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Bi", {15.5, 5.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Sb", {15.5, 6.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["As", {15.5, 7.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["P", {15.5, 8.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["N", {15.5, 9.5, 1.03448080967561}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["No", {16.5, 1.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Yb", {16.5, 2.5, 1.03448080967561}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uuh", {16.5, 4.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Po", {16.5, 5.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Te", {16.5, 6.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Se", {16.5, 7.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["S", {16.5, 8.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["O", {16.5, 9.5, 1.03448080967561}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Lr", {17.5, 1.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Lu", {17.5, 2.5, 1.03448080967561}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uus", {17.5, 4.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["At", {17.5, 5.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["I", {17.5, 6.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Br", {17.5, 7.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["Cl", {17.5, 8.5, 1.03448080967561}]}, 
    {RGBColor[1, 0, 0], Text["F", {17.5, 9.5, 1.03448080967561}]}, {}}, 
   {{}, {}, {}, {RGBColor[1, 0, 0], Text["Uuo", 
      {18.5, 4.5, 1.03448080967561}]}, {RGBColor[1, 0, 0], 
     Text["Rn", {18.5, 5.5, 1.03448080967561}]}, {RGBColor[1, 0, 0], 
     Text["Xe", {18.5, 6.5, 1.03448080967561}]}, {RGBColor[1, 0, 0], 
     Text["Kr", {18.5, 7.5, 1.03448080967561}]}, {RGBColor[1, 0, 0], 
     Text["Ar", {18.5, 8.5, 1.03448080967561}]}, {RGBColor[1, 0, 0], 
     Text["Ne", {18.5, 9.5, 1.03448080967561}]}, {RGBColor[1, 0, 0], 
     Text["He", {18.5, 10.5, 1.03448080967561}]}}}}, 
 ViewPoint -> {3, -4, 15}, BoxRatios -> {2, 1, 1}, ImageSize -> 500, 
 SphericalRegion -> True, Boxed -> False, Axes -> {False, False, True}, 
 Ticks -> {None, None, {{2.302585092994046, "10"}, {2.995732273553991, "20"}, 
    {3.912023005428146, "50"}, {4.605170185988092, "100"}, 
    {5.298317366548036, "200"}, {6.214608098422191, "500"}, 
    {6.907755278982137, "1000"}, {7.600902459542082, "2000"}, 
    {8.517193191416238, "5000"}, {3.4011973816621555, ""}, 
    {3.6888794541139363, ""}, {4.0943445622221, ""}, {4.248495242049359, ""}, 
    {4.382026634673881, ""}, {4.499809670330265, ""}, 
    {5.703782474656201, ""}, {5.991464547107982, ""}, 
    {6.396929655216146, ""}, {6.551080335043404, ""}, 
    {6.684611727667927, ""}, {6.802394763324311, ""}, 
    {8.006367567650246, ""}, {8.294049640102028, ""}}}, 
 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.]]
