A088513 Smallest cevians corresponding to A089025(n).

7, 13, 19, 31, 37, 43, 49, 61, 67, 73, 79, 91, 91, 97, 103, 109, 127, 133, 133, 139, 157, 151, 169, 163, 193, 181, 199, 211, 217, 217, 223, 241, 229, 247, 247, 259, 259, 277, 301, 307, 283, 331, 301, 313, 343, 337, 349, 367, 397, 361, 373, 379, 403, 421, 403

Offset: 1

Author

Lekraj Beedassy, Nov 14 2003

Keywords

• nonn

Crossrefs

Cf. A089025.

Programs

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 *)