OFFSET
1,1
LINKS
Ray Chandler, Table of n, a(n) for n = 1..10000
EXAMPLE
60, 91,109; 60,221,229; 60, 899, 901;
84,187,205; 84, 437, 445; 84,1763,1765;
105,208,233; 105, 608, 617; 105,5512,5513;
120,209,241; 120, 391, 409; 120,3599,3601;
132,475,493; 132,1085,1093; 132,4355,4357;
140,171,221; 140,1221,1229; 140,4899,4901;
156,667,685; 156,1517,1525; 156,6083,6085;
MATHEMATICA
lst = {}; aa = aaa = 1; For[a=1, a<=500, For[b=a+1, ((b+1)^2-b^2)<=a^2, c=(a^2+b^2)^0.5; If[c==Round[c]&&GCD[a, b]==1, If[a == aaa, Print[a]; AppendTo[lst, a]]; aaa=aa; aa=a; ]; b++ ]; a++ ]; Union[lst]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 13 2008
EXTENSIONS
More terms Vladimir Joseph Stephan Orlovsky, Jan 24 2009
More terms from Ray Chandler, Jan 22 2020
STATUS
approved