Graphics3D[{{{{}, {}, {}, {}, Cuboid[{1, 5, 1}, {2, 6, 7.569411792450712}], 
    Cuboid[{1, 6, 1}, {2, 7, 7.646353722445999}], 
    Cuboid[{1, 7, 1}, {2, 8, 7.706612913964197}], 
    Cuboid[{1, 8, 1}, {2, 9, 7.8528278122817445}], 
    Cuboid[{1, 9, 1}, {2, 10, 8.078067881815437}], 
    Cuboid[{1, 10, 1}, {2, 11, 3.49559805708364}]}, 
   {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, 
    {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, 
   {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, 
    {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, 
   {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, 
    {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, 
   {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, 
    Cuboid[{12, 5, 1}, {13, 6, 7.4673710669175595}], {}, {}, {}, {}, {}}, 
   {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, 
    {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, Cuboid[{15, 9, 1}, 
     {16, 10, 4.837947186270539}], {}}, {{}, {}, {}, {}, {}, {}, 
    Cuboid[{16, 7, 1}, {17, 8, 7.476472381163905}], 
    Cuboid[{16, 8, 1}, {17, 9, 7.1808311990445555}], 
    Cuboid[{16, 9, 1}, {17, 10, 5.0407764510082425}], {}}, 
   {{}, {}, {}, {}, {}, Cuboid[{17, 6, 1}, {18, 7, 6.70808408385307}], 
    Cuboid[{17, 7, 1}, {18, 8, 6.376726947898627}], 
    Cuboid[{17, 8, 1}, {18, 9, 6.032846384886751}], 
    Cuboid[{17, 9, 1}, {18, 10, 4.970715670095012}], {}}, 
   {{}, {}, {}, {}, Cuboid[{18, 5, 1}, {19, 6, 5.932245187448011}], 
    Cuboid[{18, 6, 1}, {19, 7, 5.669087504859315}], 
    Cuboid[{18, 7, 1}, {19, 8, 5.344294052788061}], 
    Cuboid[{18, 8, 1}, {19, 9, 5.016418538851983}], 
    Cuboid[{18, 9, 1}, {19, 10, 3.7932394694381792}], 
    Cuboid[{18, 10, 1}, {19, 11, 1.6467336971777973}]}}, GrayLevel[0], 
  {{{}, {}, {}, {RGBColor[1, 0, 0], Text["Fr", 
      {1.5, 4.5, 1.0643133418463764}]}, 
    {Text["Cs", {1.5, 5.5, 7.633725134297088}], 
     Text["Cs", {1.5, 5.5, 0.9356866581536236}]}, 
    {Text["Rb", {1.5, 6.5, 7.710667064292376}], 
     Text["Rb", {1.5, 6.5, 0.9356866581536236}]}, 
    {Text["K", {1.5, 7.5, 7.770926255810573}], 
     Text["K", {1.5, 7.5, 0.9356866581536236}]}, 
    {Text["Na", {1.5, 8.5, 7.917141154128121}], 
     Text["Na", {1.5, 8.5, 0.9356866581536236}]}, 
    {Text["Li", {1.5, 9.5, 8.142381223661815}], 
     Text["Li", {1.5, 9.5, 0.9356866581536236}]}, 
    {Text["H", {1.5, 10.5, 3.559911398930016}], 
     Text["H", {1.5, 10.5, 0.9356866581536236}]}}, 
   {{}, {}, {}, {RGBColor[1, 0, 0], Text["Ra", 
      {2.5, 4.5, 1.0643133418463764}]}, {RGBColor[1, 0, 0], 
     Text["Ba", {2.5, 5.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Sr", {2.5, 6.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Ca", {2.5, 7.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Mg", {2.5, 8.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Be", {2.5, 9.5, 1.0643133418463764}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Ac", {3.5, 1.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["La", {3.5, 2.5, 1.0643133418463764}]}, {}, {}, 
    {}, {RGBColor[1, 0, 0], Text["Y", {3.5, 6.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Sc", {3.5, 7.5, 1.0643133418463764}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Th", {4.5, 1.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Ce", {4.5, 2.5, 1.0643133418463764}]}, {}, 
    {RGBColor[1, 0, 0], Text["Rf", {4.5, 4.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Hf", {4.5, 5.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Zr", {4.5, 6.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Ti", {4.5, 7.5, 1.0643133418463764}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Pa", {5.5, 1.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Pr", {5.5, 2.5, 1.0643133418463764}]}, {}, 
    {RGBColor[1, 0, 0], Text["Db", {5.5, 4.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Ta", {5.5, 5.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Nb", {5.5, 6.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["V", {5.5, 7.5, 1.0643133418463764}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["U", {6.5, 1.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Nd", {6.5, 2.5, 1.0643133418463764}]}, {}, 
    {RGBColor[1, 0, 0], Text["Sg", {6.5, 4.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["W", {6.5, 5.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Mo", {6.5, 6.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Cr", {6.5, 7.5, 1.0643133418463764}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Np", {7.5, 1.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Pm", {7.5, 2.5, 1.0643133418463764}]}, {}, 
    {RGBColor[1, 0, 0], Text["Bh", {7.5, 4.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Re", {7.5, 5.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Tc", {7.5, 6.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Mn", {7.5, 7.5, 1.0643133418463764}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Pu", {8.5, 1.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Sm", {8.5, 2.5, 1.0643133418463764}]}, {}, 
    {RGBColor[1, 0, 0], Text["Hs", {8.5, 4.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Os", {8.5, 5.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Ru", {8.5, 6.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Fe", {8.5, 7.5, 1.0643133418463764}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Am", {9.5, 1.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Eu", {9.5, 2.5, 1.0643133418463764}]}, {}, 
    {RGBColor[1, 0, 0], Text["Mt", {9.5, 4.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Ir", {9.5, 5.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Rh", {9.5, 6.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Co", {9.5, 7.5, 1.0643133418463764}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Cm", {10.5, 1.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Gd", {10.5, 2.5, 1.0643133418463764}]}, {}, 
    {RGBColor[1, 0, 0], Text["Ds", {10.5, 4.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Pt", {10.5, 5.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Pd", {10.5, 6.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Ni", {10.5, 7.5, 1.0643133418463764}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Bk", {11.5, 1.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Tb", {11.5, 2.5, 1.0643133418463764}]}, {}, 
    {RGBColor[1, 0, 0], Text["Rg", {11.5, 4.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Au", {11.5, 5.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Ag", {11.5, 6.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Cu", {11.5, 7.5, 1.0643133418463764}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Cf", {12.5, 1.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Dy", {12.5, 2.5, 1.0643133418463764}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uub", {12.5, 4.5, 1.0643133418463764}]}, 
    {Text["Hg", {12.5, 5.5, 7.531684408763936}], 
     Text["Hg", {12.5, 5.5, 0.9356866581536236}]}, 
    {RGBColor[1, 0, 0], Text["Cd", {12.5, 6.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Zn", {12.5, 7.5, 1.0643133418463764}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Es", {13.5, 1.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Ho", {13.5, 2.5, 1.0643133418463764}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uut", {13.5, 4.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Tl", {13.5, 5.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["In", {13.5, 6.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Ga", {13.5, 7.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Al", {13.5, 8.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["B", {13.5, 9.5, 1.0643133418463764}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Fm", {14.5, 1.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Er", {14.5, 2.5, 1.0643133418463764}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uuq", {14.5, 4.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Pb", {14.5, 5.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Sn", {14.5, 6.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Ge", {14.5, 7.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Si", {14.5, 8.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["C", {14.5, 9.5, 1.0643133418463764}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Md", {15.5, 1.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Tm", {15.5, 2.5, 1.0643133418463764}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uup", {15.5, 4.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Bi", {15.5, 5.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Sb", {15.5, 6.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["As", {15.5, 7.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["P", {15.5, 8.5, 1.0643133418463764}]}, 
    {Text["N", {15.5, 9.5, 4.902260528116916}], 
     Text["N", {15.5, 9.5, 0.9356866581536236}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["No", {16.5, 1.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Yb", {16.5, 2.5, 1.0643133418463764}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uuh", {16.5, 4.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Po", {16.5, 5.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Te", {16.5, 6.5, 1.0643133418463764}]}, 
    {Text["Se", {16.5, 7.5, 7.5407857230102815}], 
     Text["Se", {16.5, 7.5, 0.9356866581536236}]}, 
    {Text["S", {16.5, 8.5, 7.245144540890932}], 
     Text["S", {16.5, 8.5, 0.9356866581536236}]}, 
    {Text["O", {16.5, 9.5, 5.105089792854619}], 
     Text["O", {16.5, 9.5, 0.9356866581536236}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Lr", {17.5, 1.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["Lu", {17.5, 2.5, 1.0643133418463764}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uus", {17.5, 4.5, 1.0643133418463764}]}, 
    {RGBColor[1, 0, 0], Text["At", {17.5, 5.5, 1.0643133418463764}]}, 
    {Text["I", {17.5, 6.5, 6.772397425699446}], 
     Text["I", {17.5, 6.5, 0.9356866581536236}]}, 
    {Text["Br", {17.5, 7.5, 6.441040289745003}], 
     Text["Br", {17.5, 7.5, 0.9356866581536236}]}, 
    {Text["Cl", {17.5, 8.5, 6.0971597267331274}], 
     Text["Cl", {17.5, 8.5, 0.9356866581536236}]}, 
    {Text["F", {17.5, 9.5, 5.035029011941388}], 
     Text["F", {17.5, 9.5, 0.9356866581536236}]}, {}}, 
   {{}, {}, {}, {RGBColor[1, 0, 0], Text["Uuo", 
      {18.5, 4.5, 1.0643133418463764}]}, 
    {Text["Rn", {18.5, 5.5, 5.996558529294387}], 
     Text["Rn", {18.5, 5.5, 0.9356866581536236}]}, 
    {Text["Xe", {18.5, 6.5, 5.733400846705691}], 
     Text["Xe", {18.5, 6.5, 0.9356866581536236}]}, 
    {Text["Kr", {18.5, 7.5, 5.408607394634437}], 
     Text["Kr", {18.5, 7.5, 0.9356866581536236}]}, 
    {Text["Ar", {18.5, 8.5, 5.08073188069836}], 
     Text["Ar", {18.5, 8.5, 0.9356866581536236}]}, 
    {Text["Ne", {18.5, 9.5, 3.8575528112845556}], 
     Text["Ne", {18.5, 9.5, 0.9356866581536236}]}, 
    {Text["He", {18.5, 10.5, 1.7110470390241737}], 
     Text["He", {18.5, 10.5, 0.9356866581536236}]}}}}, 
 ViewPoint -> {3, -4, 15}, BoxRatios -> {2, 1, 1}, ImageSize -> 500, 
 SphericalRegion -> True, Boxed -> False, Axes -> {False, False, True}, 
 Ticks -> {None, None, {{2.302585092994046, "10"}, {3.912023005428146, "50"}, 
    {4.605170185988092, "100"}, {6.214608098422191, "500"}, 
    {6.907755278982137, "1000"}, {8.517193191416238, "5000"}, 
    {9.210340371976184, "1*10^4"}, {10.819778284410283, "5*10^4"}, 
    {2.995732273553991, ""}, {3.4011973816621555, ""}, 
    {3.6888794541139363, ""}, {4.0943445622221, ""}, {4.248495242049359, ""}, 
    {4.382026634673881, ""}, {4.499809670330265, ""}, 
    {5.298317366548036, ""}, {5.703782474656201, ""}, 
    {5.991464547107982, ""}, {6.396929655216146, ""}, 
    {6.551080335043404, ""}, {6.684611727667927, ""}, 
    {6.802394763324311, ""}, {7.600902459542082, ""}, 
    {8.006367567650246, ""}, {8.294049640102028, ""}, 
    {8.699514748210191, ""}, {8.85366542803745, ""}, {8.987196820661973, ""}, 
    {9.104979856318357, ""}, {9.903487552536127, ""}, 
    {10.308952660644293, ""}, {10.596634733096073, ""}}}, 
 BoxStyle -> Directive[FontFamily -> "Helvetica", FontSize -> 14, 
   RGBColor[1., 1., 1.]], TicksStyle -> Directive[FontFamily -> "Helvetica", 
   FontSize -> 14, RGBColor[1., 1., 1.]], PlotRange -> All, 
 Background -> RGBColor[0, 0, 0]]
