Plot3D[Abs[1/Gamma[Gamma[x + I y]]], {x, -5, 5}, {y, -5, 5}]