|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|