OFFSET
1,1
FORMULA
a(n) = sqrt(4c^2 - 3d^2).
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Lekraj Beedassy, Nov 20 2003
EXTENSIONS
a(35)=94 and a(36)=157 order reversed by Andrew Turner, Aug 04 2017
STATUS
approved