|
%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
|
