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,1

Links

Table of n, a(n) for n=1..55.

Formula

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

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 *)

Crossrefs

Sequence in context: A030006 A229849 A357276 * A350347 A073136 A063924

Adjacent sequences: A088583 A088584 A088585 * A088587 A088588 A088589

Keyword

nonn

Author

Lekraj Beedassy, Nov 20 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

Status

approved