|
%I #5 Feb 25 2014 19:03:32
%S 4,3,3,5,15,5,10,6,13,5,4,13,4,10,8,15,20,7,10,26,123,7,3,3,29,15,5,5,
%T 68,20,25,15,8,15,12,25,10,9,9,20,61,15,12,75,250,14,105,6,4,5,4,45,
%U 12,25,60,10,68,10,11,39,16,40,7,35,85,7,29,9,447,21,9
%N Smallest other side of an Heronian triangle with a side of length n.
%H Giovanni Resta, <a href="/A238376/b238376.txt">Table of n, a(n) for n = 3..1000</a>
%e a(8) = 5 because (8,5,5) is Heronian triangle, and there are no such triangles with one side equal to 8 and another equal to 1, 2, 3 or 4.
%t area[a_, b_, c_] := Block[{p=(a+b+c)/2}, Sqrt[p*(p-a)*(p-b)*(p-c)]]; a[n_] := Catch@ Block[{b = 0, c}, While[True, b++; Do[If[ IntegerQ[area[n, b, c]], Throw@b], {c, Max[Abs[n-b] + 1, b], n+b-1}]]] /; n > 2; a/@ Range[3,50]
%Y Cf. A055527.
%K nonn
%O 3,1
%A _Giovanni Resta_, Feb 25 2014
|
