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