A083875 - OEIS

%I #8 Nov 03 2019 17:55:04

%S 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,

%T 44,45,48,50,51,55,56,60,65,66,68,70,76,77,78,80,84,85,87,88,91,95,

%U 104,105,110,114,115,119,120,124,126,130,132,133,140,144,146

%N One-sixth the areas of primitive Heronian triangles sorted.

%C 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

%H Giovanni Resta, <a href="/A083875/b083875.txt">Table of n, a(n) for n = 1..10000</a>

%t 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, #<nn&]]/6

%Y Cf. A072294.

%K nonn

%O 1,2

%A _Lekraj Beedassy_, Jun 18 2003

%E More terms from _T. D. Noe_, Jun 22 2004