Plot[sqrt(p/2) * Gamma(p/2) / Gamma(p/2 + 1/2), {p, 2, 10000}]