A120682 Difference between legs of primitive Pythagorean triangles sorted first on hypotenuse, then long leg.
1, 7, 7, 17, 1, 23, 31, 17, 49, 23, 47, 7, 41, 71, 41, 7, 79, 31, 97, 73, 17, 119, 127, 89, 47, 1, 113, 161, 49, 119, 73, 167, 23, 103, 31, 199, 161, 103, 89, 223, 151, 241, 191, 137, 71, 79, 217, 17, 137, 287, 233, 49, 287, 113, 119, 47, 281, 337, 23, 193, 217, 151, 97
Offset: 1
Keywords
Links
- Ray Chandler, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
A[s_Integer] := With[{s6 = StringPadLeft[ToString[s], 6, "0"]}, Cases[ Import["https://oeis.org/A" <> s6 <> "/b" <> s6 <> ".txt", "Table"], {, }][[All, 2]]]; A046086 = A@046086; A046087 = A@046087; a[n_] := A046087[[n]] - A046086[[n]]; a /@ Range[10000]; (* Jean-François Alcover, Mar 07 2020 *)
Extensions
Edited and extended by Ray Chandler, Apr 10 2010