Ceiling[Log2[Sum[Binomial[50, n]*Factorial[n]*Factorial[50-n],{n,1,50-1}]]]