A083875 One-sixth the areas of primitive Heronian triangles sorted.

1, 2, 4, 5, 6, 7, 10, 11, 12, 14, 15, 19, 20, 21, 22, 26, 28, 30, 33, 34, 35, 36, 39, 40, 42, 44, 45, 48, 50, 51, 55, 56, 60, 65, 66, 68, 70, 76, 77, 78, 80, 84, 85, 87, 88, 91, 95, 104, 105, 110, 114, 115, 119, 120, 124, 126, 130, 132, 133, 140, 144, 146

Offset: 1

Author

Lekraj Beedassy, Jun 18 2003

Keywords

• nonn

Comments

The Mathematica program examines all primitive Heronian triangles having longest side <= 900, which guarantees that we have found all triangles with area/6 <= 150. - T. D. Noe, Jun 22 2004

Links

• Giovanni Resta, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A072294.

Programs

Mathematica

nn=900; lst={}; Do[s=(a+b+c)/2; If[IntegerQ[s] && GCD[a, b, c]==1, area2=s(s-a)(s-b)(s-c); If[area2>0 && IntegerQ[Sqrt[area2]], AppendTo[lst, Sqrt[area2]]]], {a, nn}, {b, a}, {c, b}]; Union[Select[lst, #
				

Extensions

More terms from T. D. Noe, Jun 22 2004