求助mathematica高手

题目：编程找出c<=1000,c=b+5的所有勾股数，并问：能否利用通项表示{a,b,c} ?

For[c = 6, c <= 1000, c++, b = c - 5; a = Sqrt[c^2 - b^2];
If[Round[a] == a], Print["a=", a, "b=", b, "c=", c]] 哪错的

这是他的蓝字提示：

For::"argt": "\!\(For\) called with \!\(5\) arguments; \!\(3\) or \!\(4\) \
arguments are expected."

请改正

你好。
很幸运看到你的问题。
但是又很遗憾到现在还没有人回答你的问题。也可能你现在已经在别的地方找到了答案，那就得恭喜你啦。
可能是你问的问题有些专业了，没人会。或者别人没有遇到或者接触过你的问题，所以帮不了你。建议你去问题的相关论坛去求助，那里的人通常比较多，也比较热心，可能能快点帮你解决问题。
希望我的回答也能够帮到你！
祝你好运~！

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息