login
A179271
Odd long legs `B` of more than one primitive Pythagorean triangle.
1
2145, 3315, 3465, 4095, 4845, 5005, 5865, 6435, 6545, 6555, 7735, 8645, 9009, 9945, 10005, 10695, 11305, 11781, 13167, 13485, 13685, 13923, 14535, 15015, 15295, 15561, 16065, 16095, 17017, 17205, 17255, 17835, 17955, 18837, 19019, 19065
OFFSET
1,1
COMMENTS
2145,752,2273;2145,1568,2657;;3315,812,3413;3315,2852,4373;
LINKS
MATHEMATICA
lst1={}; lst={0}; Do[Do[If[GCD[a, b]==1, c=Sqrt[a^2+b^2]; If[IntegerQ[c], AppendTo[lst, b]; L=Length[lst]; If[lst[[L]]==lst[[L-1]]&&OddQ[lst[[L]]], Print[lst[[L]]]; AppendTo[lst1, lst[[L]]]]]], {a, b-1, 3, -1}], {b, 4, 4*7!}]; lst1
KEYWORD
nonn
AUTHOR
EXTENSIONS
a(20) - a(36) Robert G. Wilson v, Jul 12 2010
STATUS
approved