|
| |
|
|
A084647
|
|
Hypotenuses for which there exist 3 distinct integer triangles.
|
|
13
| |
|
|
125, 250, 375, 500, 750, 875, 1000, 1125, 1375, 1500, 1750, 2000, 2197, 2250, 2375, 2625, 2750, 2875, 3000, 3375, 3500, 3875, 4000, 4125, 4394, 4500, 4750, 4913, 5250, 5375, 5500, 5750, 5875, 6000, 6125, 6591, 6750, 7000, 7125, 7375, 7750
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Eric Weisstein's World of Mathematics, Pythagorean Triple
|
|
|
MATHEMATICA
| Clear[lst, f, n, i, k] f[n_]:=Module[{i=0, k=0}, Do[If[Sqrt[n^2-i^2]==IntegerPart[Sqrt[n^2-i^2]], k++ ], {i, n-1, 1, -1}]; k/2]; lst={}; Do[If[f[n]==3, AppendTo[lst, n]], {n, 4*5!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 12 2009]
|
|
|
CROSSREFS
| Cf. A004144, A083025, A084645, A084646, A084648, A084649.
Sequence in context: A029782 A043351 A023724 * A031473 A045214 A045199
Adjacent sequences: A084644 A084645 A084646 * A084648 A084649 A084650
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Eric Weisstein (eric(AT)weisstein.com), Jun 01, 2003
|
| |
|
|
