OFFSET
1,1
LINKS
Ray Chandler, Table of n, a(n) for n = 1..10000
FORMULA
a^2+b^2=c^2
EXAMPLE
Examples of triples: 660.779.1021, 660.989.1189, 660.2989.3061, 660.4331.4381, 660.12091.12109, 660.27221.27229, 660.108899.108901
1092.1325.1717, 1092.1595.1933, 1092.6035.6133, 1092.8245.8317, 1092.33115.33133, 1092.74525.74533, 1092.298115.298117
MATHEMATICA
PyphagoreanAs[a_]:=(q={}; k=0; Do[y=(a^2+b^2)^0.5; c=IntegerPart[y]; If[c==y, p=0; If[GCD[a, b, c]==1, AppendTo[q, a.b.c]; k++ ]], {b, a+1, a^2}]; PrependTo[q, k]; q)lst={}; Do[If[PyphagoreanAs[n][[1]]==7, Print[n]; AppendTo[lst, n]], {n, 6*10^2, 2*10^3}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Aug 25 2008
EXTENSIONS
More terms from Ray Chandler, Jan 22 2020
STATUS
approved