login
A088513
Smallest cevians corresponding to A089025(n).
6
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
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
KEYWORD
nonn
AUTHOR
Lekraj Beedassy, Nov 14 2003
STATUS
approved