|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|