|
%I #33 Aug 10 2017 04:39:11
%S 3,7,5,11,7,13,16,9,32,17,40,11,19,55,40,24,13,23,65,69,25,56,15,75,
%T 32,104,56,29,17,87,85,31,119,72,93,64,144,95,40,35,133,21,136,105,37,
%U 105,111,88,23,185,152,176,80,41,115
%N Smaller section of edge A089025(n) by integral cevian A088513(n).
%C Obviously, larger section is A089025(n) - a(n).
%F Larger section is A089025(n) - a(n) = A088586(n). a(n) = (A089025(n) - A088587(n))/2. - _Lekraj Beedassy_, Nov 25 2003
%t findPrimIntEquiSmallSection[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[a]; Break[]]], {a, Floor[c/2],
%t 1, -1}], {c, maxC}]][[2, 1]]
%t (* _Andrew Turner_, Aug 04 2017 *)
%K nonn
%O 1,1
%A _Lekraj Beedassy_, Nov 14 2003
%E a(7) changed from 18 to 16 by W. D. Smith, Mar 04 2012 (_N. J. A. Sloane_, Dec 05 2012)
%E a(42) changed from 105 to 21, and a(52)=176 inserted by _Andrew Turner_, Aug 04 2017
|
