Taxicab numbers: Difference between revisions

</pre>

=={{header|XPL0}}==

Slow, brute force solution.

<lang XPL0>int N, I, J, SI, SJ, Count, Tally;

[Count:= 0; N:= 0;

repeat Tally:= 0;

I:= 1;

repeat J:= I+1;

repeat if N = I*I*I + J*J*J then

[Tally:= Tally+1;

if Tally >= 2 then

[Count:= Count+1;

IntOut(0, Count); Text(0, ": ");

IntOut(0, N); Text(0, " = ");

IntOut(0, SI); Text(0, "^^3 + ");

IntOut(0, SJ); Text(0, "^^3 = ");

IntOut(0, I); Text(0, "^^3 + ");

IntOut(0, J); Text(0, "^^3");

CrLf(0);

J:= 1000; I:= J;

];

SI:= I; SJ:= J;

];

J:= J+1;

until I*I*I + J*J*J > N;

I:= I+1;

until I*I*I*2 > N;

N:= N+1;

until Count >= 25;

]</lang>

{{out}}

<pre>

1: 1729 = 1^3 + 12^3 = 9^3 + 10^3

2: 4104 = 2^3 + 16^3 = 9^3 + 15^3

3: 13832 = 2^3 + 24^3 = 18^3 + 20^3

4: 20683 = 10^3 + 27^3 = 19^3 + 24^3

5: 32832 = 4^3 + 32^3 = 18^3 + 30^3

6: 39312 = 2^3 + 34^3 = 15^3 + 33^3

7: 40033 = 9^3 + 34^3 = 16^3 + 33^3

8: 46683 = 3^3 + 36^3 = 27^3 + 30^3

9: 64232 = 17^3 + 39^3 = 26^3 + 36^3

10: 65728 = 12^3 + 40^3 = 31^3 + 33^3

11: 110656 = 4^3 + 48^3 = 36^3 + 40^3

12: 110808 = 6^3 + 48^3 = 27^3 + 45^3

13: 134379 = 12^3 + 51^3 = 38^3 + 43^3

14: 149389 = 8^3 + 53^3 = 29^3 + 50^3

15: 165464 = 20^3 + 54^3 = 38^3 + 48^3

16: 171288 = 17^3 + 55^3 = 24^3 + 54^3

17: 195841 = 9^3 + 58^3 = 22^3 + 57^3

18: 216027 = 3^3 + 60^3 = 22^3 + 59^3

19: 216125 = 5^3 + 60^3 = 45^3 + 50^3

20: 262656 = 8^3 + 64^3 = 36^3 + 60^3

21: 314496 = 4^3 + 68^3 = 30^3 + 66^3

22: 320264 = 18^3 + 68^3 = 32^3 + 66^3

23: 327763 = 30^3 + 67^3 = 51^3 + 58^3

24: 373464 = 6^3 + 72^3 = 54^3 + 60^3

25: 402597 = 42^3 + 69^3 = 56^3 + 61^3