Graphics3D[{{{{}, {}, {}, {}, {}, {}, {}, Cuboid[{1, 8, 0}, 
     {2, 9, 0.000071}], Cuboid[{1, 9, 0}, {2, 10, 0.000046}], {}}, 
   {{}, {}, {}, {}, Cuboid[{2, 5, 0}, {3, 6, 0.0000206}], 
    Cuboid[{2, 6, 0}, {3, 7, 0.0000225}], Cuboid[{2, 7, 0}, 
     {3, 8, 0.0000223}], Cuboid[{2, 8, 0}, {3, 9, 8.2*^-6}], 
    Cuboid[{2, 9, 0}, {3, 10, 0.0000113}], {}}, 
   {{}, Cuboid[{3, 2, 0}, {4, 3, 0.0000121}], {}, {}, {}, 
    Cuboid[{3, 6, 0}, {4, 7, 0.0000106}], Cuboid[{3, 7, 0}, 
     {4, 8, 0.0000102}], {}, {}, {}}, {Cuboid[{4, 1, 0}, {5, 2, 0.000011}], 
    Cuboid[{4, 2, 0}, {5, 3, 6.3*^-6}], {}, {}, Cuboid[{4, 5, 0}, 
     {5, 6, 5.9*^-6}], Cuboid[{4, 6, 0}, {5, 7, 5.7*^-6}], 
    Cuboid[{4, 7, 0}, {5, 8, 8.6*^-6}], {}, {}, {}}, 
   {{}, Cuboid[{5, 2, 0}, {6, 3, 6.7*^-6}], {}, {}, 
    Cuboid[{5, 5, 0}, {6, 6, 6.3*^-6}], Cuboid[{5, 6, 0}, {6, 7, 7.3*^-6}], 
    Cuboid[{5, 7, 0}, {6, 8, 8.4*^-6}], {}, {}, {}}, 
   {Cuboid[{6, 1, 0}, {7, 2, 0.0000139}], Cuboid[{6, 2, 0}, {7, 3, 9.6*^-6}], 
    {}, {}, Cuboid[{6, 5, 0}, {7, 6, 4.5*^-6}], Cuboid[{6, 6, 0}, 
     {7, 7, 4.8*^-6}], Cuboid[{6, 7, 0}, {7, 8, 4.9*^-6}], {}, {}, {}}, 
   {{}, Cuboid[{7, 2, 0}, {8, 3, 0.000011}], {}, {}, 
    Cuboid[{7, 5, 0}, {8, 6, 6.2*^-6}], {}, Cuboid[{7, 7, 0}, 
     {8, 8, 0.0000217}], {}, {}, {}}, 
   {{}, Cuboid[{8, 2, 0}, {9, 3, 0.0000127}], {}, {}, 
    Cuboid[{8, 5, 0}, {9, 6, 5.1*^-6}], Cuboid[{8, 6, 0}, {9, 7, 6.4*^-6}], 
    Cuboid[{8, 7, 0}, {9, 8, 0.0000118}], {}, {}, {}}, 
   {{}, Cuboid[{9, 2, 0}, {10, 3, 0.000035}], {}, {}, 
    Cuboid[{9, 5, 0}, {10, 6, 6.4*^-6}], Cuboid[{9, 6, 0}, {10, 7, 8.2*^-6}], 
    Cuboid[{9, 7, 0}, {10, 8, 0.000013}], {}, {}, {}}, 
   {{}, Cuboid[{10, 2, 0}, {11, 3, 9.4*^-6}], {}, {}, 
    Cuboid[{10, 5, 0}, {11, 6, 8.8*^-6}], Cuboid[{10, 6, 0}, 
     {11, 7, 0.0000118}], Cuboid[{10, 7, 0}, {11, 8, 0.0000134}], {}, {}, 
    {}}, {{}, Cuboid[{11, 2, 0}, {12, 3, 0.0000103}], {}, {}, 
    Cuboid[{11, 5, 0}, {12, 6, 0.0000142}], Cuboid[{11, 6, 0}, 
     {12, 7, 0.0000189}], Cuboid[{11, 7, 0}, {12, 8, 0.0000165}], {}, {}, 
    {}}, {{}, Cuboid[{12, 2, 0}, {13, 3, 9.9*^-6}], {}, {}, {}, 
    Cuboid[{12, 6, 0}, {13, 7, 0.0000308}], Cuboid[{12, 7, 0}, 
     {13, 8, 0.0000302}], {}, {}, {}}, 
   {{}, Cuboid[{13, 2, 0}, {14, 3, 0.0000112}], {}, {}, 
    Cuboid[{13, 5, 0}, {14, 6, 0.0000299}], Cuboid[{13, 6, 0}, 
     {14, 7, 0.0000321}], Cuboid[{13, 7, 0}, {14, 8, 0.00012}], 
    Cuboid[{13, 8, 0}, {14, 9, 0.0000231}], Cuboid[{13, 9, 0}, 
     {14, 10, 6.*^-6}], {}}, {{}, Cuboid[{14, 2, 0}, {15, 3, 0.0000122}], {}, 
    {}, Cuboid[{14, 5, 0}, {15, 6, 0.0000289}], Cuboid[{14, 6, 0}, 
     {15, 7, 0.000022}], Cuboid[{14, 7, 0}, {15, 8, 6.*^-6}], 
    Cuboid[{14, 8, 0}, {15, 9, 2.6*^-6}], Cuboid[{14, 9, 0}, 
     {15, 10, 7.1*^-6}], {}}, {{}, Cuboid[{15, 2, 0}, {16, 3, 0.0000133}], 
    {}, {}, Cuboid[{15, 5, 0}, {16, 6, 0.0000134}], 
    Cuboid[{15, 6, 0}, {16, 7, 0.000011}], {}, {}, {}, {}}, 
   {{}, Cuboid[{16, 2, 0}, {17, 3, 0.0000263}], {}, {}, {}, {}, {}, {}, {}, 
    {}}, {{}, Cuboid[{17, 2, 0}, {18, 3, 9.9*^-6}], {}, {}, {}, {}, {}, {}, 
    {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, GrayLevel[0], 
  {{{}, {}, {}, {RGBColor[1, 0, 0], Text["Fr", 
      {1.5, 4.5, 1.1740000000000001*^-6}]}, {RGBColor[1, 0, 0], 
     Text["Cs", {1.5, 5.5, 1.1740000000000001*^-6}]}, 
    {RGBColor[1, 0, 0], Text["Rb", {1.5, 6.5, 1.1740000000000001*^-6}]}, 
    {RGBColor[1, 0, 0], Text["K", {1.5, 7.5, 1.1740000000000001*^-6}]}, 
    {Text["Na", {1.5, 8.5, 0.000072174}], 
     Text["Na", {1.5, 8.5, -1.1740000000000001*^-6}]}, 
    {Text["Li", {1.5, 9.5, 0.000047174}], 
     Text["Li", {1.5, 9.5, -1.1740000000000001*^-6}]}, 
    {RGBColor[1, 0, 0], Text["H", {1.5, 10.5, 1.1740000000000001*^-6}]}}, 
   {{}, {}, {}, {RGBColor[1, 0, 0], Text["Ra", 
      {2.5, 4.5, 1.1740000000000001*^-6}]}, 
    {Text["Ba", {2.5, 5.5, 0.000021774}], 
     Text["Ba", {2.5, 5.5, -1.1740000000000001*^-6}]}, 
    {Text["Sr", {2.5, 6.5, 0.000023674}], 
     Text["Sr", {2.5, 6.5, -1.1740000000000001*^-6}]}, 
    {Text["Ca", {2.5, 7.5, 0.000023474}], 
     Text["Ca", {2.5, 7.5, -1.1740000000000001*^-6}]}, 
    {Text["Mg", {2.5, 8.5, 9.373999999999999*^-6}], 
     Text["Mg", {2.5, 8.5, -1.1740000000000001*^-6}]}, 
    {Text["Be", {2.5, 9.5, 0.000012474}], 
     Text["Be", {2.5, 9.5, -1.1740000000000001*^-6}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Ac", {3.5, 1.5, 1.1740000000000001*^-6}]}, 
    {Text["La", {3.5, 2.5, 0.000013273999999999999}], 
     Text["La", {3.5, 2.5, -1.1740000000000001*^-6}]}, {}, {}, {}, 
    {Text["Y", {3.5, 6.5, 0.000011774}], 
     Text["Y", {3.5, 6.5, -1.1740000000000001*^-6}]}, 
    {Text["Sc", {3.5, 7.5, 0.000011374}], 
     Text["Sc", {3.5, 7.5, -1.1740000000000001*^-6}]}, {}, {}, {}}, 
   {{Text["Th", {4.5, 1.5, 0.000012173999999999999}], 
     Text["Th", {4.5, 1.5, -1.1740000000000001*^-6}]}, 
    {Text["Ce", {4.5, 2.5, 7.474*^-6}], Text["Ce", 
      {4.5, 2.5, -1.1740000000000001*^-6}]}, {}, {RGBColor[1, 0, 0], 
     Text["Rf", {4.5, 4.5, 1.1740000000000001*^-6}]}, 
    {Text["Hf", {4.5, 5.5, 7.074*^-6}], Text["Hf", 
      {4.5, 5.5, -1.1740000000000001*^-6}]}, 
    {Text["Zr", {4.5, 6.5, 6.874*^-6}], Text["Zr", 
      {4.5, 6.5, -1.1740000000000001*^-6}]}, 
    {Text["Ti", {4.5, 7.5, 9.774000000000002*^-6}], 
     Text["Ti", {4.5, 7.5, -1.1740000000000001*^-6}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Pa", {5.5, 1.5, 1.1740000000000001*^-6}]}, 
    {Text["Pr", {5.5, 2.5, 7.874*^-6}], Text["Pr", 
      {5.5, 2.5, -1.1740000000000001*^-6}]}, {}, {RGBColor[1, 0, 0], 
     Text["Db", {5.5, 4.5, 1.1740000000000001*^-6}]}, 
    {Text["Ta", {5.5, 5.5, 7.474*^-6}], Text["Ta", 
      {5.5, 5.5, -1.1740000000000001*^-6}]}, 
    {Text["Nb", {5.5, 6.5, 8.474*^-6}], Text["Nb", 
      {5.5, 6.5, -1.1740000000000001*^-6}]}, 
    {Text["V", {5.5, 7.5, 9.574*^-6}], 
     Text["V", {5.5, 7.5, -1.1740000000000001*^-6}]}, {}, {}, {}}, 
   {{Text["U", {6.5, 1.5, 0.000015074000000000002}], 
     Text["U", {6.5, 1.5, -1.1740000000000001*^-6}]}, 
    {Text["Nd", {6.5, 2.5, 0.000010773999999999999}], 
     Text["Nd", {6.5, 2.5, -1.1740000000000001*^-6}]}, {}, 
    {RGBColor[1, 0, 0], Text["Sg", {6.5, 4.5, 1.1740000000000001*^-6}]}, 
    {Text["W", {6.5, 5.5, 5.674*^-6}], 
     Text["W", {6.5, 5.5, -1.1740000000000001*^-6}]}, 
    {Text["Mo", {6.5, 6.5, 5.974*^-6}], Text["Mo", 
      {6.5, 6.5, -1.1740000000000001*^-6}]}, 
    {Text["Cr", {6.5, 7.5, 6.074*^-6}], Text["Cr", 
      {6.5, 7.5, -1.1740000000000001*^-6}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Np", {7.5, 1.5, 1.1740000000000001*^-6}]}, 
    {Text["Pm", {7.5, 2.5, 0.000012173999999999999}], 
     Text["Pm", {7.5, 2.5, -1.1740000000000001*^-6}]}, {}, 
    {RGBColor[1, 0, 0], Text["Bh", {7.5, 4.5, 1.1740000000000001*^-6}]}, 
    {Text["Re", {7.5, 5.5, 7.374*^-6}], Text["Re", 
      {7.5, 5.5, -1.1740000000000001*^-6}]}, {RGBColor[1, 0, 0], 
     Text["Tc", {7.5, 6.5, 1.1740000000000001*^-6}]}, 
    {Text["Mn", {7.5, 7.5, 0.000022873999999999998}], 
     Text["Mn", {7.5, 7.5, -1.1740000000000001*^-6}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Pu", {8.5, 1.5, 1.1740000000000001*^-6}]}, 
    {Text["Sm", {8.5, 2.5, 0.000013874}], 
     Text["Sm", {8.5, 2.5, -1.1740000000000001*^-6}]}, {}, 
    {RGBColor[1, 0, 0], Text["Hs", {8.5, 4.5, 1.1740000000000001*^-6}]}, 
    {Text["Os", {8.5, 5.5, 6.274*^-6}], Text["Os", 
      {8.5, 5.5, -1.1740000000000001*^-6}]}, 
    {Text["Ru", {8.5, 6.5, 7.574*^-6}], Text["Ru", 
      {8.5, 6.5, -1.1740000000000001*^-6}]}, 
    {Text["Fe", {8.5, 7.5, 0.000012974000000000001}], 
     Text["Fe", {8.5, 7.5, -1.1740000000000001*^-6}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Am", {9.5, 1.5, 1.1740000000000001*^-6}]}, 
    {Text["Eu", {9.5, 2.5, 0.000036173999999999996}], 
     Text["Eu", {9.5, 2.5, -1.1740000000000001*^-6}]}, {}, 
    {RGBColor[1, 0, 0], Text["Mt", {9.5, 4.5, 1.1740000000000001*^-6}]}, 
    {Text["Ir", {9.5, 5.5, 7.574*^-6}], Text["Ir", 
      {9.5, 5.5, -1.1740000000000001*^-6}]}, 
    {Text["Rh", {9.5, 6.5, 9.373999999999999*^-6}], 
     Text["Rh", {9.5, 6.5, -1.1740000000000001*^-6}]}, 
    {Text["Co", {9.5, 7.5, 0.000014174}], 
     Text["Co", {9.5, 7.5, -1.1740000000000001*^-6}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Cm", {10.5, 1.5, 1.1740000000000001*^-6}]}, 
    {Text["Gd", {10.5, 2.5, 0.000010574}], 
     Text["Gd", {10.5, 2.5, -1.1740000000000001*^-6}]}, {}, 
    {RGBColor[1, 0, 0], Text["Ds", {10.5, 4.5, 1.1740000000000001*^-6}]}, 
    {Text["Pt", {10.5, 5.5, 9.974*^-6}], Text["Pt", 
      {10.5, 5.5, -1.1740000000000001*^-6}]}, 
    {Text["Pd", {10.5, 6.5, 0.000012974000000000001}], 
     Text["Pd", {10.5, 6.5, -1.1740000000000001*^-6}]}, 
    {Text["Ni", {10.5, 7.5, 0.000014574}], 
     Text["Ni", {10.5, 7.5, -1.1740000000000001*^-6}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Bk", {11.5, 1.5, 1.1740000000000001*^-6}]}, 
    {Text["Tb", {11.5, 2.5, 0.000011473999999999999}], 
     Text["Tb", {11.5, 2.5, -1.1740000000000001*^-6}]}, {}, 
    {RGBColor[1, 0, 0], Text["Rg", {11.5, 4.5, 1.1740000000000001*^-6}]}, 
    {Text["Au", {11.5, 5.5, 0.000015374}], 
     Text["Au", {11.5, 5.5, -1.1740000000000001*^-6}]}, 
    {Text["Ag", {11.5, 6.5, 0.000020073999999999998}], 
     Text["Ag", {11.5, 6.5, -1.1740000000000001*^-6}]}, 
    {Text["Cu", {11.5, 7.5, 0.000017674}], 
     Text["Cu", {11.5, 7.5, -1.1740000000000001*^-6}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Cf", {12.5, 1.5, 1.1740000000000001*^-6}]}, 
    {Text["Dy", {12.5, 2.5, 0.000011074}], 
     Text["Dy", {12.5, 2.5, -1.1740000000000001*^-6}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uub", {12.5, 4.5, 1.1740000000000001*^-6}]}, 
    {RGBColor[1, 0, 0], Text["Hg", {12.5, 5.5, 1.1740000000000001*^-6}]}, 
    {Text["Cd", {12.5, 6.5, 0.000031974}], 
     Text["Cd", {12.5, 6.5, -1.1740000000000001*^-6}]}, 
    {Text["Zn", {12.5, 7.5, 0.000031374}], 
     Text["Zn", {12.5, 7.5, -1.1740000000000001*^-6}]}, {}, {}, {}}, 
   {{RGBColor[1, 0, 0], Text["Es", {13.5, 1.5, 1.1740000000000001*^-6}]}, 
    {Text["Ho", {13.5, 2.5, 0.000012374}], 
     Text["Ho", {13.5, 2.5, -1.1740000000000001*^-6}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uut", {13.5, 4.5, 1.1740000000000001*^-6}]}, 
    {Text["Tl", {13.5, 5.5, 0.000031074}], 
     Text["Tl", {13.5, 5.5, -1.1740000000000001*^-6}]}, 
    {Text["In", {13.5, 6.5, 0.000033274}], 
     Text["In", {13.5, 6.5, -1.1740000000000001*^-6}]}, 
    {Text["Ga", {13.5, 7.5, 0.000121174}], 
     Text["Ga", {13.5, 7.5, -1.1740000000000001*^-6}]}, 
    {Text["Al", {13.5, 8.5, 0.000024274}], 
     Text["Al", {13.5, 8.5, -1.1740000000000001*^-6}]}, 
    {Text["B", {13.5, 9.5, 7.174*^-6}], 
     Text["B", {13.5, 9.5, -1.1740000000000001*^-6}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Fm", {14.5, 1.5, 1.1740000000000001*^-6}]}, 
    {Text["Er", {14.5, 2.5, 0.000013374000000000001}], 
     Text["Er", {14.5, 2.5, -1.1740000000000001*^-6}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uuq", {14.5, 4.5, 1.1740000000000001*^-6}]}, 
    {Text["Pb", {14.5, 5.5, 0.000030074}], 
     Text["Pb", {14.5, 5.5, -1.1740000000000001*^-6}]}, 
    {Text["Sn", {14.5, 6.5, 0.000023174}], 
     Text["Sn", {14.5, 6.5, -1.1740000000000001*^-6}]}, 
    {Text["Ge", {14.5, 7.5, 7.174*^-6}], Text["Ge", 
      {14.5, 7.5, -1.1740000000000001*^-6}]}, 
    {Text["Si", {14.5, 8.5, 3.774*^-6}], Text["Si", 
      {14.5, 8.5, -1.1740000000000001*^-6}]}, 
    {Text["C", {14.5, 9.5, 8.273999999999999*^-6}], 
     Text["C", {14.5, 9.5, -1.1740000000000001*^-6}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Md", {15.5, 1.5, 1.1740000000000001*^-6}]}, 
    {Text["Tm", {15.5, 2.5, 0.000014474}], 
     Text["Tm", {15.5, 2.5, -1.1740000000000001*^-6}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uup", {15.5, 4.5, 1.1740000000000001*^-6}]}, 
    {Text["Bi", {15.5, 5.5, 0.000014574}], 
     Text["Bi", {15.5, 5.5, -1.1740000000000001*^-6}]}, 
    {Text["Sb", {15.5, 6.5, 0.000012173999999999999}], 
     Text["Sb", {15.5, 6.5, -1.1740000000000001*^-6}]}, 
    {RGBColor[1, 0, 0], Text["As", {15.5, 7.5, 1.1740000000000001*^-6}]}, 
    {RGBColor[1, 0, 0], Text["P", {15.5, 8.5, 1.1740000000000001*^-6}]}, 
    {RGBColor[1, 0, 0], Text["N", {15.5, 9.5, 1.1740000000000001*^-6}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["No", {16.5, 1.5, 1.1740000000000001*^-6}]}, 
    {Text["Yb", {16.5, 2.5, 0.000027473999999999998}], 
     Text["Yb", {16.5, 2.5, -1.1740000000000001*^-6}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uuh", {16.5, 4.5, 1.1740000000000001*^-6}]}, 
    {RGBColor[1, 0, 0], Text["Po", {16.5, 5.5, 1.1740000000000001*^-6}]}, 
    {RGBColor[1, 0, 0], Text["Te", {16.5, 6.5, 1.1740000000000001*^-6}]}, 
    {RGBColor[1, 0, 0], Text["Se", {16.5, 7.5, 1.1740000000000001*^-6}]}, 
    {RGBColor[1, 0, 0], Text["S", {16.5, 8.5, 1.1740000000000001*^-6}]}, 
    {RGBColor[1, 0, 0], Text["O", {16.5, 9.5, 1.1740000000000001*^-6}]}, {}}, 
   {{RGBColor[1, 0, 0], Text["Lr", {17.5, 1.5, 1.1740000000000001*^-6}]}, 
    {Text["Lu", {17.5, 2.5, 0.000011074}], 
     Text["Lu", {17.5, 2.5, -1.1740000000000001*^-6}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uus", {17.5, 4.5, 1.1740000000000001*^-6}]}, 
    {RGBColor[1, 0, 0], Text["At", {17.5, 5.5, 1.1740000000000001*^-6}]}, 
    {RGBColor[1, 0, 0], Text["I", {17.5, 6.5, 1.1740000000000001*^-6}]}, 
    {RGBColor[1, 0, 0], Text["Br", {17.5, 7.5, 1.1740000000000001*^-6}]}, 
    {RGBColor[1, 0, 0], Text["Cl", {17.5, 8.5, 1.1740000000000001*^-6}]}, 
    {RGBColor[1, 0, 0], Text["F", {17.5, 9.5, 1.1740000000000001*^-6}]}, {}}, 
   {{}, {}, {}, {RGBColor[1, 0, 0], Text["Uuo", 
      {18.5, 4.5, 1.1740000000000001*^-6}]}, {RGBColor[1, 0, 0], 
     Text["Rn", {18.5, 5.5, 1.1740000000000001*^-6}]}, 
    {RGBColor[1, 0, 0], Text["Xe", {18.5, 6.5, 1.1740000000000001*^-6}]}, 
    {RGBColor[1, 0, 0], Text["Kr", {18.5, 7.5, 1.1740000000000001*^-6}]}, 
    {RGBColor[1, 0, 0], Text["Ar", {18.5, 8.5, 1.1740000000000001*^-6}]}, 
    {RGBColor[1, 0, 0], Text["Ne", {18.5, 9.5, 1.1740000000000001*^-6}]}, 
    {RGBColor[1, 0, 0], Text["He", {18.5, 10.5, 1.1740000000000001*^-6}]}}}}, 
 ViewPoint -> {3, -4, 15}, BoxRatios -> {2, 1, 1}, ImageSize -> 500, 
 SphericalRegion -> True, Boxed -> False, Axes -> {False, False, True}, 
 Ticks -> {None, None, Automatic}, 
 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]]
