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