Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Re: a^k+b^k+c^k = d^k+e^k+f^k, for k = 2,4, with a constraint

  • To: mathgroup at smc.vnet.net
  • Subject: [mg102455] Re: a^k+b^k+c^k = d^k+e^k+f^k, for k = 2,4, with a constraint
  • From: Peter Breitfeld <phbrf at t-online.de>
  • Date: Sun, 9 Aug 2009 18:21:39 -0400 (EDT)
  • References: <h5m6ut$fe5$1@smc.vnet.net>

TPiezas wrote:

> Hello all,
>
> It's easy to find small and non-trivial solns to the multi-grade eqn,
>
> a^k+b^k+c^k = d^k+e^k+f^k, for k = 2,4.
>
> However, I need the additional constraint that,
>
> a^2+b^2+c^2 = y^2.
>
> What's an efficient and _fast_ code in Mathematica to find solns to
> this?  Any help will be appreciated.  Thanks.
>
> P.S. This system came up in a certain 6-8-7 identity similar to
> Ramanujan's 6-10-8.
>
> - Titus
>

You may give FindInstance a try, I asked for a,b,c not 0 to get a
non-trivial result:

gl[k_, y_] = {a^k + b^k + c^k == d^k + e^k + f^k,
  a^2 + b^2 + c^2 == y^2 , a != 0, b != 0, c != 0}

FindInstance[gl[2,3],{a,b,c,d,e,f}]

Out= {{a -> -2, b -> -1, c -> -2, d -> -2, e -> -1, f -> -2}}
  
-- 
_________________________________________________________________
Peter Breitfeld, Bad Saulgau, Germany -- http://www.pBreitfeld.de


  • Prev by Date: Presentations Update
  • Next by Date: Re: iterative convolution, discret convolution N times
  • Previous by thread: a^k+b^k+c^k = d^k+e^k+f^k, for k = 2,4, with a constraint
  • Next by thread: Re: a^k+b^k+c^k = d^k+e^k+f^k, for k = 2,4, with a constraint