SumOfSquaresRepresentations
- To: mathgroup at smc.vnet.net
- Subject: [mg103475] SumOfSquaresRepresentations
- From: janos <janostothmeister at gmail.com>
- Date: Wed, 23 Sep 2009 23:51:32 -0400 (EDT)
To be on the safe side:
ClearAll[d, n, x, a, SumOfSquaresRepresentations];
Take this from the help:
SumOfSquaresRepresentations[d_, n_] :=
Module[{x,
a}, (a = Array[x, d]) /. {ToRules[Reduce[a.a == n, a, Integers]]}]
Let's apply it:
SumOfSquaresRepresentations[3, 15]
{x$110[1], x$110[2], x$110[3]}
And this is the only case that you get this funny result
writing any integer between 1 and 200 in the place of 15.
Any idea?
Thank you.
J=E1nos
- Follow-Ups:
- Re: SumOfSquaresRepresentations
- From: Andrzej Kozlowski <akoz@mimuw.edu.pl>
- Re: SumOfSquaresRepresentations
- From: Carl Woll <carlw@wolfram.com>
- Re: SumOfSquaresRepresentations