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,1

Links

Table of n, a(n) for n=1..55.

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

Cf. A089025.

Sequence in context: A348933 A167462 A357277 * A004611 A129904 A133290

Adjacent sequences: A088510 A088511 A088512 * A088514 A088515 A088516

Keyword

nonn

Author

Lekraj Beedassy, Nov 14 2003

Status

approved