Minimize[{13 k + 17 l, k l^3 == 610}, {k, l}]