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

```

• Prev by Date: Re: region bounded by surfaces
• Next by Date: Re: surface intersection
• Previous by thread: Streamline output to avoid redundancy
• Next by thread: Maximum y-value in a list of xy pairs