Plot[InverseGammaRegularized[a, 1], {a, 0, 4}]