Graphics3D[{{{{}, {}, {}, Cuboid[{1, 4, 0}, {2, 5, 2.}], {}, {}, {}, {}, {}, 
    {}}, {{}, {}, {}, Cuboid[{2, 4, 0}, {3, 5, 1.}], {}, {}, {}, {}, {}, {}}, 
   {Cuboid[{3, 1, 0}, {4, 2, 2.}], {}, {}, {}, {}, {}, {}, {}, {}, {}}, 
   {Cuboid[{4, 1, 0}, {5, 2, 1.}], {}, {}, Cuboid[{4, 4, 0}, {5, 5, 1.}], {}, 
    {}, {}, {}, {}, {}}, {Cuboid[{5, 1, 0}, {6, 2, 1.}], {}, {}, 
    Cuboid[{5, 4, 0}, {6, 5, 1.}], {}, {}, {}, {}, {}, {}}, 
   {Cuboid[{6, 1, 0}, {7, 2, 1.}], {}, {}, Cuboid[{6, 4, 0}, {7, 5, 1.}], {}, 
    {}, {}, {}, {}, {}}, {Cuboid[{7, 1, 0}, {8, 2, 1.}], 
    Cuboid[{7, 2, 0}, {8, 3, 4.}], {}, Cuboid[{7, 4, 0}, {8, 5, 1.}], {}, 
    Cuboid[{7, 6, 0}, {8, 7, 2.}], {}, {}, {}, {}}, 
   {Cuboid[{8, 1, 0}, {9, 2, 1.}], {}, {}, Cuboid[{8, 4, 0}, {9, 5, 1.}], {}, 
    {}, {}, {}, {}, {}}, {Cuboid[{9, 1, 0}, {10, 2, 1.}], {}, {}, 
    Cuboid[{9, 4, 0}, {10, 5, 1.}], {}, {}, {}, {}, {}, {}}, 
   {Cuboid[{10, 1, 0}, {11, 2, 1.}], {}, {}, Cuboid[{10, 4, 0}, {11, 5, 1.}], 
    {}, {}, {}, {}, {}, {}}, {Cuboid[{11, 1, 0}, {12, 2, 1.}], {}, {}, 
    Cuboid[{11, 4, 0}, {12, 5, 1.}], {}, {}, {}, {}, {}, {}}, 
   {Cuboid[{12, 1, 0}, {13, 2, 1.}], {}, {}, Cuboid[{12, 4, 0}, {13, 5, 1.}], 
    {}, {}, {}, {}, {}, {}}, {Cuboid[{13, 1, 0}, {14, 2, 1.}], {}, {}, 
    Cuboid[{13, 4, 0}, {14, 5, 1.}], {}, {}, {}, {}, {}, {}}, 
   {Cuboid[{14, 1, 0}, {15, 2, 1.}], {}, {}, Cuboid[{14, 4, 0}, {15, 5, 1.}], 
    {}, {}, {}, {}, {}, {}}, {Cuboid[{15, 1, 0}, {16, 2, 1.}], {}, {}, 
    Cuboid[{15, 4, 0}, {16, 5, 1.}], Cuboid[{15, 5, 0}, {16, 6, 1.}], {}, {}, 
    {}, {}, {}}, {Cuboid[{16, 1, 0}, {17, 2, 1.}], {}, {}, 
    Cuboid[{16, 4, 0}, {17, 5, 1.}], Cuboid[{16, 5, 0}, {17, 6, 1.}], {}, {}, 
    {}, {}, {}}, {Cuboid[{17, 1, 0}, {18, 2, 1.}], {}, {}, {}, 
    Cuboid[{17, 5, 0}, {18, 6, 3.}], {}, {}, {}, {}, {}}, 
   {{}, {}, {}, Cuboid[{18, 4, 0}, {19, 5, 1.}], 
    Cuboid[{18, 5, 0}, {19, 6, 1.}], {}, {}, {}, {}, {}}}, GrayLevel[0], 
  {{{}, {}, {}, {Text["Fr", {1.5, 4.5, 2.03}], 
     Text["Fr", {1.5, 4.5, -0.03}]}, {RGBColor[1, 0, 0], 
     Text["Cs", {1.5, 5.5, 0.03}]}, {RGBColor[1, 0, 0], 
     Text["Rb", {1.5, 6.5, 0.03}]}, {RGBColor[1, 0, 0], 
     Text["K", {1.5, 7.5, 0.03}]}, {RGBColor[1, 0, 0], 
     Text["Na", {1.5, 8.5, 0.03}]}, {RGBColor[1, 0, 0], 
     Text["Li", {1.5, 9.5, 0.03}]}, {RGBColor[1, 0, 0], 
     Text["H", {1.5, 10.5, 0.03}]}}, {{}, {}, {}, 
    {Text["Ra", {2.5, 4.5, 1.03}], Text["Ra", {2.5, 4.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Ba", {2.5, 5.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Sr", {2.5, 6.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Ca", {2.5, 7.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Mg", {2.5, 8.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Be", {2.5, 9.5, 0.03}]}, {}}, 
   {{Text["Ac", {3.5, 1.5, 2.03}], Text["Ac", {3.5, 1.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["La", {3.5, 2.5, 0.03}]}, {}, {}, {}, 
    {RGBColor[1, 0, 0], Text["Y", {3.5, 6.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Sc", {3.5, 7.5, 0.03}]}, {}, {}, {}}, 
   {{Text["Th", {4.5, 1.5, 1.03}], Text["Th", {4.5, 1.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Ce", {4.5, 2.5, 0.03}]}, {}, 
    {Text["Rf", {4.5, 4.5, 1.03}], Text["Rf", {4.5, 4.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Hf", {4.5, 5.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Zr", {4.5, 6.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Ti", {4.5, 7.5, 0.03}]}, {}, {}, {}}, 
   {{Text["Pa", {5.5, 1.5, 1.03}], Text["Pa", {5.5, 1.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Pr", {5.5, 2.5, 0.03}]}, {}, 
    {Text["Db", {5.5, 4.5, 1.03}], Text["Db", {5.5, 4.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Ta", {5.5, 5.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Nb", {5.5, 6.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["V", {5.5, 7.5, 0.03}]}, {}, {}, {}}, 
   {{Text["U", {6.5, 1.5, 1.03}], Text["U", {6.5, 1.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Nd", {6.5, 2.5, 0.03}]}, {}, 
    {Text["Sg", {6.5, 4.5, 1.03}], Text["Sg", {6.5, 4.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["W", {6.5, 5.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Mo", {6.5, 6.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Cr", {6.5, 7.5, 0.03}]}, {}, {}, {}}, 
   {{Text["Np", {7.5, 1.5, 1.03}], Text["Np", {7.5, 1.5, -0.03}]}, 
    {Text["Pm", {7.5, 2.5, 4.03}], Text["Pm", {7.5, 2.5, -0.03}]}, {}, 
    {Text["Bh", {7.5, 4.5, 1.03}], Text["Bh", {7.5, 4.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Re", {7.5, 5.5, 0.03}]}, 
    {Text["Tc", {7.5, 6.5, 2.03}], Text["Tc", {7.5, 6.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Mn", {7.5, 7.5, 0.03}]}, {}, {}, {}}, 
   {{Text["Pu", {8.5, 1.5, 1.03}], Text["Pu", {8.5, 1.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Sm", {8.5, 2.5, 0.03}]}, {}, 
    {Text["Hs", {8.5, 4.5, 1.03}], Text["Hs", {8.5, 4.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Os", {8.5, 5.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Ru", {8.5, 6.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Fe", {8.5, 7.5, 0.03}]}, {}, {}, {}}, 
   {{Text["Am", {9.5, 1.5, 1.03}], Text["Am", {9.5, 1.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Eu", {9.5, 2.5, 0.03}]}, {}, 
    {Text["Mt", {9.5, 4.5, 1.03}], Text["Mt", {9.5, 4.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Ir", {9.5, 5.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Rh", {9.5, 6.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Co", {9.5, 7.5, 0.03}]}, {}, {}, {}}, 
   {{Text["Cm", {10.5, 1.5, 1.03}], Text["Cm", {10.5, 1.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Gd", {10.5, 2.5, 0.03}]}, {}, 
    {Text["Ds", {10.5, 4.5, 1.03}], Text["Ds", {10.5, 4.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Pt", {10.5, 5.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Pd", {10.5, 6.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Ni", {10.5, 7.5, 0.03}]}, {}, {}, {}}, 
   {{Text["Bk", {11.5, 1.5, 1.03}], Text["Bk", {11.5, 1.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Tb", {11.5, 2.5, 0.03}]}, {}, 
    {Text["Rg", {11.5, 4.5, 1.03}], Text["Rg", {11.5, 4.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Au", {11.5, 5.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Ag", {11.5, 6.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Cu", {11.5, 7.5, 0.03}]}, {}, {}, {}}, 
   {{Text["Cf", {12.5, 1.5, 1.03}], Text["Cf", {12.5, 1.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Dy", {12.5, 2.5, 0.03}]}, {}, 
    {Text["Uub", {12.5, 4.5, 1.03}], Text["Uub", {12.5, 4.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Hg", {12.5, 5.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Cd", {12.5, 6.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Zn", {12.5, 7.5, 0.03}]}, {}, {}, {}}, 
   {{Text["Es", {13.5, 1.5, 1.03}], Text["Es", {13.5, 1.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Ho", {13.5, 2.5, 0.03}]}, {}, 
    {Text["Uut", {13.5, 4.5, 1.03}], Text["Uut", {13.5, 4.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Tl", {13.5, 5.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["In", {13.5, 6.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Ga", {13.5, 7.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Al", {13.5, 8.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["B", {13.5, 9.5, 0.03}]}, {}}, 
   {{Text["Fm", {14.5, 1.5, 1.03}], Text["Fm", {14.5, 1.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Er", {14.5, 2.5, 0.03}]}, {}, 
    {Text["Uuq", {14.5, 4.5, 1.03}], Text["Uuq", {14.5, 4.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Pb", {14.5, 5.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Sn", {14.5, 6.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Ge", {14.5, 7.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Si", {14.5, 8.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["C", {14.5, 9.5, 0.03}]}, {}}, 
   {{Text["Md", {15.5, 1.5, 1.03}], Text["Md", {15.5, 1.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Tm", {15.5, 2.5, 0.03}]}, {}, 
    {Text["Uup", {15.5, 4.5, 1.03}], Text["Uup", {15.5, 4.5, -0.03}]}, 
    {Text["Bi", {15.5, 5.5, 1.03}], Text["Bi", {15.5, 5.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Sb", {15.5, 6.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["As", {15.5, 7.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["P", {15.5, 8.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["N", {15.5, 9.5, 0.03}]}, {}}, 
   {{Text["No", {16.5, 1.5, 1.03}], Text["No", {16.5, 1.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Yb", {16.5, 2.5, 0.03}]}, {}, 
    {Text["Uuh", {16.5, 4.5, 1.03}], Text["Uuh", {16.5, 4.5, -0.03}]}, 
    {Text["Po", {16.5, 5.5, 1.03}], Text["Po", {16.5, 5.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Te", {16.5, 6.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Se", {16.5, 7.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["S", {16.5, 8.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["O", {16.5, 9.5, 0.03}]}, {}}, 
   {{Text["Lr", {17.5, 1.5, 1.03}], Text["Lr", {17.5, 1.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["Lu", {17.5, 2.5, 0.03}]}, {}, 
    {RGBColor[1, 0, 0], Text["Uus", {17.5, 4.5, 0.03}]}, 
    {Text["At", {17.5, 5.5, 3.03}], Text["At", {17.5, 5.5, -0.03}]}, 
    {RGBColor[1, 0, 0], Text["I", {17.5, 6.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Br", {17.5, 7.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["Cl", {17.5, 8.5, 0.03}]}, 
    {RGBColor[1, 0, 0], Text["F", {17.5, 9.5, 0.03}]}, {}}, 
   {{}, {}, {}, {Text["Uuo", {18.5, 4.5, 1.03}], 
     Text["Uuo", {18.5, 4.5, -0.03}]}, {Text["Rn", {18.5, 5.5, 1.03}], 
     Text["Rn", {18.5, 5.5, -0.03}]}, {RGBColor[1, 0, 0], 
     Text["Xe", {18.5, 6.5, 0.03}]}, {RGBColor[1, 0, 0], 
     Text["Kr", {18.5, 7.5, 0.03}]}, {RGBColor[1, 0, 0], 
     Text["Ar", {18.5, 8.5, 0.03}]}, {RGBColor[1, 0, 0], 
     Text["Ne", {18.5, 9.5, 0.03}]}, {RGBColor[1, 0, 0], 
     Text["He", {18.5, 10.5, 0.03}]}}}}, ViewPoint -> {3, -4, 15}, 
 BoxRatios -> {2, 1, 1}, ImageSize -> 500, SphericalRegion -> True, 
 Boxed -> False, Axes -> {False, False, True}, 
 Ticks -> {None, None, {{1, "AlphaEmission"}, {2, "BetaDecay"}, 
    {3, "BetaPlusDecay"}, {4, "ElectronCapture"}}}, 
 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.]]
