A088586 Larger section of edge A089025(n) by integral cevian A088513(n).

5, 8, 16, 24, 33, 35, 39, 56, 45, 63, 51, 85, 80, 57, 77, 95, 120, 120, 88, 91, 143, 115, 161, 112, 175, 105, 165, 195, 208, 160, 168, 224, 145, 203, 187, 221, 155, 217, 279, 288, 192, 320, 209, 247, 323, 272, 280, 315, 385, 231, 273, 259, 357, 399, 333

Offset: 1

Author

Lekraj Beedassy, Nov 20 2003

Keywords

• nonn

Programs

Mathematica

findPrimIntEquiLargeSection[maxC_] :=
Reap[Do[Do[
     With[{cevian = Abs[c E^((2 \[Pi] I)/6) - a]},
      If[FractionalPart[cevian] == 0 && GCD[a, c] == 1,
       Sow[c - a]; Break[]]], {a, Floor[c/2],
      1, -1}], {c, maxC}]][[2, 1]]
(* Andrew Turner, Aug 04 2017 *)

Formula

a(n) = (A089025(n) + A088587(n))/2. - Lekraj Beedassy, Nov 25 2003

Extensions

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