Reduce[{2^a == 60000000, x == 4 a}, {a, x}, Reals]