A088513 - OEIS

%I #21 Aug 10 2017 04:39:04

%S 7,13,19,31,37,43,49,61,67,73,79,91,91,97,103,109,127,133,133,139,157,

%T 151,169,163,193,181,199,211,217,217,223,241,229,247,247,259,259,277,

%U 301,307,283,331,301,313,343,337,349,367,397,361,373,379,403,421,403

%N Smallest cevians corresponding to A089025(n).

%t findPrimIntEquiCevian[maxC_] :=

%t Reap[Do[Do[

%t      With[{cevian = Abs[c E^((2 \[Pi] I)/6) - a]},

%t       If[FractionalPart[cevian] == 0 && GCD[a, c] == 1,

%t        Sow[cevian]; Break[]]], {a, Floor[c/2],

%t       1, -1}], {c, maxC}]][[2, 1]]

%t (* _Andrew Turner_, Aug 04 2017 *)

%Y Cf. A089025.

%K nonn

%O 1,1

%A _Lekraj Beedassy_, Nov 14 2003