Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

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. 


  • Prev by Date: Re: surface intersection
  • Next by Date: Maximum y-value in a list of xy pairs
  • Previous by thread: Re: view only every second bar lable on x-axes
  • Next by thread: Re: Streamline output to avoid redundancy