|
| |
|
|
A084646
|
|
Hypotenuses for which there exist 2 distinct integer triangles.
|
|
13
| |
|
|
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; 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]==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 * A031472 A045210 A169860
Adjacent sequences: A084643 A084644 A084645 * A084647 A084648 A084649
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Eric Weisstein (eric(AT)weisstein.com), Jun 01, 2003
|
| |
|
|
