Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #17 Sep 07 2014 08:48:09
%S 280,1144,1155,1680,1768,1976,2145,2584,2805,3003,3128,3315,3360,3400,
%T 3496,3705,3800,4095,4600,4845,5005,5280,5336,5355,5704,5720,5800,
%U 5865,5985,6160,6200,6240,6545,6555,6783,6864,7192,7280,7315,7400,7735,8120,8265,8584,8645,8680,8835,8855,9176,9177,9240,9360,9512,9976
%N List of integers b such that (a1,b,c1) and (a2,b,c2) are primitive Eisenstein triples, max(a1,b,c1,a2,c2)=b, and a1,c1,a3,c3 are distinct.
%C For Eisenstein triple see A121992.
%e 280 is in the list because (93,280,247) and (19,280,271) are primitive Eisenstein triples and 280 is the largest side and no other side is equal.
%e Consider (3,8,7) and (5,8,7), 8 is not in the list because 7 appear in both triple.
%t max = 2000;
%t data = Do[Sqrt[-3 a^2 + 4 c^2] // If[IntegerQ[#] && GCD[a, c] == 1, {a, (a + #)/2, c} // Sow] &, {a, max}, {c, Sqrt[3]/2 a // Ceiling, a - 1}] // Reap // Last // Last;
%t Select[data[[;; , 1]] // Tally, #[[2]] > 1 &][[;; , 1]]
%Y Cf. A089025, A121992.
%K nonn
%O 1,1
%A _Albert Lau_, Aug 12 2014