%I#21 2021年10月22日11:34:07

%S 1,7,7,17,1,23,31,49,17,47,23,71,7,41,79,97,7,31,73127119,89,17，

%电话161,47113167119,1199,49,73103161223241,23,31103,89191287，

%U 151217287137233、71337、79137、17281359391、49113119217

%N算术级数中不是另一个三元组倍数的三元组第一项的平方根（A198384，A198385，A19838.6）。

%C这个序列给出了原始毕达哥拉斯三角形（x，y，z）的值|x-y|，其中偶数y是根据腿和x+y的非递减值排序的（在Zumkeller链接中称为w，在A198441中给出）。关于与连y的原始勾股三元组的等价性，请参阅A198441中的注释_Wolfdieter Lang，2013年5月22日

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

%H Keith Conrad，<a href=“http://www.math.uconn.edu/~kconrad/blurbs/ugradnumthy/3squarearithprog.pdf“>三个方块的算术级数</a>

%H Reinhard Zumkeller，初始值表</a>

%F A198435（n）=a（n）^2；a（n）=A198388（A198409（n））。

%e摘自Wolfdieter Lang，2013年5月22日：（开始）

%e原始勾股三元组（x，y，z），y偶数，连接：

%e a（2）=7，因为第二小腿和x+y=17=A198441（2）的三元组是（5,12,13），并且|x-y|=y-x=12-5=7。

%e a（3）=7，因为x+y=A198441（3）=23，（x，y，z）=（15,8,17）（具有第三小腿和的本原三元组），以及|x-y |=x-y=15-8=7。（结束）

%t wmax=1000；

%t三元组[w_]：=Reap[Module[{u，v}，For[u=1，u<w，u++，If[IntegerQ[v=Sqrt[（u^2+w^2）/2]]，Sow[{u、v、w}]][2]；

%t tt=压扁[DeleteCases[三元组/@Range[wmax]，｛｝]，2]；

%t删除案例[tt，t_List/；GCD@@t>1&&MemberQ[tt，t/GCD@@t]][[All，1]]（*_Jean-François Alcover_，2021年10月22日*）

%o（哈斯克尔）

%o a198439 n=a198439_列表！！（n-1）

%o a198439_list=映射a198388 a198409_list

%K nonn公司

%O 1,2号机组

%A _Reinhard Zumkeller，2011年10月25日