OFFSET
1,1
MATHEMATICA
findPrimIntEquiCevian[maxC_] :=
Reap[Do[Do[
With[{cevian = Abs[c E^((2 \[Pi] I)/6) - a]},
If[FractionalPart[cevian] == 0 && GCD[a, c] == 1,
Sow[cevian]; Break[]]], {a, Floor[c/2],
1, -1}], {c, maxC}]][[2, 1]]
(* Andrew Turner, Aug 04 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Lekraj Beedassy, Nov 14 2003
STATUS
approved