OFFSET
1,1
LINKS
Jean-François Alcover, Table of n, a(n) for n = 1..1000
MATHEMATICA
a[n_] := 2k /. Solve[k > 0 && 1 < h < 2k + 2n + 1 && (2k)^2 + (2n + 1)^2 == h^2 && GCD[2k, 2n + 1, h] == 1, {k, h}, Integers][[1]];
a /@ Range[54] (* Jean-François Alcover, Mar 05 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Lekraj Beedassy, Nov 17 2003
EXTENSIONS
Corrected and extended by Ray Chandler, Jul 14 2004
STATUS
approved