This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A070111 #17 Oct 04 2021 08:41:22
%S A070111 3,5,6,9,14,16,22,30,34,35,43,46,63,84,101,109,124,133,153,159,163,
%T A070111 170,189,193,201,234,240,286,297,328,334,350,352,382,392,410,444,450,
%U A070111 454,472,478,479,515,519,527,542,544,597,603,621,629,688,708,714,771,777,795,799,811,817,868,878,900,907,911
%N A070111 Numbers k such that [A070080(k), A070081(k), A070082(k)] is an integer triangle with prime sides.
%H A070111 Reinhard Zumkeller, <a href="/A070080/a070080.txt">Integer-sided triangles</a>
%e A070111 35 is a term: [A070080(35), A070081(35), A070082(35)]=[2,7,7].
%t A070111 m = 50 (* max perimeter *);
%t A070111 sides[per_] := Select[Reverse /@ IntegerPartitions[per, {3}, Range[ Ceiling[per/2]]], #[[1]] < per/2 && #[[2]] < per/2 && #[[3]] < per/2 &];
%t A070111 triangles = DeleteCases[Table[sides[per], {per, 3, m}], {}] // Flatten[#, 1] & // SortBy[Total[#] m^3 + #[[1]] m^2 + #[[2]] m + #[[1]] &];
%t A070111 Position[triangles, {a_, b_, c_} /; AllTrue[{a, b, c}, PrimeQ]] // Flatten (* _Jean-François Alcover_, Oct 04 2021 *)
%Y A070111 Cf. A070088, A070114, A070117, A070120, A070123, A070126, A070129, A070132, A070135.
%K A070111 nonn
%O A070111 1,1
%A A070111 _Reinhard Zumkeller_, May 05 2002
%E A070111 More terms from _Jean-François Alcover_, Oct 04 2021