Streamline output to avoid redundancy

*To*: mathgroup at smc.vnet.net*Subject*: [mg61146] Streamline output to avoid redundancy*From*: "Diana" <diana53xiii at earthlink.remove13.net>*Date*: Tue, 11 Oct 2005 03:21:55 -0400 (EDT)*Reply-to*: "Diana" <diana53xiii at earthlink.remove13.net>*Sender*: owner-wri-mathgroup at wolfram.com

Mathematica folks, I am starting some research on working with solutions of Diophantine Equations. I am wanting to streamline the programming of solutions to eliminate nulls and redundant strings. For example, if I code the following: Table[If[(x^3-1)/(x-1)==(y^n-1)/(y-1) && x!=y, {{x,y,n},}],{x,2,1000},{y,2,1000},{n,1,1001,2}] I get pages of output, and then need to do a Union of the result. Is there a way to streamline this? Thanks, Diana -- ===================================================== "God made the integers, all else is the work of man." L. Kronecker, Jahresber. DMV 2, S. 19.