%I#8 2015年5月24日08:52:01

%S 2,6,7,8,7,9,12,11,14,12,15,17,18,16,19,20,18,18,22,16,20,22,23，

%电话23,25,26,21,24,21,22,27,30,20,25,28,28,31,32,26,30,33,27,28，

%U 28,36,26,29,29,34,35,24,31,32,33,39,30,38,39,42,29,35,37,40

%N原始勾股四元组a^2+b^2+c^2=d^2，0<a<=b<=c<=d，gcd（a，b，c，d）=1，按d排序，然后按c排序，然后按b排序；序列给出了c值。

%H Ivan Neretin，n表，n=1..10000的a（n）</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/PythagoreanQuadruple.html“>毕达哥拉斯四人组</a>

%t mx=50；res={}；执行[如果[GCD[b，c，d]>1，继续[]]；如果[IntegerQ[a=Sqrt[d^2-b^2-c^2]]&&a>0&a<=b，AppendTo[res，{a，b，c，d}]]，{d，mx}，{c，d{，c}]；res[[全部，3]]（*_Ivan Neretin_，2015年5月24日*）

%Y参见A096907、A096908、A096910。

%K nonn，看

%O 1,1号机组

%A _雷·钱德勒，2004年8月15日