login
A088586
Larger section of edge A089025(n) by integral cevian A088513(n).
2
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
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
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