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 #11 Aug 06 2017 14:27:40
%S 192,204,210,216,240,252,264,270,324,330,336,378,384,408,420,456,462,
%T 480,504,522,540,546,624,690,714,780,792,840,876,966,990,1176,1248,
%U 1320,1380,1806,2394,2460,3120,4446,8436
%N Areas of integer-sided triangles whose area equals 3 times their perimeter.
%C There are no further terms.
%C For a(3)=210, there are 2 solutions (20,21,29),(17,25,28);
%C For a(11)=336, there are 2 solutions (14,48,50),(24,35,53);
%C For a(16)=456, a(22)=546, there are 2 solutions respectively too.
%e The areas 192,204,210,216,240, ... pertain respectively to triangles with sides (20,20,24), (17,25,26), (20,21,29), (18,24,30), (16,30,34), ..., equal 3 times their perimeter 64,68,70,72,80, ...
%t f[a_, b_, c_] := Block[{P = Total[{a, b, c}]/2}, Sqrt[P (P - a) (P - b) (P - c)]]; Sort@ Map[f @@ # &, Select[Union@ Map[Sort, Tuples[Range@ 150, {3}]], f @@ # == 3 Total@# &] ] (* _Michael De Vlieger_, Jul 03 2017 *)
%Y Cf. A098030, A289218.
%Y A row of the triangle in A290451.
%K nonn,fini,full
%O 1,1
%A _Zhining Yang_, Jun 28 2017