|
%I #15 Jul 26 2013 10:17:25
%S 3,5,6,7,8,9,9,10,11,12,12,13,14,15,15,15,16,16,17,18,18,19,20,20,20,
%T 21,21,21,22,23,24,24,24,24,25,25,26,27,27,27,28,28,28,29,30,30,30,31,
%U 32,32,32,33,33,33,33,34,35,35,35,36,36,36,36,36,37,38,39,39,39,39,40,40,40,40
%N Ordered short legs of Pythagorean triangles.
%H Vincenzo Librandi, <a href="/A009004/b009004.txt">Table of n, a(n) for n = 1..5000</a>
%H Robert Recorde, <a href="http://archive.org/details/TheWhetstoneOfWitte">The Whetstone of Witte</a>, whiche is the seconde parte of Arithmeteke: containing the extraction of rootes; the cossike practise, with the rule of equation; and the workes of Surde Nombers, London, 1557. See <a href="http://archive.org/stream/TheWhetstoneOfWitte#page/n55/mode/2up/">p. 57</a>.
%t maxLeg = 40; r[a_] := a /. {ToRules[ Reduce[a <= b < c && a^2 + b^2 == c^2, {b, c}, Integers]]}; Flatten[r /@ Complement[ Range[maxLeg], {1, 2, 4}]] (* _Jean-François Alcover_, Jun 13 2012 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
