OFFSET
1,2
EXAMPLE
For n=1, there is 1 triangle: {2, 2, 2}, with largest side prime(1) = 2.
For n=2, there are 3 triangles: {2, 2, 3}, {2, 3, 3}, {3, 3, 3}, with largest side prime(2) = 3.
For n=4, there are 6 triangles :{2, 7, 7}, {3, 5, 7}, {3, 7, 7}, {5, 5, 7}, {5, 7, 7}, {7, 7, 7}, with largest side prime(4) = 7. Total = 6 = a(4).
For n=5, largest side = prime(n) = 11. Triangles are {{2, 11, 11}, {3, 11, 11}, {5, 7, 11}, {5, 11, 11}, {7, 7, 11}, {7, 11, 11}, {11, 11, 11}}. Total = 7 = a(5).
MAPLE
#nType=1 for acute triangles, nType=2 for obtuse triangles
#nType=0 for both triangles
CountPrimeTriangles := proc (n, nType := 1)
local aa, oo, j, k, sg, a, b, c, tt, lAcute;
aa := {}; oo := {};
a := ithprime(n);
for j from n by -1 to 1 do
b := ithprime(j);
for k from j by -1 to 1 do
c := ithprime(k);
if a < b+c and abs(b-c) < a and b < c+a and abs(c-a) < b and c < a+b and abs(a-b) < c then
lAcute := evalb(0 < b^2+c^2-a^2);
tt := sort([a, b, c]);
if lAcute then aa := {op(aa), tt} else oo := {op(oo), tt} end if
end if
end do
end do;
return sort(`if`(nType = 1, aa, `if`(nType = 2, oo, `union`(aa, oo))))
end proc:
CROSSREFS
KEYWORD
nonn
AUTHOR
César Eliud Lozada, Mar 04 2019
STATUS
approved