The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A099832 Perimeters of Pythagorean triangles that can be constructed in exactly 3 different ways. 2

%I

%S 120,168,180,252,280,336,396,528,540,560,600,624,792,864,880,936,1040,

%T 1050,1056,1120,1176,1224,1232,1248,1350,1368,1380,1404,1456,1620,

%U 1632,1650,1656,1710,1728,1740,1760,1764,1824,1836,1860,1960,2002,2052,2080

%N Perimeters of Pythagorean triangles that can be constructed in exactly 3 different ways.

%H Ray Chandler, <a href="/A099832/b099832.txt">Table of n, a(n) for n = 1..10000</a>

%H Ron Knott, <a href="http://www.maths.surrey.ac.uk/hosted-sites/R.Knott/Pythag/pythag.html">Pythagorean Triples and Online Calculators</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PythagoreanTriple.html">Pythagorean Triple.</a>

%H <a href="/index/Ps#PyTrip">Index entries related to Pythagorean Triples.</a>

%e a(1)=120 = 20+48+52 = 24+45+51 = 30+40+50; a(2)=168 = 21+72+75 = 24+70+74 = 42+56+70.

%t SetSystemOptions["ReduceOptions" -> {"DiscreteSolutionBound" -> 2500}]; AllPerimeterTriples[n_Integer] /; n > 0 := Module[{result = Reduce[ Reduce[{x^2 + y^2 == z^2, z > y > x > 0, Element[{x, y, z}, Integers], x + y + z == n}, {x, y, z}]]}, If[result === False, {}, Sort[{x, y, z} /. {ToRules[result]}]]]; Select[ Range[ 2500], Length[ AllPerimeterTriples[#]] == 3 &] (* _Robert G. Wilson v_, Oct 17 2012 *)

%Y Cf. A098714, A099381, A099383, A156687.

%K nonn,changed

%O 1,1

%A _Hugo Pfoertner_, Oct 27 2004

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified February 18 09:39 EST 2020. Contains 332011 sequences. (Running on oeis4.)