       Re:need help

• To: mathgroup at smc.vnet.net
• Subject: [mg87352] Re:[mg87308] need help
• From: Patrick Klitzke <philologos14 at gmx.de>
• Date: Tue, 8 Apr 2008 05:38:37 -0400 (EDT)

```Hello,
1.) I think you need the function RandomChoice:
RandomChoice[Range[-100,100],20]

RandomChoice[list,n]

2.) I have written this little function for you:

Sumf4[x_] := (
s = x; s1 = x;
While[MatchQ[Sqrt[s1], _Integer] == False, s1--];
s -= s1;
s2 = s;
While[MatchQ[Sqrt[s2], _Integer] == False, s2--];
s -= s2;
s3 = s;
While[MatchQ[Sqrt[s3], _Integer] == False, s3--];
s -= s3;
s4 = s;
While[MatchQ[Sqrt[s4], _Integer] == False, s4--];
s -= s4;
Print[Sqrt[s1]^"2", "+", Sqrt[s2]^"2", "+", Sqrt[s3]^"2", "+",
Sqrt[s4]^"2", " Remainder=", s]
)

If you want to have the 4 squares for 91 for example,
you have to type the following:
Sumf4
9^(2)+3^(2)+1+0^(2) Remainder=0

But the problem is, that for some numbers you need more than 4 squares:
96=9^2+3^2+2^2+1^2+1^2

I think I will give you the solution to this problem in some days, when
I have more time, if  then it has not been answered.
But first of all, think of a solution by yourself and post it. I am
really interested.