reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
isA024364[an_] := Module[{r, s}, For[ r = Floor[(an/4)^(1/2)], r <= Floor[(an/2)^(1/2)], r++, For[s = r - 1, s >= 1, s -= 2, If[2 r (r + s) == an && GCD[r, s] < 2, Return[True]]; If[2 r (r + s) < an, Break[]]]]; Return[False]];
Select[Range[2, 2000], If[isA024364[#^2], Print[#]; True, False]&] (* Jean-François Alcover, May 24 2024, after R. J. Mathar *)
approved
editing
proposed
approved
editing
proposed
Charlie Neder, <a href="/A120090/b120090.txt">Table of n, a(n) for n = 1..1000</a>
approved
editing
editing
approved
P. Yiu, <a href="http://www.math.fau.edu/yiu/RecreationalMathematics2003.pdf">"Primitive Pythagorean triangles with square perimeters" in 'Recreational Mathematics' Chap. 6.2 pp. 50, /360</a>
approved
editing
editing
approved