%I#10 2016年4月26日00:15:17

%S 6,8,1,16,16,13,21,20,13,34,7,17,36,37,17,17,5,13,29,28,6,30,8,17，

%电话66,9,1,47,52,89,8,14,77,41,81,6,31,1,91,8124,13,31,13,82,17,55,69，

%U 103,10,13100119,18155,6,91,40111,11,32,55,9,10,15,37,10115,23124,17

%N（1、2、3、2^2、5、2*3、7、2^3、3^2、2*5、11、2^2*3，13、2*7、3*5…）变成（abs（1-2-3-2、2-5-2-3、7-2-2-3、7-2-5-11、2-2-3-13、2-7-3-5…））。

%H Robert Israel，n的表，a（n）表示n=1..10000</a>

%e绝对值（2-7-3-5）=绝对值（-13）=13=a（6）。

%e绝对值（2-4-17-2）=绝对值（-21）=21=a（7）。

%e绝对值（3-2-19-2）=绝对值（-20）=20=a（8）。

%e绝对值（2-5-3-7）=绝对值（-13）=13=a（9）。

%e绝对值（2-11-23-2）=绝对值（-34）=34=a（10），

%e等。

%p g：=proc（n）局部F；

%pF:=排序（ifactors（n）[2]，（a，b）->a[1]<b[1]）；

%p op（subs（1=NULL，map（op，F）））；

%p端程序：

%p g（1）：=1：

%p L：=地图（g，[1..300]美元）：

%p seq（abs（L[i]-L[i+1）-L[i+2]-L[i+3]），i=1…nops（L）-3,4）；#_罗伯特·伊斯雷尔（Robert Israel），2016年4月25日

%t Abs@Total@MapAt[Abs，Minus@#，{1}]和/@Partition[#，4]和@Flatten[FactorInteger/@Range@134/.{a_，b_}/；b==1:>{a}]（*_Michael De Vlieger_，2016年4月25日*）

%Y参见A141287、A141261、A136678、A143717。

%K nonn公司

%O 1,1号机组

%A _Juri-Stepan Gerasimov，2008年11月17日

%E修正（10替换为8）并由R.J.Mathar_扩展，2010年4月18日