Well, I have the following Mathematica code:
n = 857097;
x = 100;
Solve[{n == n1^3 + n2^3 + n3^3 + n4^3 + n5^3,
1 <= n1 < x && 1 <= n2 < x && 1 <= n3 < x && 1 <= n4 < x &&
1 <= n5 < x && n1 != n2 && n1 != n3 && n1 != n4 && n1 != n5 &&
n2 != n3 && n2 != n4 && n2 != n5 && n3 != n4 && n3 != n5 &&
n4 != n5}, {n1, n2, n3, n4, n5}, Integers]
This takes a lot of time to run because I would like to know all the possible solutions and not just one. Is there a way to speed this calculation up?
