Re: Streamline output to avoid redundancy

*To*: mathgroup at smc.vnet.net*Subject*: [mg61168] Re: Streamline output to avoid redundancy*From*: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>*Date*: Tue, 11 Oct 2005 06:19:16 -0400 (EDT)*Organization*: Uni Leipzig*References*: <difr2e$fc9$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Hi, Flatten[Table[If[(x^3 - 1)/(x - 1) == (y^n - 1)/(y - 1) && x != y, {{x, y, n}}], {x, 2, 100}, {y, 2, 100}, {n, 1, 101, 2}] , 3] /. Null :> Sequence[] Regards Jens "Diana" <diana53xiii at earthlink.remove13.net> schrieb im Newsbeitrag news:difr2e$fc9$1 at smc.vnet.net... | 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. |