%I#15 2019年1月29日06:29:22

%编号：12,30,60,9010818023424039040420462480490630756840880，

%电话：90094511221218124814301500151215601584199820702310，

%电话：2460252026522660297033063330352837803960400440324134414042754788

%N数字等于两个除数之间的数字之和。

%C A303556是该序列的子序列。

%H Paolo P.Lava，n表，n=1..1000时的a（n）</a>

%e 12的除数是1、2、3、4、6、12，2和6之间的数字之和是3+4+5=12。

%e 108的除数是1、2、3、4、6、9、12、18、27、36、54、108，9和18之间的数字之和是10+11+12+13+14+15+16+17=108。

%p with（numtheory）：p:=进程（n）局部a，j，k；a： =排序（[op（除数（n））]）；

%p代表j从1到nops（a）-1代表k从j+1到nops

%p如果n＝（（a[k]-1）*a[k]-a[j]*（a[j]+1））/2，则RETURN（n）；fi；

%p od；od；结束：seq（P（i），i=2..10^4）；

%t选择[Range[5000]，MemberQ[Union@Map[Total@Range[#1+1，#2-1]&@@#&，子集[Divisors@#，{2}]]，#]&]（*_Michael De Vlieger_，2019年1月18日*）

%Y参考A055233、A303556。

%K nonn，简单

%O 1,1号机组

%A_Paolo P.Lava，2019年1月15日