login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A024410 Long leg of more than one primitive Pythagorean triangle. 3
420, 572, 780, 840, 924, 1020, 1292, 1596, 1680, 1716, 1848, 1932, 2100, 2145, 2244, 2300, 2484, 2520, 2640, 2652, 2700, 2900, 2964, 3080, 3132, 3315, 3348, 3432, 3465, 3596, 3640, 3828, 3876, 3960, 4060, 4092, 4095, 4340, 4488, 4588, 4620, 4680, 4692 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Ray Chandler, Table of n, a(n) for n = 1..10000

Ron Knott, Pythagorean Triples and Online Calculators

MATHEMATICA

bb=1; s=e=""; For[b=1, b<=12^3, For[a=b-1, a>2, c=(a^2+b^2)^0.5; If[c==Round[c]&&GCD[a, b]==1, If[b==bb, e=e<>ToString[b]<>", "; s=s<>ToString[a]<>", "<>ToString[b]<>", "<>ToString[Round[c]]<>"; "]; bb=b]; a-- ]; b++ ]; Print["B = ", e] (* Vladimir Joseph Stephan Orlovsky, Apr 29 2008 *)

Select[Tally[Union[Sort/@({Times@@#, (Last[#]^2-First[#]^2)/2}&/@(Select[ Subsets[Range[1, 121, 2], {2}], GCD@@#==1&]))][[All, 2]]], #[[2]]>1&][[All, 1]] //Sort (* Harvey P. Dale, Mar 07 2020 *)

CROSSREFS

Sequence in context: A061118 A097822 A069064 * A200521 A189982 A070237

Adjacent sequences:  A024407 A024408 A024409 * A024411 A024412 A024413

KEYWORD

nonn

AUTHOR

David W. Wilson

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 11 03:49 EDT 2021. Contains 343784 sequences. (Running on oeis4.)