aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions
RosettaCodeData/Task/Pythagorean-triples/Mathematica/pythagorean-triples-1.math
Ingy döt Net f23f22d71c Initial data commit
2023-07-01 13:44:08 -04:00

1 line
121 B
Text
Raw Permalink Blame History

pythag[n_]:=Block[{soln=Solve[{a^2+b^2==c^2,a+b+c<=n,0<a<b<c},{a,b,c},Integers]},{Length[soln],Count[GCD[a,b]/.soln,1]}]
Reference in a new issue View git blame Copy permalink