|
| |
|
|
A108708
|
|
Maximum side in Pythagorean triangles with hypotenuse of n.
|
|
1
| |
|
|
0, 0, 0, 0, 4, 0, 0, 0, 0, 8, 0, 0, 12, 0, 12, 0, 15, 0, 0, 16, 0, 0, 0, 0, 24, 24, 0, 0, 21, 24, 0, 0, 0, 30, 28, 0, 35, 0, 36, 32, 40, 0, 0, 0, 36, 0, 0, 0, 0, 48, 45, 48, 45, 0, 44, 0, 0, 42, 0, 48, 60, 0, 0, 0, 63, 0, 0, 60, 0, 56, 0, 0, 55, 70, 72, 0, 0, 72, 0, 64, 0, 80, 0, 0, 84, 0, 63, 0
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,5
|
|
|
MATHEMATICA
| f[n_] := Block[{k = n - 1, m = Sqrt[n/2]}, While[k > m && !IntegerQ[Sqrt[n^2 - k^2]], k-- ]; If[k <= m, 0, k]]; Table[ f[n], {n, 90}] (from Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 21 2005)
|
|
|
CROSSREFS
| Cf. A083025, A046083, A046084, A009000, A009003, A108707.
A046080 gives the number of Pythagorean triangles with hypotenuse n.
Sequence in context: A089371 A133886 A061859 * A005925 A070206 A136448
Adjacent sequences: A108705 A108706 A108707 * A108709 A108710 A108711
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Sebastien Dumortier (sdumortier(AT)ac-limoges.fr), Jun 20 2005
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 21 2005
|
| |
|
|
