OFFSET
1,1
COMMENTS
Obviously, larger section is A089025(n) - a(n).
FORMULA
Larger section is A089025(n) - a(n) = A088586(n). a(n) = (A089025(n) - A088587(n))/2. - Lekraj Beedassy, Nov 25 2003
MATHEMATICA
findPrimIntEquiSmallSection[maxC_] :=
Reap[Do[Do[
With[{cevian = Abs[c E^((2 \[Pi] I)/6) - a]},
If[FractionalPart[cevian] == 0 && GCD[a, c] == 1,
Sow[a]; 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
EXTENSIONS
a(7) changed from 18 to 16 by W. D. Smith, Mar 04 2012 (N. J. A. Sloane, Dec 05 2012)
a(42) changed from 105 to 21, and a(52)=176 inserted by Andrew Turner, Aug 04 2017
STATUS
approved