A088514 Smaller section of edge A089025(n) by integral cevian A088513(n).

3, 7, 5, 11, 7, 13, 16, 9, 32, 17, 40, 11, 19, 55, 40, 24, 13, 23, 65, 69, 25, 56, 15, 75, 32, 104, 56, 29, 17, 87, 85, 31, 119, 72, 93, 64, 144, 95, 40, 35, 133, 21, 136, 105, 37, 105, 111, 88, 23, 185, 152, 176, 80, 41, 115

Offset

1,1

Comments

Obviously, larger section is A089025(n) - a(n).

Links

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

Formula

Larger section is A089025(n) - a(n) = A088586(n). a(n) = (A089025(n) - A088587(n))/2. - Lekraj Beedassy, Nov 25 2003

Mathematica

findPrimIntEquiSmallSection[maxC_] :=
Reap[Do[Do[
     With[{cevian = Abs[c E^((2 \[Pi] I)/6) - a]},
      If[FractionalPart[cevian] == 0 && GCD[a, c] == 1,
       Sow[a]; Break[]]], {a, Floor[c/2],
      1, -1}], {c, maxC}]][[2, 1]]
(* Andrew Turner, Aug 04 2017 *)

Crossrefs

Sequence in context: A094009 A328185 A349772 * A357275 A254929 A066677

Adjacent sequences: A088511 A088512 A088513 * A088515 A088516 A088517

Keyword

nonn

Author

Lekraj Beedassy, Nov 14 2003

Extensions

a(7) changed from 18 to 16 by W. D. Smith, Mar 04 2012 (N. J. A. Sloane, Dec 05 2012)

a(42) changed from 105 to 21, and a(52)=176 inserted by Andrew Turner, Aug 04 2017

Status

approved