OFFSET
1,1
COMMENTS
All Pythagorean triangles have their hypotenuse equal to their circumdiameter. This sequence excludes Pythagorean triangles from the superset of primitive Heronian triangles (PHT's) and lists all circumdiameters with integer values excluding repetitions. It appears that this sequence is a subset of A120961, from which first differs at a(45). Missing terms start 1073, 1537, 1961, 3277, 4181, 5713, … (see A329148). The table of PHT's used to generate this sequence was obtained from lists generated by Sascha Kurz (see Link). The list contains a triple for every possible PHT with a maximum side length of 10000. The triples are in the form (a, b, c) where a >= b >= c and where a <= 10000.
LINKS
Ray Chandler, Table of n, a(n) for n = 1..10000
Sascha Kurz, On the generation of Heronian triangles, Serdica Journal of Computing. 2 (2) (2008): pp. 181-196.
Sascha Kurz, Lists of primitive Heronian triples, Bayreuth University.
EXAMPLE
a(1) = 25 as the Heronian triangle with sides (20, 15, 7) is primitive, is non-Pythagorean, has an area of 42 and has a circumdiameter of 25. It is the first occurrence of an integral circumdiameter for a non-Pythagorean PHT.
MATHEMATICA
lst1=ReadList["C:/primitive_heronian_triangles_1_10000.txt", {Number, Number, Number}]; lst = {}; Do[{a, b, c} = lst1[[n]]; s = (a + b + c)/2; A=Sqrt[s(s-a)(s-b)(s-c)]; If[IntegerQ[d=a*b*c/(2 A)]&&a!=d, AppendTo[lst, d]], {n, 1, Length[lst1]}]; Union@lst (* For download of file of primitive Heronian triples see Link *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Frank M Jackson, Apr 22 2017
STATUS
approved