I have spent days trying to compile this code and I cannot generate a list of taxicab numbers for the Hardy-Ramanujan Theory. Here is the module I wrote earlier:

```
Ramamanujan_Number[N_] :=
Module[{taxicablist = [], int_count = 0, i, j, k},
For[i = 0, i < N, i++;
For[j = 1, j < N - 1, j++; For[k = 1, k < N - 1, k++;
If[j^3 + k^3 == i, int_count += 1]];
If[int_count == 2, AppendTo[taxicablist, i];
]]]]
Print[taxicablist]
Ramananujan_Number[10000]
```

What minor changes do I need to make in order to generate a list in this function?