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 A088586 #27 Aug 10 2017 04:39:18
%S A088586 5,8,16,24,33,35,39,56,45,63,51,85,80,57,77,95,120,120,88,91,143,115,
%T A088586 161,112,175,105,165,195,208,160,168,224,145,203,187,221,155,217,279,
%U A088586 288,192,320,209,247,323,272,280,315,385,231,273,259,357,399,333
%N A088586 Larger section of edge A089025(n) by integral cevian A088513(n).
%F A088586 a(n) = (A089025(n) + A088587(n))/2. - _Lekraj Beedassy_, Nov 25 2003
%t A088586 findPrimIntEquiLargeSection[maxC_] :=
%t A088586 Reap[Do[Do[
%t A088586 With[{cevian = Abs[c E^((2 \[Pi] I)/6) - a]},
%t A088586 If[FractionalPart[cevian] == 0 && GCD[a, c] == 1,
%t A088586 Sow[c - a]; Break[]]], {a, Floor[c/2],
%t A088586 1, -1}], {c, maxC}]][[2, 1]]
%t A088586 (* _Andrew Turner_, Aug 04 2017 *)
%K A088586 nonn
%O A088586 1,1
%A A088586 _Lekraj Beedassy_, Nov 20 2003
%E A088586 Repeated 112 at a(24) and a(25) removed, and order of a(35)=187 and a(36)=221 reversed by _Andrew Turner_, Aug 04 2017