Graphics3D[{{{{}, {}, {}, {}, {}, {}, Cuboid[{1, 7, 1}, 
     {2, 8, 5.616771097666572}], Cuboid[{1, 8, 1}, 
     {2, 9, 5.424950017481403}], Cuboid[{1, 9, 1}, 
     {2, 10, 5.204006687076795}], Cuboid[{1, 10, 1}, 
     {2, 11, 4.787491742782046}]}, {{}, {}, {}, {}, {}, {}, {}, 
    Cuboid[{2, 8, 1}, {3, 9, 5.153291594497779}], {}, {}}, 
   {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, 
    {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, 
   {Cuboid[{6, 1, 1}, {7, 2, 5.225746673713202}], {}, {}, {}, {}, {}, {}, {}, 
    {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, 
   {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, 
    {}, {}}, {{}, {}, {}, {}, Cuboid[{10, 5, 1}, 
     {11, 6, 5.1647859739235145}], Cuboid[{10, 6, 1}, 
     {11, 7, 5.093750200806762}], Cuboid[{10, 7, 1}, 
     {11, 8, 5.093750200806762}], {}, {}, {}}, 
   {{}, {}, {}, {}, Cuboid[{11, 5, 1}, {12, 6, 5.111987788356544}], 
    Cuboid[{11, 6, 1}, {12, 7, 5.147494476813453}], 
    Cuboid[{11, 7, 1}, {12, 8, 4.941642422609304}], {}, {}, {}}, 
   {{}, {}, {}, {}, Cuboid[{12, 5, 1}, {13, 6, 5.043425116919247}], 
    Cuboid[{12, 6, 1}, {13, 7, 5.062595033026967}], 
    Cuboid[{12, 7, 1}, {13, 8, 4.9344739331306915}], {}, {}, {}}, 
   {{}, {}, {}, {}, Cuboid[{13, 5, 1}, {14, 6, 5.278114659230517}], 
    Cuboid[{13, 6, 1}, {14, 7, 5.262690188904886}], 
    Cuboid[{13, 7, 1}, {14, 8, 5.231108616854587}], {}, {}, {}}, 
   {{}, {}, {}, {}, Cuboid[{14, 5, 1}, {15, 6, 5.308267697401205}], 
    Cuboid[{14, 6, 1}, {15, 7, 5.37989735354046}], {}, 
    Cuboid[{14, 8, 1}, {15, 9, 5.3471075307174685}], 
    Cuboid[{14, 9, 1}, {15, 10, 5.135798437050262}], {}}, 
   {{}, {}, {}, {}, {}, {}, Cuboid[{15, 7, 1}, {16, 8, 5.220355825078324}], 
    Cuboid[{15, 8, 1}, {16, 9, 5.19295685089021}], 
    Cuboid[{15, 9, 1}, {16, 10, 5.043425116919247}], {}}, 
   {{}, {}, {}, {}, {}, Cuboid[{16, 6, 1}, {17, 7, 5.327876168789581}], 
    Cuboid[{16, 7, 1}, {17, 8, 5.247024072160486}], 
    Cuboid[{16, 8, 1}, {17, 9, 5.19295685089021}], 
    Cuboid[{16, 9, 1}, {17, 10, 5.0238805208462765}], {}}, 
   {{}, {}, {}, {}, {}, Cuboid[{17, 6, 1}, {18, 7, 5.288267030694535}], 
    Cuboid[{17, 7, 1}, {18, 8, 5.220355825078324}], 
    Cuboid[{17, 8, 1}, {18, 9, 5.1647859739235145}], 
    Cuboid[{17, 9, 1}, {18, 10, 4.990432586778736}], {}}, 
   {{}, {}, {}, {}, {}, Cuboid[{18, 6, 1}, {19, 7, 5.375278407684165}], 
    Cuboid[{18, 7, 1}, {19, 8, 5.308267697401205}], 
    Cuboid[{18, 8, 1}, {19, 9, 5.236441962829949}], 
    Cuboid[{18, 9, 1}, {19, 10, 5.0369526024136295}], 
    Cuboid[{18, 10, 1}, {19, 11, 4.941642422609304}]}}, GrayLevel[0], 
  {{{}, {}, {}, {RGBColor[1, 0, 0], Text["Fr", 
      {1.5, 4.5, 1.0082927935488453}]}, {RGBColor[1, 0, 0], 
     Text["Cs", {1.5, 5.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Rb", {1.5, 6.5, 1.0082927935488453}]}, 
    {Text["K", {1.5, 7.5, 5.625063891215417}], 
     Text["K", {1.5, 7.5, 0.9917072064511547}]}, 
    {Text["Na", {1.5, 8.5, 5.433242811030248}], 
     Text["Na", {1.5, 8.5, 0.9917072064511547}]}, 
    {Text["Li", {1.5, 9.5, 5.21229948062564}], 
     Text["Li", {1.5, 9.5, 0.9917072064511547}]}, 
    {Text["H", {1.5, 10.5, 4.795784536330891}], 
     Text["H", {1.5, 10.5, 0.9917072064511547}]}}, 
   {{}, {}, {}, {RGBColor[1, 0, 0], Text["Ra", 
      {2.5, 4.5, 1.0082927935488453}]}, {RGBColor[1, 0, 0], 
     Text["Ba", {2.5, 5.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Sr", {2.5, 6.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Ca", {2.5, 7.5, 1.0082927935488453}]}, 
    {Text["Mg", {2.5, 8.5, 5.161584388046625}], 
     Text["Mg", {2.5, 8.5, 0.9917072064511547}]}, 
    {RGBColor[1, 0, 0], Text["Be", {2.5, 9.5, 1.0082927935488453}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Ac", {3.5, 1.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["La", {3.5, 2.5, 1.0082927935488453}]}, {}, {}, 
    {}, {RGBColor[1, 0, 0], Text["Y", {3.5, 6.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Sc", {3.5, 7.5, 1.0082927935488453}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Th", {4.5, 1.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Ce", {4.5, 2.5, 1.0082927935488453}]}, {}, 
    {RGBColor[1, 0, 0], Text["Rf", {4.5, 4.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Hf", {4.5, 5.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Zr", {4.5, 6.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Ti", {4.5, 7.5, 1.0082927935488453}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Pa", {5.5, 1.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Pr", {5.5, 2.5, 1.0082927935488453}]}, {}, 
    {RGBColor[1, 0, 0], Text["Db", {5.5, 4.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Ta", {5.5, 5.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Nb", {5.5, 6.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["V", {5.5, 7.5, 1.0082927935488453}]}, {}, {}, 
    {}}, {{Text["U", {6.5, 1.5, 5.234039467262047}], 
     Text["U", {6.5, 1.5, 0.9917072064511547}]}, {RGBColor[1, 0, 0], 
     Text["Nd", {6.5, 2.5, 1.0082927935488453}]}, {}, 
    {RGBColor[1, 0, 0], Text["Sg", {6.5, 4.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["W", {6.5, 5.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Mo", {6.5, 6.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Cr", {6.5, 7.5, 1.0082927935488453}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Np", {7.5, 1.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Pm", {7.5, 2.5, 1.0082927935488453}]}, {}, 
    {RGBColor[1, 0, 0], Text["Bh", {7.5, 4.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Re", {7.5, 5.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Tc", {7.5, 6.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Mn", {7.5, 7.5, 1.0082927935488453}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Pu", {8.5, 1.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Sm", {8.5, 2.5, 1.0082927935488453}]}, {}, 
    {RGBColor[1, 0, 0], Text["Hs", {8.5, 4.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Os", {8.5, 5.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Ru", {8.5, 6.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Fe", {8.5, 7.5, 1.0082927935488453}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Am", {9.5, 1.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Eu", {9.5, 2.5, 1.0082927935488453}]}, {}, 
    {RGBColor[1, 0, 0], Text["Mt", {9.5, 4.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Ir", {9.5, 5.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Rh", {9.5, 6.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Co", {9.5, 7.5, 1.0082927935488453}]}, {}, {}, 
    {}}, {{RGBColor[1, 0, 0], Text["Cm", {10.5, 1.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Gd", {10.5, 2.5, 1.0082927935488453}]}, {}, 
    {RGBColor[1, 0, 0], Text["Ds", {10.5, 4.5, 1.0082927935488453}]}, 
    {Text["Pt", {10.5, 5.5, 5.17307876747236}], 
     Text["Pt", {10.5, 5.5, 0.9917072064511547}]}, 
    {Text["Pd", {10.5, 6.5, 5.102042994355608}], 
     Text["Pd", {10.5, 6.5, 0.9917072064511547}]}, 
    {Text["Ni", {10.5, 7.5, 5.102042994355608}], 
     Text["Ni", {10.5, 7.5, 0.9917072064511547}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Bk", {11.5, 1.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Tb", {11.5, 2.5, 1.0082927935488453}]}, {}, 
    {RGBColor[1, 0, 0], Text["Rg", {11.5, 4.5, 1.0082927935488453}]}, 
    {Text["Au", {11.5, 5.5, 5.120280581905389}], 
     Text["Au", {11.5, 5.5, 0.9917072064511547}]}, 
    {Text["Ag", {11.5, 6.5, 5.155787270362298}], 
     Text["Ag", {11.5, 6.5, 0.9917072064511547}]}, 
    {Text["Cu", {11.5, 7.5, 4.949935216158149}], 
     Text["Cu", {11.5, 7.5, 0.9917072064511547}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Cf", {12.5, 1.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Dy", {12.5, 2.5, 1.0082927935488453}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uub", {12.5, 4.5, 1.0082927935488453}]}, 
    {Text["Hg", {12.5, 5.5, 5.051717910468092}], 
     Text["Hg", {12.5, 5.5, 0.9917072064511547}]}, 
    {Text["Cd", {12.5, 6.5, 5.070887826575812}], 
     Text["Cd", {12.5, 6.5, 0.9917072064511547}]}, 
    {Text["Zn", {12.5, 7.5, 4.942766726679537}], 
     Text["Zn", {12.5, 7.5, 0.9917072064511547}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Es", {13.5, 1.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Ho", {13.5, 2.5, 1.0082927935488453}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uut", {13.5, 4.5, 1.0082927935488453}]}, 
    {Text["Tl", {13.5, 5.5, 5.286407452779362}], 
     Text["Tl", {13.5, 5.5, 0.9917072064511547}]}, 
    {Text["In", {13.5, 6.5, 5.270982982453731}], 
     Text["In", {13.5, 6.5, 0.9917072064511547}]}, 
    {Text["Ga", {13.5, 7.5, 5.239401410403432}], 
     Text["Ga", {13.5, 7.5, 0.9917072064511547}]}, 
    {RGBColor[1, 0, 0], Text["Al", {13.5, 8.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["B", {13.5, 9.5, 1.0082927935488453}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Fm", {14.5, 1.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Er", {14.5, 2.5, 1.0082927935488453}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uuq", {14.5, 4.5, 1.0082927935488453}]}, 
    {Text["Pb", {14.5, 5.5, 5.31656049095005}], 
     Text["Pb", {14.5, 5.5, 0.9917072064511547}]}, 
    {Text["Sn", {14.5, 6.5, 5.388190147089305}], 
     Text["Sn", {14.5, 6.5, 0.9917072064511547}]}, 
    {RGBColor[1, 0, 0], Text["Ge", {14.5, 7.5, 1.0082927935488453}]}, 
    {Text["Si", {14.5, 8.5, 5.355400324266314}], 
     Text["Si", {14.5, 8.5, 0.9917072064511547}]}, 
    {Text["C", {14.5, 9.5, 5.144091230599107}], 
     Text["C", {14.5, 9.5, 0.9917072064511547}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Md", {15.5, 1.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Tm", {15.5, 2.5, 1.0082927935488453}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uup", {15.5, 4.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Bi", {15.5, 5.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Sb", {15.5, 6.5, 1.0082927935488453}]}, 
    {Text["As", {15.5, 7.5, 5.22864861862717}], 
     Text["As", {15.5, 7.5, 0.9917072064511547}]}, 
    {Text["P", {15.5, 8.5, 5.201249644439056}], 
     Text["P", {15.5, 8.5, 0.9917072064511547}]}, 
    {Text["N", {15.5, 9.5, 5.051717910468092}], 
     Text["N", {15.5, 9.5, 0.9917072064511547}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["No", {16.5, 1.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Yb", {16.5, 2.5, 1.0082927935488453}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uuh", {16.5, 4.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Po", {16.5, 5.5, 1.0082927935488453}]}, 
    {Text["Te", {16.5, 6.5, 5.3361689623384265}], 
     Text["Te", {16.5, 6.5, 0.9917072064511547}]}, 
    {Text["Se", {16.5, 7.5, 5.255316865709331}], 
     Text["Se", {16.5, 7.5, 0.9917072064511547}]}, 
    {Text["S", {16.5, 8.5, 5.201249644439056}], 
     Text["S", {16.5, 8.5, 0.9917072064511547}]}, 
    {Text["O", {16.5, 9.5, 5.032173314395122}], 
     Text["O", {16.5, 9.5, 0.9917072064511547}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Lr", {17.5, 1.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["Lu", {17.5, 2.5, 1.0082927935488453}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uus", {17.5, 4.5, 1.0082927935488453}]}, 
    {RGBColor[1, 0, 0], Text["At", {17.5, 5.5, 1.0082927935488453}]}, 
    {Text["I", {17.5, 6.5, 5.2965598242433805}], 
     Text["I", {17.5, 6.5, 0.9917072064511547}]}, 
    {Text["Br", {17.5, 7.5, 5.22864861862717}], 
     Text["Br", {17.5, 7.5, 0.9917072064511547}]}, 
    {Text["Cl", {17.5, 8.5, 5.17307876747236}], 
     Text["Cl", {17.5, 8.5, 0.9917072064511547}]}, 
    {Text["F", {17.5, 9.5, 4.998725380327581}], 
     Text["F", {17.5, 9.5, 0.9917072064511547}]}, {}}, 
   {{}, {}, {}, {RGBColor[1, 0, 0], Text["Uuo", 
      {18.5, 4.5, 1.0082927935488453}]}, {RGBColor[1, 0, 0], 
     Text["Rn", {18.5, 5.5, 1.0082927935488453}]}, 
    {Text["Xe", {18.5, 6.5, 5.383571201233011}], 
     Text["Xe", {18.5, 6.5, 0.9917072064511547}]}, 
    {Text["Kr", {18.5, 7.5, 5.31656049095005}], 
     Text["Kr", {18.5, 7.5, 0.9917072064511547}]}, 
    {Text["Ar", {18.5, 8.5, 5.2447347563787945}], 
     Text["Ar", {18.5, 8.5, 0.9917072064511547}]}, 
    {Text["Ne", {18.5, 9.5, 5.045245395962475}], 
     Text["Ne", {18.5, 9.5, 0.9917072064511547}]}, 
    {Text["He", {18.5, 10.5, 4.949935216158149}], 
     Text["He", {18.5, 10.5, 0.9917072064511547}]}}}}, 
 ViewPoint -> {3, -4, 15}, BoxRatios -> {2, 1, 1}, ImageSize -> 500, 
 SphericalRegion -> True, Boxed -> False, Axes -> {False, False, True}, 
 Ticks -> {None, None, {{4.605170185988092, "100"}, 
    {6.907755278982137, "1000"}, {6.214608098422191, "500"}, 
    {8.517193191416238, "5000"}, {5.298317366548036, "200"}, 
    {7.600902459542082, "2000"}, {5.703782474656201, "300"}, 
    {8.006367567650246, "3000"}, {5.0106352940962555, "150"}, 
    {7.313220387090301, "1500"}, {6.551080335043404, "700"}, 
    {8.85366542803745, "7000"}, {4.700480365792417, ""}, 
    {4.787491742782046, ""}, {4.867534450455582, ""}, 
    {4.941642422609304, ""}, {5.075173815233827, ""}, 
    {5.135798437050262, ""}, {5.19295685089021, ""}, {5.247024072160486, ""}, 
    {5.991464547107982, ""}, {6.396929655216146, ""}, 
    {6.684611727667927, ""}, {6.802394763324311, ""}, 
    {7.003065458786462, ""}, {7.090076835776092, ""}, 
    {7.170119543449628, ""}, {7.24422751560335, ""}, 
    {7.3777589082278725, ""}, {7.438383530044307, ""}, 
    {7.495541943884256, ""}, {7.549609165154532, ""}, 
    {8.294049640102028, ""}, {8.699514748210191, ""}}}, 
 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]]
