OFFSET
1,7
LINKS
Felix Huber, Table of n, a(n) for n = 1..1000
EXAMPLE
For n = 13 the a(13) = 5 distinct triangles with prime sides (u, v, w) are (3, 19, 19), (5, 17, 19), (7, 17, 17), (11, 11, 19), and (11, 13, 17). They all have perimeter 41, which is the 13th prime.
MAPLE
A366398 := proc(n) local u, v, w, a; u := 1; a := 0; while 2*ithprime(u) < ithprime(n) do v := u; while 2*ithprime(v) <= ithprime(n) - ithprime(u) do if ithprime(n) < 2*ithprime(u) + 2*ithprime(v) and isprime(ithprime(n) - ithprime(u) - ithprime(v)) then a := a + 1; end if; v := v + 1; end do; u := u + 1; end do; return a; end proc; seq(A366398(n), n = 1 .. 100);
CROSSREFS
KEYWORD
nonn
AUTHOR
Felix Huber, Oct 09 2023
STATUS
approved