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.
|