(Subscript[B, n_]):=((2 (π^(n/2)) (r^n))/(n (Gamma[(n/2)])))

(Subscript[B, n_]):=((2(π^(n/2))((((Sqrt[n])-1))^n))/(n Gamma[n/2]))

(Subscript[C, n_]):=(4^n)

(Subscript[r, n_]):=N[(Subscript[B, n])/(Subscript[C, n]),10]

(Subscript[r, 5])

0.014832361227929849`

(Subscript[r, 10])

(Subscript[r, 100])

(Subscript[r, 1205])

(Subscript[r, 1206])

(Subscript[r, 10000])