Reduce[5 + a - 6E^(a/2) == 0, a]