|
%I #28 May 17 2023 14:42:56
%S 5,6,8,13,13,15,15,17,17,17,20,20,21,21,24,25,25,25,26,26,28,29,29,30,
%T 30,30,35,35,36,37,37,37,37,37,39,39,39,39,40,40,40,41,41,41,41,42,44,
%U 44,45,48,48,50,50,51,51,51,51,52,52,52,52,52,52,53,53,53,53,55,55,56
%N Longest side of primitive Heronian triangles, sorted.
%H Giovanni Resta, <a href="/A120131/b120131.txt">Table of n, a(n) for n = 1..10000</a>
%H Michael Somos, <a href="https://grail.eecs.csuohio.edu/~somos/tritab.html">Heronian Triangle Table</a>
%H P. Yiu, <a href="http://math.fau.edu/yiu/RecreationalMathematics2003.pdf">Heron triangles with sides < 100</a>, Recreational Mathematics, Appendix Chap. 9.3 pp. 81/360. (This is a download of 360 pages.)
%t hQ[a_,b_,c_] := IntegerQ@ Sqrt@ Block[{s = (a+b+c)/2}, s (s-a) (s-b) (s-c)]; Reap[Do[If[ GCD[a, b, c] == 1 && hQ[a, b, c], Sow@ a], {a, 60}, {b, a}, {c, a-b+1, b}]][[2, 1]] (* _Giovanni Resta_, May 21 2016 *)
%Y Cf. A055592, A120132, A120133, A072294, A306626.
%K nonn
%O 1,1
%A _Lekraj Beedassy_, Jun 10 2006
|
