A088587 - OEIS

%I #18 Aug 10 2017 04:39:25

%S 2,1,11,13,26,22,23,47,13,46,11,74,61,2,37,71,107,97,23,22,118,59,146,

%T 37,143,1,109,166,191,73,83,193,26,131,94,157,11,122,239,253,59,299,

%U 73,142,286,167,169,227,362,46,121,83,277,358,218

%N Difference between the two segments of edge d = A089025(n) partitioned by cevian c = A088513(n).

%C a(n) is minimal, i.e., equals 1 for values c = A001570(n), d = A028230(n).

%F a(n) = sqrt(4c^2 - 3d^2).

%t findPrimIntEquiSectionDiff[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[c - 2 a]; Break[]]], {a, Floor[c/2],

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

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

%Y Cf. A088514.

%K nonn

%O 1,1

%A _Lekraj Beedassy_, Nov 20 2003

%E a(35)=94 and a(36)=157 order reversed by _Andrew Turner_, Aug 04 2017