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

2, 1, 11, 13, 26, 22, 23, 47, 13, 46, 11, 74, 61, 2, 37, 71, 107, 97, 23, 22, 118, 59, 146, 37, 143, 1, 109, 166, 191, 73, 83, 193, 26, 131, 94, 157, 11, 122, 239, 253, 59, 299, 73, 142, 286, 167, 169, 227, 362, 46, 121, 83, 277, 358, 218

Offset: 1

Author

Lekraj Beedassy, Nov 20 2003

Keywords

• nonn

Comments

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

Crossrefs

Cf. A088514.

Programs

Mathematica

findPrimIntEquiSectionDiff[maxC_] :=
Reap[Do[Do[
     With[{cevian = Abs[c E^((2 \[Pi] I)/6) - a]},
      If[FractionalPart[cevian] == 0 && GCD[a, c] == 1,
       Sow[c - 2 a]; Break[]]], {a, Floor[c/2],
      1, -1}], {c, maxC}]][[2, 1]]
(* Andrew Turner, Aug 04 2017 *)

Formula

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

Extensions

a(35)=94 and a(36)=157 order reversed by Andrew Turner, Aug 04 2017