This is my last work with Maxima
EronianTriangles are
triangles with perimeter even number
and area integer number;
the block found sides a,b,c and area.
erone(p):=block(for a:2 thru p/2 do for b:a thru p/2 do for c:b thru p/2 do
if (a+b+c=p and a<b+c and b<a+c and c<a+b )
then (area: sqrt(p/2*(p/2-a)*(p/2-b)*(p/2-c)),
if floor(area)=area then print('a=a,'b=b,'c=c,'area=area)))$
Best regards
Luigi Marino