%I#9 2020年4月14日04:19:38

%S 1420695713341364148516342685297441364364148412014524957，

%电话：33998365664281864672749187982679833841348634392685109864，

%电话：111506122073138237147454159711162602166934187863190773193893201597274533288765

%N对k进行编号，使s（k）=s（k+1），其中s（k）是k的递归除数之和（A333926）。

%H Amiram Eldar，<a href=“/A33949/b333949.txt”>n，a（n）表，n=1..1000</a>

%e 14是一个术语，因为A333926（14）=A333925（15）=24。

%t recDivQ[n_，1]=真；recDivQ[n_，d_]：=recDivQ[n，d]=可除[n，d_]&AllTrue[FactorInteger[d]，recDivQ[IntegerExponent[n，First[#]]，Last[#]]&]；recDivs[n_]：=选择[Divisors[n]，recDivQ[n，#]&]；f[p_，e_]：=1+总计[p^recDivs[e]]；recDivSum[1]=1；recDivSum[n_]：=倍@@（f@@@FactorInteger[n]）；选择[Range[10^5]，recDivSum[#]==recDivSam[#+1]&]

%Y参考A333926。

%Y类似序列：A002961、A064115（非均匀）、A064125（单一）、A293183（双均匀）、A306985（无限）。

%K nonn公司

%O 1,1号机组

%A阿米拉姆·埃尔达尔，2020年4月11日