A088514 - OEIS

%I #33 Aug 10 2017 04:39:11

%S 3,7,5,11,7,13,16,9,32,17,40,11,19,55,40,24,13,23,65,69,25,56,15,75,

%T 32,104,56,29,17,87,85,31,119,72,93,64,144,95,40,35,133,21,136,105,37,

%U 105,111,88,23,185,152,176,80,41,115

%N Smaller section of edge A089025(n) by integral cevian A088513(n).

%C Obviously, larger section is A089025(n) - a(n).

%F Larger section is A089025(n) - a(n) = A088586(n). a(n) = (A089025(n) - A088587(n))/2. - _Lekraj Beedassy_, Nov 25 2003

%t findPrimIntEquiSmallSection[maxC_] :=

%t Reap[Do[Do[

%t      With[{cevian = Abs[c E^((2 \[Pi] I)/6) - a]},

%t       If[FractionalPart[cevian] == 0 && GCD[a, c] == 1,

%t        Sow[a]; Break[]]], {a, Floor[c/2],

%t       1, -1}], {c, maxC}]][[2, 1]]

%t (* _Andrew Turner_, Aug 04 2017 *)

%K nonn

%O 1,1

%A _Lekraj Beedassy_, Nov 14 2003

%E a(7) changed from 18 to 16 by W. D. Smith, Mar 04 2012 (_N. J. A. Sloane_, Dec 05 2012)

%E a(42) changed from 105 to 21, and a(52)=176 inserted by _Andrew Turner_, Aug 04 2017