OFFSET
1,1
COMMENTS
Areas of Pythagorean triangles.
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 6 = 6 * 1 = 3 * 2, (6 - 1)=(3 + 2) = 5 = A009000(1).
PROG
(PARI) list(lim) = {my(lh = List()); for(u = 2, sqrtint(lim), for(v = 1, u, if (u^2+v^2 > lim, break); if ((gcd(u, v) == 1) && (0 != (u-v)%2), for (i = 1, lim, if (i*(u^2+v^2) > lim, break); /* if (u^2 - v^2 < 2*u*v, w = [i*(u^2 - v^2), i*2*u*v, i*(u^2+v^2)], w = [i*2*u*v, i*(u^2 - v^2), i*(u^2+v^2)]); */ listput(lh, [i*(u^2+v^2), i^2*(u^2 - v^2)*u*v]); ); ); ); ); lh = vecsort(Vec(lh)); vector(#lh, i, lh[i][2])} \\ David A. Corneth, Apr 10 2021, adapted from A009000
CROSSREFS
KEYWORD
nonn
AUTHOR
Naohiro Nomoto, Sep 19 2000
EXTENSIONS
Offset changed to 1 by David A. Corneth, Apr 10 2021
STATUS
approved
