|
Search: id:A084647
|
|
|
| A084647 |
|
Hypotenuses for which there exist 3 distinct integer triangles. |
|
+0
14
|
|
| 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; listen)
|
|
|
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 this_sequence A031473 A045214 A045199
Adjacent sequences: A084644 A084645 A084646 this_sequence A084648 A084649 A084650
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Eric Weisstein (eric(AT)weisstein.com), Jun 01, 2003
|
|
|
Search completed in 0.002 seconds
|
