A181924 Area A of the triangles such that A, the sides, and one of the medians are integers.
12, 24, 48, 60, 96, 108, 120, 168, 192, 216, 240, 300, 336, 360, 384, 420, 432, 480, 540, 588, 600, 660, 672, 720, 768, 840, 864, 960, 972, 1008, 1080, 1092, 1176, 1200, 1260, 1320, 1344, 1440, 1452, 1500, 1512, 1536, 1680, 1728, 1848, 1920, 1944, 1980
Offset: 1
Keywords
Examples
336 is in the sequence, because for the sides (14,48,50), A = sqrt(56*(56-14)*(56-48)*(56-50)) = sqrt(112896) = 336, and m = sqrt(2a^2 + b^2 - c^2)/2 = sqrt(2*14^2 + 2*48^2 - 50^2)/2 = 25.
References
- Ralph H. Buchholz and Randall L. Rathbun, An infinite set of Heron triangles with two rational medians, Newcastle University, Newcastle, Jan 1997.
- Ralph H. Buchholz, On triangles with rational altitudes, angles bisectors or medians, PHD Thesis, University of Newcastle, Nov 1989.
Links
- Ray Chandler, Table of n, a(n) for n = 1..144
- Andrew Bremner and Richard K. Guy, A Dozen Difficult Diophantine Dilemmas, American Mathematical Monthly 95(1988) 31-36.
- Ralph H. Buchholz, On triangles with rational altitudes, angles bisectors or medians, Bulletin of the Australian Mathematical Society , Volume 45 , Issue 3 , June 1992 , pp. 525-526.
- Ralph H. Buchholz and Randall L. Rathbun, An infinite set of Heron triangles with two rational medians, The American Mathematical Monthly, Vol. 104, No. 2 (Feb., 1997), pp. 107-115.
- Eric Weisstein's World of Mathematics, Heronian Triangle
Programs
-
Maple
with(numtheory):T:=array(1..1000):k:=0:nn:=300:for a from 1 to nn do: for b from a to nn do: for c from b to nn do:p:=(a+b+c)/2:s:=p*(p-a)*(p-b)*(p-c):if s>0 then s1:=sqrt(s): m11:=sqrt((2*b^2+2*c^2-a^2)/4): m22:=sqrt((2*c^2+2*a^2-b^2)/4): m33:=sqrt((2*a^2+2*b^2-c^2)/4):if s1=floor(s1) and (m11=floor(m11) or m22=floor(m22) or m33=floor(m33)) then k:=k+1:T[k]:=s1:else fi:fi:od:od:od: L := [seq(T[i],i=1..k)]:L1:=convert(T,set):A:=sort(L1, `<`): print(A):
-
Mathematica
nn = 300; lst = {}; Do[s = (a + b + c)/2; If[IntegerQ[s], area2 = s (s - a) (s - b) (s - c); m1=(2*b^2+2*c^2-a^2)/4; m2=(2*c^2+2*a^2-b^2)/4; m3=(2*a^2+2*b^2-c^2)/4;If[0 < area2 && IntegerQ[Sqrt[area2]] && (IntegerQ[(Sqrt[m1])] || IntegerQ[(Sqrt[m2])] || IntegerQ[(Sqrt[m3])]), AppendTo[lst, Sqrt[area2]]]], {a, nn}, {b, a}, {c, b}]; Union[lst]
Comments