%I#17 2021年10月22日11:33:58

%S 2412024033684084072013202520201636962184528055446240，

%电话：3960336093601092010296489668641428001848068402244017160，

%电话：109202006428560924031824319203141626520163201214441496478804368050160

%N算术级数中三个平方的常见差异，不是中其他三个三元组的倍数（A198384、A198385和A198386）。

%H Ray Chandler，<a href=“/A198438/b198438.txt”>n的表，a（n）表示n=1.-10000</a>

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

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

%F a（n）=A198387（A198409（n））=A1198436（n）-A198435（n）=A198437（n）-A198436（n）。

%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^2，v^2，w^2}]][[2]；

%t tt=扁平[DeleteCase[triples/@Range[wmax]，{}]，2]；

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

%o（哈斯克尔）

%o a198438 n=a198438_列表！！（n-1）

%o a198438_list=映射a198387 a198409_list

%K nonn公司

%O 1,1号机组

%A _Reinhard Zumkeller，2011年10月25日