A120682 - OEIS

%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