This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A120682 #11 Mar 07 2020 07:00:23 %S A120682 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 A120682 47,1,113,161,49,119,73,167,23,103,31,199,161,103,89,223,151,241,191, %U A120682 137,71,79,217,17,137,287,233,49,287,113,119,47,281,337,23,193,217,151,97 %N A120682 Difference between legs of primitive Pythagorean triangles sorted first on hypotenuse, then long leg. %H A120682 Ray Chandler, <a href="/A120682/b120682.txt">Table of n, a(n) for n = 1..10000</a> %F A120682 a(n) = A046087(n) - A046086(n) = A118962(n) - A118961(n). %t A120682 A[s_Integer] := With[{s6 = StringPadLeft[ToString[s], 6, "0"]}, Cases[ Import["https://oeis.org/A" <> s6 <> "/b" <> s6 <> ".txt", "Table"], {_, _}][[All, 2]]]; %t A120682 A046086 = A@046086; %t A120682 A046087 = A@046087; %t A120682 a[n_] := A046087[[n]] - A046086[[n]]; %t A120682 a /@ Range[10000]; (* _Jean-François Alcover_, Mar 07 2020 *) %Y A120682 Cf. A120681, A058529, A046086, A046087, A118961, A118962. %K A120682 nonn %O A120682 1,2 %A A120682 _Lekraj Beedassy_, Jun 24 2006 %E A120682 Edited and extended by _Ray Chandler_, Apr 10 2010