|
Search: id:A084646
|
|
|
| A084646 |
|
Hypotenuses for which there exist 2 distinct integer triangles. |
|
+0
14
|
|
| 25, 50, 75, 100, 150, 169, 175, 200, 225, 275, 289, 300, 338, 350, 400, 450, 475, 507, 525, 550, 575, 578, 600, 675, 676, 700, 775, 800, 825, 841, 867, 900, 950, 1014, 1050, 1075, 1100, 1150, 1156, 1175, 1183, 1200, 1225, 1350, 1352, 1369, 1400
(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]==2, AppendTo[lst, n]], {n, 4*5!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 12 2009]
|
|
CROSSREFS
|
Cf. A004144, A083025, A084645, A084647, A084648, A084649.
Sequence in context: A043350 A023723 A044458 this_sequence A031472 A045210 A045195
Adjacent sequences: A084643 A084644 A084645 this_sequence A084647 A084648 A084649
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Eric Weisstein (eric(AT)weisstein.com), Jun 01, 2003
|
|
|
Search completed in 0.002 seconds
|
