FindRoot[D[2^k/(k!(5-k)!),k]==0,{k,4}]