Graphics3D[{{{{}, {}, {}, Cuboid[{1, 4, 1}, {2, 5, 1.0986122886681098}], 
    Cuboid[{1, 5, 1}, {2, 6, 0.}], Cuboid[{1, 6, 1}, {2, 7, 0.}], 
    Cuboid[{1, 7, 1}, {2, 8, 0.}], Cuboid[{1, 8, 1}, {2, 9, 0.}], 
    Cuboid[{1, 9, 1}, {2, 10, 0.}], Cuboid[{1, 10, 1}, {2, 11, 0.}]}, 
   {{}, {}, {}, Cuboid[{2, 4, 1}, {3, 5, 0.6931471805599453}], 
    Cuboid[{2, 5, 1}, {3, 6, 0.6931471805599453}], 
    Cuboid[{2, 6, 1}, {3, 7, 0.6931471805599453}], 
    Cuboid[{2, 7, 1}, {3, 8, 0.6931471805599453}], 
    Cuboid[{2, 8, 1}, {3, 9, 0.6931471805599453}], 
    Cuboid[{2, 9, 1}, {3, 10, 0.6931471805599453}], {}}, 
   {Cuboid[{3, 1, 1}, {4, 2, 1.0986122886681098}], 
    Cuboid[{3, 2, 1}, {4, 3, 1.0986122886681098}], {}, {}, {}, 
    Cuboid[{3, 6, 1}, {4, 7, 1.0986122886681098}], 
    Cuboid[{3, 7, 1}, {4, 8, 1.0986122886681098}], {}, {}, {}}, 
   {Cuboid[{4, 1, 1}, {5, 2, 1.3862943611198906}], 
    Cuboid[{4, 2, 1}, {5, 3, 1.3862943611198906}], {}, 
    Cuboid[{4, 4, 1}, {5, 5, 1.3862943611198906}], 
    Cuboid[{4, 5, 1}, {5, 6, 1.3862943611198906}], 
    Cuboid[{4, 6, 1}, {5, 7, 1.3862943611198906}], 
    Cuboid[{4, 7, 1}, {5, 8, 1.3862943611198906}], {}, {}, {}}, 
   {Cuboid[{5, 1, 1}, {6, 2, 1.6094379124341003}], 
    Cuboid[{5, 2, 1}, {6, 3, 1.3862943611198906}], {}, 
    Cuboid[{5, 4, 1}, {6, 5, 1.6094379124341003}], 
    Cuboid[{5, 5, 1}, {6, 6, 1.6094379124341003}], 
    Cuboid[{5, 6, 1}, {6, 7, 1.6094379124341003}], 
    Cuboid[{5, 7, 1}, {6, 8, 1.6094379124341003}], {}, {}, {}}, 
   {Cuboid[{6, 1, 1}, {7, 2, 1.791759469228055}], 
    Cuboid[{6, 2, 1}, {7, 3, 1.0986122886681098}], {}, 
    Cuboid[{6, 4, 1}, {7, 5, 1.791759469228055}], 
    Cuboid[{6, 5, 1}, {7, 6, 1.791759469228055}], 
    Cuboid[{6, 6, 1}, {7, 7, 1.791759469228055}], 
    Cuboid[{6, 7, 1}, {7, 8, 1.791759469228055}], {}, {}, {}}, 
   {Cuboid[{7, 1, 1}, {8, 2, 1.791759469228055}], 
    Cuboid[{7, 2, 1}, {8, 3, 1.0986122886681098}], {}, 
    Cuboid[{7, 4, 1}, {8, 5, 1.9459101490553132}], 
    Cuboid[{7, 5, 1}, {8, 6, 1.9459101490553132}], 
    Cuboid[{7, 6, 1}, {8, 7, 1.9459101490553132}], 
    Cuboid[{7, 7, 1}, {8, 8, 1.3862943611198906}], {}, {}, {}}, 
   {Cuboid[{8, 1, 1}, {9, 2, 1.791759469228055}], 
    Cuboid[{8, 2, 1}, {9, 3, 1.0986122886681098}], {}, {}, 
    Cuboid[{8, 5, 1}, {9, 6, 1.791759469228055}], 
    Cuboid[{8, 6, 1}, {9, 7, 1.791759469228055}], 
    Cuboid[{8, 7, 1}, {9, 8, 1.0986122886681098}], {}, {}, {}}, 
   {Cuboid[{9, 1, 1}, {10, 2, 1.3862943611198906}], 
    Cuboid[{9, 2, 1}, {10, 3, 1.0986122886681098}], {}, {}, 
    Cuboid[{9, 5, 1}, {10, 6, 1.791759469228055}], 
    Cuboid[{9, 6, 1}, {10, 7, 1.791759469228055}], 
    Cuboid[{9, 7, 1}, {10, 8, 1.3862943611198906}], {}, {}, {}}, 
   {Cuboid[{10, 1, 1}, {11, 2, 1.3862943611198906}], 
    Cuboid[{10, 2, 1}, {11, 3, 1.0986122886681098}], {}, {}, 
    Cuboid[{10, 5, 1}, {11, 6, 1.791759469228055}], 
    Cuboid[{10, 6, 1}, {11, 7, 1.3862943611198906}], 
    Cuboid[{10, 7, 1}, {11, 8, 0.6931471805599453}], {}, {}, {}}, 
   {Cuboid[{11, 1, 1}, {12, 2, 1.3862943611198906}], 
    Cuboid[{11, 2, 1}, {12, 3, 1.0986122886681098}], {}, {}, 
    Cuboid[{11, 5, 1}, {12, 6, 1.6094379124341003}], 
    Cuboid[{11, 6, 1}, {12, 7, 0.6931471805599453}], 
    Cuboid[{11, 7, 1}, {12, 8, 0.6931471805599453}], {}, {}, {}}, 
   {Cuboid[{12, 1, 1}, {13, 2, 1.3862943611198906}], 
    Cuboid[{12, 2, 1}, {13, 3, 1.0986122886681098}], {}, {}, 
    Cuboid[{12, 5, 1}, {13, 6, 0.6931471805599453}], 
    Cuboid[{12, 6, 1}, {13, 7, 0.6931471805599453}], 
    Cuboid[{12, 7, 1}, {13, 8, 0.6931471805599453}], {}, {}, {}}, 
   {Cuboid[{13, 1, 1}, {14, 2, 1.3862943611198906}], 
    Cuboid[{13, 2, 1}, {14, 3, 1.0986122886681098}], {}, {}, 
    Cuboid[{13, 5, 1}, {14, 6, 1.0986122886681098}], 
    Cuboid[{13, 6, 1}, {14, 7, 1.0986122886681098}], 
    Cuboid[{13, 7, 1}, {14, 8, 1.0986122886681098}], 
    Cuboid[{13, 8, 1}, {14, 9, 1.0986122886681098}], 
    Cuboid[{13, 9, 1}, {14, 10, 1.0986122886681098}], {}}, 
   {Cuboid[{14, 1, 1}, {15, 2, 1.0986122886681098}], 
    Cuboid[{14, 2, 1}, {15, 3, 1.0986122886681098}], {}, {}, 
    Cuboid[{14, 5, 1}, {15, 6, 1.3862943611198906}], 
    Cuboid[{14, 6, 1}, {15, 7, 1.3862943611198906}], 
    Cuboid[{14, 7, 1}, {15, 8, 1.3862943611198906}], 
    Cuboid[{14, 8, 1}, {15, 9, 1.3862943611198906}], 
    Cuboid[{14, 9, 1}, {15, 10, 1.3862943611198906}], {}}, 
   {Cuboid[{15, 1, 1}, {16, 2, 1.0986122886681098}], 
    Cuboid[{15, 2, 1}, {16, 3, 1.0986122886681098}], {}, {}, 
    Cuboid[{15, 5, 1}, {16, 6, 1.6094379124341003}], 
    Cuboid[{15, 6, 1}, {16, 7, 1.6094379124341003}], 
    Cuboid[{15, 7, 1}, {16, 8, 1.6094379124341003}], 
    Cuboid[{15, 8, 1}, {16, 9, 1.6094379124341003}], 
    Cuboid[{15, 9, 1}, {16, 10, 1.0986122886681098}], {}}, 
   {Cuboid[{16, 1, 1}, {17, 2, 1.0986122886681098}], 
    Cuboid[{16, 2, 1}, {17, 3, 1.0986122886681098}], {}, {}, 
    Cuboid[{16, 5, 1}, {17, 6, 1.791759469228055}], 
    Cuboid[{16, 6, 1}, {17, 7, 1.791759469228055}], 
    Cuboid[{16, 7, 1}, {17, 8, 1.791759469228055}], 
    Cuboid[{16, 8, 1}, {17, 9, 1.791759469228055}], 
    Cuboid[{16, 9, 1}, {17, 10, 0.6931471805599453}], {}}, 
   {Cuboid[{17, 1, 1}, {18, 2, 1.0986122886681098}], 
    Cuboid[{17, 2, 1}, {18, 3, 1.0986122886681098}], {}, {}, 
    Cuboid[{17, 5, 1}, {18, 6, 1.9459101490553132}], 
    Cuboid[{17, 6, 1}, {18, 7, 1.9459101490553132}], 
    Cuboid[{17, 7, 1}, {18, 8, 1.9459101490553132}], 
    Cuboid[{17, 8, 1}, {18, 9, 1.6094379124341003}], 
    Cuboid[{17, 9, 1}, {18, 10, 0.}], {}}, {{}, {}, {}, {}, 
    Cuboid[{18, 5, 1}, {19, 6, 1.791759469228055}], 
    Cuboid[{18, 6, 1}, {19, 7, 1.791759469228055}], 
    Cuboid[{18, 7, 1}, {19, 8, 0.6931471805599453}], {}, {}, {}}}, 
  GrayLevel[0], {{{}, {}, {}, {Text["Fr", {1.5, 4.5, 1.118071390158663}], 
     Text["Fr", {1.5, 4.5, 0.9805408985094468}]}, 
    {Text["Cs", {1.5, 5.5, 0.}], Text["Cs", {1.5, 5.5, 1.0194591014905532}]}, 
    {Text["Rb", {1.5, 6.5, 0.}], Text["Rb", {1.5, 6.5, 1.0194591014905532}]}, 
    {Text["K", {1.5, 7.5, 0.}], Text["K", {1.5, 7.5, 1.0194591014905532}]}, 
    {Text["Na", {1.5, 8.5, 0.}], Text["Na", {1.5, 8.5, 1.0194591014905532}]}, 
    {Text["Li", {1.5, 9.5, 0.}], Text["Li", {1.5, 9.5, 1.0194591014905532}]}, 
    {Text["H", {1.5, 10.5, 0.}], Text["H", {1.5, 10.5, 
       1.0194591014905532}]}}, {{}, {}, {}, 
    {Text["Ra", {2.5, 4.5, 0.7126062820504984}], 
     Text["Ra", {2.5, 4.5, 1.0194591014905532}]}, 
    {Text["Ba", {2.5, 5.5, 0.7126062820504984}], 
     Text["Ba", {2.5, 5.5, 1.0194591014905532}]}, 
    {Text["Sr", {2.5, 6.5, 0.7126062820504984}], 
     Text["Sr", {2.5, 6.5, 1.0194591014905532}]}, 
    {Text["Ca", {2.5, 7.5, 0.7126062820504984}], 
     Text["Ca", {2.5, 7.5, 1.0194591014905532}]}, 
    {Text["Mg", {2.5, 8.5, 0.7126062820504984}], 
     Text["Mg", {2.5, 8.5, 1.0194591014905532}]}, 
    {Text["Be", {2.5, 9.5, 0.7126062820504984}], 
     Text["Be", {2.5, 9.5, 1.0194591014905532}]}, {}}, 
   {{Text["Ac", {3.5, 1.5, 1.118071390158663}], 
     Text["Ac", {3.5, 1.5, 0.9805408985094468}]}, 
    {Text["La", {3.5, 2.5, 1.118071390158663}], 
     Text["La", {3.5, 2.5, 0.9805408985094468}]}, {}, {}, {}, 
    {Text["Y", {3.5, 6.5, 1.118071390158663}], 
     Text["Y", {3.5, 6.5, 0.9805408985094468}]}, 
    {Text["Sc", {3.5, 7.5, 1.118071390158663}], 
     Text["Sc", {3.5, 7.5, 0.9805408985094468}]}, {}, {}, {}}, 
   {{Text["Th", {4.5, 1.5, 1.4057534626104438}], 
     Text["Th", {4.5, 1.5, 0.9805408985094468}]}, 
    {Text["Ce", {4.5, 2.5, 1.4057534626104438}], 
     Text["Ce", {4.5, 2.5, 0.9805408985094468}]}, {}, 
    {Text["Rf", {4.5, 4.5, 1.4057534626104438}], 
     Text["Rf", {4.5, 4.5, 0.9805408985094468}]}, 
    {Text["Hf", {4.5, 5.5, 1.4057534626104438}], 
     Text["Hf", {4.5, 5.5, 0.9805408985094468}]}, 
    {Text["Zr", {4.5, 6.5, 1.4057534626104438}], 
     Text["Zr", {4.5, 6.5, 0.9805408985094468}]}, 
    {Text["Ti", {4.5, 7.5, 1.4057534626104438}], 
     Text["Ti", {4.5, 7.5, 0.9805408985094468}]}, {}, {}, {}}, 
   {{Text["Pa", {5.5, 1.5, 1.6288970139246535}], 
     Text["Pa", {5.5, 1.5, 0.9805408985094468}]}, 
    {Text["Pr", {5.5, 2.5, 1.4057534626104438}], 
     Text["Pr", {5.5, 2.5, 0.9805408985094468}]}, {}, 
    {Text["Db", {5.5, 4.5, 1.6288970139246535}], 
     Text["Db", {5.5, 4.5, 0.9805408985094468}]}, 
    {Text["Ta", {5.5, 5.5, 1.6288970139246535}], 
     Text["Ta", {5.5, 5.5, 0.9805408985094468}]}, 
    {Text["Nb", {5.5, 6.5, 1.6288970139246535}], 
     Text["Nb", {5.5, 6.5, 0.9805408985094468}]}, 
    {Text["V", {5.5, 7.5, 1.6288970139246535}], 
     Text["V", {5.5, 7.5, 0.9805408985094468}]}, {}, {}, {}}, 
   {{Text["U", {6.5, 1.5, 1.8112185707186081}], 
     Text["U", {6.5, 1.5, 0.9805408985094468}]}, 
    {Text["Nd", {6.5, 2.5, 1.118071390158663}], 
     Text["Nd", {6.5, 2.5, 0.9805408985094468}]}, {}, 
    {Text["Sg", {6.5, 4.5, 1.8112185707186081}], 
     Text["Sg", {6.5, 4.5, 0.9805408985094468}]}, 
    {Text["W", {6.5, 5.5, 1.8112185707186081}], 
     Text["W", {6.5, 5.5, 0.9805408985094468}]}, 
    {Text["Mo", {6.5, 6.5, 1.8112185707186081}], 
     Text["Mo", {6.5, 6.5, 0.9805408985094468}]}, 
    {Text["Cr", {6.5, 7.5, 1.8112185707186081}], 
     Text["Cr", {6.5, 7.5, 0.9805408985094468}]}, {}, {}, {}}, 
   {{Text["Np", {7.5, 1.5, 1.8112185707186081}], 
     Text["Np", {7.5, 1.5, 0.9805408985094468}]}, 
    {Text["Pm", {7.5, 2.5, 1.118071390158663}], 
     Text["Pm", {7.5, 2.5, 0.9805408985094468}]}, {}, 
    {Text["Bh", {7.5, 4.5, 1.9653692505458664}], 
     Text["Bh", {7.5, 4.5, 0.9805408985094468}]}, 
    {Text["Re", {7.5, 5.5, 1.9653692505458664}], 
     Text["Re", {7.5, 5.5, 0.9805408985094468}]}, 
    {Text["Tc", {7.5, 6.5, 1.9653692505458664}], 
     Text["Tc", {7.5, 6.5, 0.9805408985094468}]}, 
    {Text["Mn", {7.5, 7.5, 1.4057534626104438}], 
     Text["Mn", {7.5, 7.5, 0.9805408985094468}]}, {}, {}, {}}, 
   {{Text["Pu", {8.5, 1.5, 1.8112185707186081}], 
     Text["Pu", {8.5, 1.5, 0.9805408985094468}]}, 
    {Text["Sm", {8.5, 2.5, 1.118071390158663}], 
     Text["Sm", {8.5, 2.5, 0.9805408985094468}]}, {}, 
    {RGBColor[1, 0, 0], Text["Hs", {8.5, 4.5, 1.0194591014905532}]}, 
    {Text["Os", {8.5, 5.5, 1.8112185707186081}], 
     Text["Os", {8.5, 5.5, 0.9805408985094468}]}, 
    {Text["Ru", {8.5, 6.5, 1.8112185707186081}], 
     Text["Ru", {8.5, 6.5, 0.9805408985094468}]}, 
    {Text["Fe", {8.5, 7.5, 1.118071390158663}], 
     Text["Fe", {8.5, 7.5, 0.9805408985094468}]}, {}, {}, {}}, 
   {{Text["Am", {9.5, 1.5, 1.4057534626104438}], 
     Text["Am", {9.5, 1.5, 0.9805408985094468}]}, 
    {Text["Eu", {9.5, 2.5, 1.118071390158663}], 
     Text["Eu", {9.5, 2.5, 0.9805408985094468}]}, {}, 
    {RGBColor[1, 0, 0], Text["Mt", {9.5, 4.5, 1.0194591014905532}]}, 
    {Text["Ir", {9.5, 5.5, 1.8112185707186081}], 
     Text["Ir", {9.5, 5.5, 0.9805408985094468}]}, 
    {Text["Rh", {9.5, 6.5, 1.8112185707186081}], 
     Text["Rh", {9.5, 6.5, 0.9805408985094468}]}, 
    {Text["Co", {9.5, 7.5, 1.4057534626104438}], 
     Text["Co", {9.5, 7.5, 0.9805408985094468}]}, {}, {}, {}}, 
   {{Text["Cm", {10.5, 1.5, 1.4057534626104438}], 
     Text["Cm", {10.5, 1.5, 0.9805408985094468}]}, 
    {Text["Gd", {10.5, 2.5, 1.118071390158663}], 
     Text["Gd", {10.5, 2.5, 0.9805408985094468}]}, {}, 
    {RGBColor[1, 0, 0], Text["Ds", {10.5, 4.5, 1.0194591014905532}]}, 
    {Text["Pt", {10.5, 5.5, 1.8112185707186081}], 
     Text["Pt", {10.5, 5.5, 0.9805408985094468}]}, 
    {Text["Pd", {10.5, 6.5, 1.4057534626104438}], 
     Text["Pd", {10.5, 6.5, 0.9805408985094468}]}, 
    {Text["Ni", {10.5, 7.5, 0.7126062820504984}], 
     Text["Ni", {10.5, 7.5, 1.0194591014905532}]}, {}, {}, {}}, 
   {{Text["Bk", {11.5, 1.5, 1.4057534626104438}], 
     Text["Bk", {11.5, 1.5, 0.9805408985094468}]}, 
    {Text["Tb", {11.5, 2.5, 1.118071390158663}], 
     Text["Tb", {11.5, 2.5, 0.9805408985094468}]}, {}, 
    {RGBColor[1, 0, 0], Text["Rg", {11.5, 4.5, 1.0194591014905532}]}, 
    {Text["Au", {11.5, 5.5, 1.6288970139246535}], 
     Text["Au", {11.5, 5.5, 0.9805408985094468}]}, 
    {Text["Ag", {11.5, 6.5, 0.7126062820504984}], 
     Text["Ag", {11.5, 6.5, 1.0194591014905532}]}, 
    {Text["Cu", {11.5, 7.5, 0.7126062820504984}], 
     Text["Cu", {11.5, 7.5, 1.0194591014905532}]}, {}, {}, {}}, 
   {{Text["Cf", {12.5, 1.5, 1.4057534626104438}], 
     Text["Cf", {12.5, 1.5, 0.9805408985094468}]}, 
    {Text["Dy", {12.5, 2.5, 1.118071390158663}], 
     Text["Dy", {12.5, 2.5, 0.9805408985094468}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uub", {12.5, 4.5, 1.0194591014905532}]}, 
    {Text["Hg", {12.5, 5.5, 0.7126062820504984}], 
     Text["Hg", {12.5, 5.5, 1.0194591014905532}]}, 
    {Text["Cd", {12.5, 6.5, 0.7126062820504984}], 
     Text["Cd", {12.5, 6.5, 1.0194591014905532}]}, 
    {Text["Zn", {12.5, 7.5, 0.7126062820504984}], 
     Text["Zn", {12.5, 7.5, 1.0194591014905532}]}, {}, {}, {}}, 
   {{Text["Es", {13.5, 1.5, 1.4057534626104438}], 
     Text["Es", {13.5, 1.5, 0.9805408985094468}]}, 
    {Text["Ho", {13.5, 2.5, 1.118071390158663}], 
     Text["Ho", {13.5, 2.5, 0.9805408985094468}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uut", {13.5, 4.5, 1.0194591014905532}]}, 
    {Text["Tl", {13.5, 5.5, 1.118071390158663}], 
     Text["Tl", {13.5, 5.5, 0.9805408985094468}]}, 
    {Text["In", {13.5, 6.5, 1.118071390158663}], 
     Text["In", {13.5, 6.5, 0.9805408985094468}]}, 
    {Text["Ga", {13.5, 7.5, 1.118071390158663}], 
     Text["Ga", {13.5, 7.5, 0.9805408985094468}]}, 
    {Text["Al", {13.5, 8.5, 1.118071390158663}], 
     Text["Al", {13.5, 8.5, 0.9805408985094468}]}, 
    {Text["B", {13.5, 9.5, 1.118071390158663}], 
     Text["B", {13.5, 9.5, 0.9805408985094468}]}, {}}, 
   {{Text["Fm", {14.5, 1.5, 1.118071390158663}], 
     Text["Fm", {14.5, 1.5, 0.9805408985094468}]}, 
    {Text["Er", {14.5, 2.5, 1.118071390158663}], 
     Text["Er", {14.5, 2.5, 0.9805408985094468}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uuq", {14.5, 4.5, 1.0194591014905532}]}, 
    {Text["Pb", {14.5, 5.5, 1.4057534626104438}], 
     Text["Pb", {14.5, 5.5, 0.9805408985094468}]}, 
    {Text["Sn", {14.5, 6.5, 1.4057534626104438}], 
     Text["Sn", {14.5, 6.5, 0.9805408985094468}]}, 
    {Text["Ge", {14.5, 7.5, 1.4057534626104438}], 
     Text["Ge", {14.5, 7.5, 0.9805408985094468}]}, 
    {Text["Si", {14.5, 8.5, 1.4057534626104438}], 
     Text["Si", {14.5, 8.5, 0.9805408985094468}]}, 
    {Text["C", {14.5, 9.5, 1.4057534626104438}], 
     Text["C", {14.5, 9.5, 0.9805408985094468}]}, {}}, 
   {{Text["Md", {15.5, 1.5, 1.118071390158663}], 
     Text["Md", {15.5, 1.5, 0.9805408985094468}]}, 
    {Text["Tm", {15.5, 2.5, 1.118071390158663}], 
     Text["Tm", {15.5, 2.5, 0.9805408985094468}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uup", {15.5, 4.5, 1.0194591014905532}]}, 
    {Text["Bi", {15.5, 5.5, 1.6288970139246535}], 
     Text["Bi", {15.5, 5.5, 0.9805408985094468}]}, 
    {Text["Sb", {15.5, 6.5, 1.6288970139246535}], 
     Text["Sb", {15.5, 6.5, 0.9805408985094468}]}, 
    {Text["As", {15.5, 7.5, 1.6288970139246535}], 
     Text["As", {15.5, 7.5, 0.9805408985094468}]}, 
    {Text["P", {15.5, 8.5, 1.6288970139246535}], 
     Text["P", {15.5, 8.5, 0.9805408985094468}]}, 
    {Text["N", {15.5, 9.5, 1.118071390158663}], 
     Text["N", {15.5, 9.5, 0.9805408985094468}]}, {}}, 
   {{Text["No", {16.5, 1.5, 1.118071390158663}], 
     Text["No", {16.5, 1.5, 0.9805408985094468}]}, 
    {Text["Yb", {16.5, 2.5, 1.118071390158663}], 
     Text["Yb", {16.5, 2.5, 0.9805408985094468}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uuh", {16.5, 4.5, 1.0194591014905532}]}, 
    {Text["Po", {16.5, 5.5, 1.8112185707186081}], 
     Text["Po", {16.5, 5.5, 0.9805408985094468}]}, 
    {Text["Te", {16.5, 6.5, 1.8112185707186081}], 
     Text["Te", {16.5, 6.5, 0.9805408985094468}]}, 
    {Text["Se", {16.5, 7.5, 1.8112185707186081}], 
     Text["Se", {16.5, 7.5, 0.9805408985094468}]}, 
    {Text["S", {16.5, 8.5, 1.8112185707186081}], 
     Text["S", {16.5, 8.5, 0.9805408985094468}]}, 
    {Text["O", {16.5, 9.5, 0.7126062820504984}], 
     Text["O", {16.5, 9.5, 1.0194591014905532}]}, {}}, 
   {{Text["Lr", {17.5, 1.5, 1.118071390158663}], 
     Text["Lr", {17.5, 1.5, 0.9805408985094468}]}, 
    {Text["Lu", {17.5, 2.5, 1.118071390158663}], 
     Text["Lu", {17.5, 2.5, 0.9805408985094468}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uus", {17.5, 4.5, 1.0194591014905532}]}, 
    {Text["At", {17.5, 5.5, 1.9653692505458664}], 
     Text["At", {17.5, 5.5, 0.9805408985094468}]}, 
    {Text["I", {17.5, 6.5, 1.9653692505458664}], 
     Text["I", {17.5, 6.5, 0.9805408985094468}]}, 
    {Text["Br", {17.5, 7.5, 1.9653692505458664}], 
     Text["Br", {17.5, 7.5, 0.9805408985094468}]}, 
    {Text["Cl", {17.5, 8.5, 1.6288970139246535}], 
     Text["Cl", {17.5, 8.5, 0.9805408985094468}]}, 
    {Text["F", {17.5, 9.5, 0.}], Text["F", {17.5, 9.5, 1.0194591014905532}]}, 
    {}}, {{}, {}, {}, {RGBColor[1, 0, 0], Text["Uuo", 
      {18.5, 4.5, 1.0194591014905532}]}, 
    {Text["Rn", {18.5, 5.5, 1.8112185707186081}], 
     Text["Rn", {18.5, 5.5, 0.9805408985094468}]}, 
    {Text["Xe", {18.5, 6.5, 1.8112185707186081}], 
     Text["Xe", {18.5, 6.5, 0.9805408985094468}]}, 
    {Text["Kr", {18.5, 7.5, 0.7126062820504984}], 
     Text["Kr", {18.5, 7.5, 1.0194591014905532}]}, 
    {RGBColor[1, 0, 0], Text["Ar", {18.5, 8.5, 1.0194591014905532}]}, 
    {RGBColor[1, 0, 0], Text["Ne", {18.5, 9.5, 1.0194591014905532}]}, 
    {RGBColor[1, 0, 0], Text["He", {18.5, 10.5, 1.0194591014905532}]}}}}, 
 ViewPoint -> {3, -4, 15}, BoxRatios -> {2, 1, 1}, ImageSize -> 500, 
 SphericalRegion -> True, Boxed -> False, Axes -> {False, False, True}, 
 Ticks -> {None, None, {{0., "1.0"}, {2.302585092994046, "10.0"}, 
    {1.6094379124341003, "5.0"}, {3.912023005428146, "50.0"}, 
    {0.6931471805599453, "2.0"}, {2.995732273553991, "20.0"}, 
    {1.0986122886681098, "3.0"}, {3.4011973816621555, "30.0"}, 
    {0.4054651081081644, "1.5"}, {2.70805020110221, "15.0"}, 
    {1.9459101490553132, "7.0"}, {4.248495242049359, "70.0"}, 
    {0.09531017980432493, ""}, {0.1823215567939548, ""}, 
    {0.26236426446749106, ""}, {0.336472236621213, ""}, 
    {0.47000362924573563, ""}, {0.5306282510621705, ""}, 
    {0.5877866649021191, ""}, {0.6418538861723948, ""}, 
    {1.3862943611198906, ""}, {1.791759469228055, ""}, 
    {2.0794415416798357, ""}, {2.1972245773362196, ""}, 
    {2.3978952727983707, ""}, {2.4849066497880004, ""}, 
    {2.5649493574615367, ""}, {2.6390573296152584, ""}, 
    {2.772588722239781, ""}, {2.833213344056216, ""}, 
    {2.8903717578961645, ""}, {2.9444389791664403, ""}, 
    {3.6888794541139363, ""}, {4.0943445622221, ""}}}, 
 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]]
