%I#14 2021年10月20日12:20:50

%电话：4928952996118122092401504153296241792194091060912769，

%电话：1416114161161291876922801259212592127889364813724939601，

%电话：4708947089497295428957121580816604969169734417896182369823698352196721

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

%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 a（n）=A198441（n）^2=A198386（A198409（n））；

%F a（n）-A198436（n）=A198436（n）-A198435（n）=A198438（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删除案例[tt，t_List/；GCD@@t>1&&MemberQ[tt，t/GCD@@t]][[All，3]]（*_Jean-François Alcover_，2021年10月20日*）

%o（哈斯克尔）

%o a198437 n=a198437_列表！！（n-1）

%o a198437_list=映射a198386 a198409_list

%Y参考A198435、A198436、A19843、A198409、A198441。

%K nonn公司

%O 1，1

%2011年10月25日