|
Search: id:A084649
|
|
|
| A084649 |
|
Hypotenuses for which there exist exactly 5 distinct integer triangles. |
|
+0
14
|
|
| 3125, 6250, 9375, 12500, 18750, 21875, 25000, 28125, 34375, 37500, 43750, 50000, 56250, 59375, 65625, 68750, 71875, 75000, 84375, 87500, 96875, 100000, 103125, 112500, 118750, 131250, 134375, 137500, 143750, 146875, 150000, 153125
(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]==5, AppendTo[lst, n]], {n, 3*6!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 12 2009]
|
|
CROSSREFS
|
Cf. A004144, A083025, A084645, A084646, A084647, A084648.
Sequence in context: A133526 A102709 A057067 this_sequence A016817 A115791 A016853
Adjacent sequences: A084646 A084647 A084648 this_sequence A084650 A084651 A084652
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Eric Weisstein (eric(AT)weisstein.com), Jun 01, 2003
|
|
|
Search completed in 0.002 seconds
|
