login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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.
1

%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