OFFSET
1,1
COMMENTS
Subsequence of A208984.
For the same area, the number of triangles such that the length of the circumradius is a prime number is not unique; for example, from a(5)= 840 we find two triangles of sides (a,b,c)=(40,42,58) and (24,70,74) where R = 29 and 37, respectively.
The circumradius R values corresponding to the terms of the sequence are 5, 13, 17, 41, (29 or 37), 61, 53, 113, 101, 73, 89, 181, 97, (109 or 197), 149, ...
The area A of a triangle whose sides have lengths a, b, and c is given by Heron's formula: A = sqrt(s*(s-a)*(s-b)*(s-c)), where s = (a+b+c)/2. The circumradius R is given by R = abc/4A.
Observation:
- all sides of the triangles are even;
- the inradius values are also even;
- the first triangle, of sides (6,8,10), is the unique triangle in which the lengths of the inradius and the circumradius are both prime numbers (r = A/p = 24/12 = 2 and R = abc/4A = 480/4*24 = 5).
For the same area, it is possible to find a prime inradius (see A230195), but the corresponding circumradius is generally rational. For example, for a(2) = 120, we find two triangles:
(10,24,26) => r = 4 and R = 13;
(16,25,39) => r = 3 prime and R = 65/2.
The following table gives the first values (A, a, b, c, r, R) where A is the integer area, a,b,c are the sides and r = A/p, R = a*b*c/4*A are respectively the values of the inradius and the circumradius.
+--------+------+-------+-------+------+-------+
| A | a | b | c | r | R |
+--------+------+-------+-------+------+-------+
| 24 | 6 | 8 | 10 | 2 | 5 |
| 120 | 10 | 24 | 26 | 4 | 13 |
| 240 | 16 | 30 | 34 | 6 | 17 |
| 720 | 18 | 80 | 82 | 8 | 41 |
| 840 | 40 | 42 | 58 | 12 | 29 |
| 840 | 24 | 70 | 74 | 10 | 37 |
| 1320 | 22 | 120 | 122 | 10 | 61 |
| 2520 | 56 | 90 | 106 | 20 | 53 |
| 3360 | 30 | 224 | 226 | 14 | 113 |
| 3960 | 40 | 198 | 202 | 18 | 101 |
| 5280 | 96 | 110 | 146 | 30 | 73 |
| 6240 | 78 | 160 | 178 | 30 | 89 |
+--------+------+-------+-------+------+-------+
EXAMPLE
a(1) = 24 because, for (a,b,c) = (6, 8, 10) => s= (6+8+10)/2 =12, and
A = sqrt(12(12-6)(12-8)(12-10)) = sqrt(576) = 24;
R = abc/4A = 480/4*24 = 5 is prime.
MATHEMATICA
nn=2000; Do[s=(a+b+c)/2; If[IntegerQ[s], area2=s (s-a)(s-b)(s-c); If[0<area2&&IntegerQ[Sqrt[area2]]&&PrimeQ[a*b*c/(4*Sqrt[area2])], Print[Sqrt[area2], " ", a " ", b, " ", c, " ", Sqrt[area2]/s, " ", a*b*c/(4*Sqrt[area2])]]], {a, nn}, {b, a}, {c, b}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Apr 05 2015
STATUS
approved