|
%I #11 Mar 07 2020 07:00:23
%S 1,7,7,17,1,23,31,17,49,23,47,7,41,71,41,7,79,31,97,73,17,119,127,89,
%T 47,1,113,161,49,119,73,167,23,103,31,199,161,103,89,223,151,241,191,
%U 137,71,79,217,17,137,287,233,49,287,113,119,47,281,337,23,193,217,151,97
%N Difference between legs of primitive Pythagorean triangles sorted first on hypotenuse, then long leg.
%H Ray Chandler, <a href="/A120682/b120682.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A046087(n) - A046086(n) = A118962(n) - A118961(n).
%t A[s_Integer] := With[{s6 = StringPadLeft[ToString[s], 6, "0"]}, Cases[ Import["https://oeis.org/A" <> s6 <> "/b" <> s6 <> ".txt", "Table"], {_, _}][[All, 2]]];
%t A046086 = A@046086;
%t A046087 = A@046087;
%t a[n_] := A046087[[n]] - A046086[[n]];
%t a /@ Range[10000]; (* _Jean-François Alcover_, Mar 07 2020 *)
%Y Cf. A120681, A058529, A046086, A046087, A118961, A118962.
%K nonn
%O 1,2
%A _Lekraj Beedassy_, Jun 24 2006
%E Edited and extended by _Ray Chandler_, Apr 10 2010
|
