|
%I #11 Jan 22 2020 10:25:26
%S 33,39,51,57,65,69,75,85,87,93,95,105,111,115,119,123,129,133,135,141,
%T 145,147,155,159,161,165,175,177,183,185,189,195,201,203,205,207,213,
%U 215,217,219,225,231,235,237,245,249,255,259,261,265,267,273,279,285
%N Odd short leg of more than one primitive Pythagorean triangle.
%H Ray Chandler, <a href="/A083883/b083883.txt">Table of n, a(n) for n = 1..10000</a>
%t Take[Transpose[Select[Tally[Transpose[Union[Sort/@({Times@@#,(Last[#]^2- First[#]^2)/2}&/@(Select[Subsets[Range[1,501,2],{2}],GCD@@#==1&]))]][[1]]], OddQ[#[[1]]]&&#[[2]]>1&]][[1]],60] (* _Harvey P. Dale_, May 28 2015 *)
%Y Cf. A081874.
%K nonn
%O 1,1
%A _Lekraj Beedassy_, Jun 18 2003
%E Corrected and extended by _Ray Chandler_, Oct 29 2003
|
