Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #21 Feb 01 2021 19:56:03
%S 12,16,18,30,32,36,40,42,44,48,50,54,56,60,64,66,68,70,72,76,78,80,84,
%T 90,96,98,100,104,108,110,112,114,120,126,128,130,132,136,140,144,150,
%U 152,154,156,160,162,164,168,170,172,174,176,180,182,186,190,192,196
%N Perimeters of primitive Heronian triangles.
%C Here a primitive Heronian triangle has integer sides a,b,c with GCD(a,b,c) = 1 and integral area. The perimeter is always even. Cheney's article contains many theorems about these triangles.
%H Peter Kagey and Giovanni Resta, <a href="/A096468/b096468.txt">Table of n, a(n) for n = 1..10000</a> (first 1000 terms from Peter Kagey)
%H Wm. Fitch Cheney, Jr., <a href="http://www.jstor.org/stable/2300173">Heronian Triangles</a>, Amer. Math. Monthly, Vol. 36, No. 1 (Jan 1929), 22-28.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/HeronianTriangle.html">Heronian Triangle</a>
%e 12 is on this list because the triangle with sides 3, 4, 5 has integral area and perimeter 12.
%t nn=150; 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, 2s]]], {a, nn}, {b, a}, {c, b}]; Union[lst]
%Y Cf. A070138 (number of primitive Heronian triangles having perimeter n), A083875 (area/6 of primitive Heronian triangles), A096467 (longest side of primitive Heronian triangles).
%K nonn
%O 1,1
%A _T. D. Noe_, Jun 22 2004
%E Name changed by _Wesley Ivan Hurt_, May 17 2020