All about flooble | fun stuff | Get a free chatterbox | Free JavaScript | Avatars    
perplexus dot info

Home > Numbers
Priming a Square (Posted on 2009-08-23) Difficulty: 2 of 5

No Solution Yet Submitted by brianjn    
Rating: 3.0000 (1 votes)

Comments: ( Back to comment list | You must be logged in to post comments.)
mathematica solution | Comment 1 of 3

The following code finds the sole solution of
41  88  47
100 400 100
59  112 53

 

a=3;

While[a+18<100,

b=a+6;

c=b+6;

d=c+6;

w=a+b;

x=b+c;

y=d+c;

z=a+d;

s=w+x+y+z;

If[PrimeQ[b] && PrimeQ[c] && PrimeQ[d] && IntegerQ[Sqrt[s]],

Print[a," ",w," ",b];

Print[z," ",s," ",x];

Print[d," ",y," ",c];

];

a=NextPrime[a];

];


  Posted by Daniel on 2009-08-23 17:29:46
Please log in:
Login:
Password:
Remember me:
Sign up! | Forgot password


Search:
Search body:
Forums (0)
Newest Problems
Random Problem
FAQ | About This Site
Site Statistics
New Comments (7)
Unsolved Problems
Top Rated Problems
This month's top
Most Commented On

Chatterbox:
Copyright © 2002 - 2017 by Animus Pactum Consulting. All rights reserved. Privacy Information