|
| |
|
|
A084648
|
|
Hypotenuses for which there exist 4 distinct integer triangles.
|
|
13
| |
|
|
65, 85, 130, 145, 170, 185, 195, 205, 221, 255, 260, 265, 290, 305, 340, 365, 370, 377, 390, 410, 435, 442, 445, 455, 481, 485, 493, 505, 510, 520, 530, 533, 545, 555, 565, 580, 585, 595, 610, 615, 625, 629, 663, 680, 685, 689, 697, 715, 730, 740, 745
(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]==4, AppendTo[lst, n]], {n, 6!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 12 2009]
|
|
|
CROSSREFS
| Cf. A004144, A083025, A084645, A084646, A084647, A084649.
Sequence in context: A025303 A071011 A165158 * A024409 A131574 A020273
Adjacent sequences: A084645 A084646 A084647 * A084649 A084650 A084651
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Eric Weisstein (eric(AT)weisstein.com), Jun 01, 2003
|
| |
|
|
