OFFSET
1,1
COMMENTS
EXAMPLE
15 is a term because it is the long leg of the integer right triangle with sides 8, 15, 17 and the hypotenuse of the integer right triangle with sides 9, 12, 15.
MATHEMATICA
prims=With[{cps=Select[Subsets[Range[1, 221, 2], {2}], CoprimeQ@@#&]}, ptrip[ {a_, b_}]:={a*b, (b^2-a^2)/2, (b^2+a^2)/2}; Sort[Sort/@(ptrip/@cps)]]; pyths= Sort[Flatten[Table[n #&/@prims, {n, 200}], 1]]; Take[Intersection[ Transpose[ pyths][[2]], Transpose[pyths][[3]]], 80] (* Harvey P. Dale, Apr 26 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Sep 18 2002
EXTENSIONS
Corrected by Harvey P. Dale, Apr 26 2012
STATUS
approved