Min[ Sum[Abs[x - k], {k, 1, 75}]]