Message Boards Message Boards

3
|
3041 Views
|
1 Reply
|
6 Total Likes
View groups...
Share
Share this post:

Primitive Pythagorean Triple

Posted 2 years ago

POSTED BY: Oliver Seipel
Posted 2 years ago

As an addendum, here is a quick way to get a whole pile of triples, using PowersRepresentations[] (the same function used by the OP in the function sameValuePPTTable[]):

Column[Row[#, Spacer[5]] & /@
       Apply[Row[{#1^Defer[2], "+", #2^Defer[2], "=", Sqrt[#1^2 + #2^2]^Defer[2]}] &,
             DeleteCases[Table[DeleteCases[PowersRepresentations[n^2, 2, 2], {0, _}],
                               {n, 5, 101}], {}], {2}]]
POSTED BY: J. M.
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract