A024365 Areas of right triangles with coprime integer sides.
6, 30, 60, 84, 180, 210, 330, 504, 546, 630, 840, 924, 990, 1224, 1320, 1386, 1560, 1710, 1716, 2310, 2340, 2574, 2730, 3036, 3570, 3900, 4080, 4290, 4620, 4914, 5016, 5610, 5814, 6090, 6630, 7140, 7440, 7854, 7956, 7980, 8970, 8976, 9690, 10374
Offset: 1
Examples
6 is in the sequence because it is the area of the 3-4-5 triangle. a(7) = 210 corresponds to the two primitive Pythagorean triangles (21, 20, 29) and (35, 12, 37). See A024406. - _Wolfdieter Lang_, Jun 14 2015
Links
- T. D. Noe, Table of n, a(n) for n = 1..10000 (corrected by _Giovanni Resta_, Jan 21 2019)
- Supriya Mohanty and S. P. Mohanty, Pythagorean Numbers, Fibonacci Quarterly 28 (1990), 31-42.
Crossrefs
Programs
-
Mathematica
nn = 22; (* nn must be even *) t = Union[Flatten[Table[If[GCD[u, v] == 1 && Mod[u, 2] + Mod[v, 2] == 1, u v (u^2 - v^2), 0], {u, nn}, {v, u - 1}]]]; Select[Rest[t], # < nn (nn^2 - 1) &] (* T. D. Noe, Sep 19 2013 *)
-
PARI
select( {is_A024365(n)=my(N=1+#n=divisors(2*n)); for(i=1, N\2, gcd(n[i], n[N-i])==1 && issquare(n[i]^2+n[N-i]^2) && return(n[i]))}, [1..10^4]) \\ is_A024365 returns the smaller leg if n is a term, else 0. - M. F. Hasler, Jun 06 2024
Formula
Positive integers of the form u*v*(u^2 - v^2) where 2uv and u^2 - v^2 are coprime or, alternatively, where u, v are coprime and one of them is even.
a(n) = 6*A258151(n). - M. F. Hasler, Jan 20 2019
Extensions
Additional comments James R. Buddenhagen, Aug 10 2008 and from Max Alekseyev, Nov 12 2008
Edited by N. J. A. Sloane, Nov 20 2008 at the suggestion of R. J. Mathar
Comments