%I#17 2017年11月2日15:35:11

%S 1,2,2,3,2,0,2,3,4,4,2,7,2,5,6,2,4,7,3,6,2,5,1,7,3,0,2,15,2,3,6,8，

%温度3,4,2,7,3,4,14,2,5,7,8,2,6,4,4,9,2,13,3,5,3,2,11,2,9,3,4，3,12，

%U 2,5,4,6,2,9,2,5,5,5,11,2,7,5,6,6,3,9,9,7,7,2,10,4,4,2,92,3,4,5,2,18

%N对于N，等分序列的瞬态部分的长度，或者如果瞬态部分是无限的，则为-1。

%C更多信息请参见A098007。

%C a（n）=0，当且仅当n是完美的（A000396）或长度大于1的循环的一部分2017年11月2日，由安蒂·卡图内恩更正的意见。

%C据信，第一次a（n）=-1是在n=276时（见A008892）_N.J.A.Sloane，2017年11月2日

%盖伊，《数论中未解决的问题》，B6。

%D R.K.Guy和J.L.Selfridge，关于等分系列的中期报告，《马尼托巴省数值数学会议论文集》第557-580页。马尼托巴大学，温尼伯，1971年10月。

%H Antti Karttunen，<a href=“/A098008/b098008.txt”>n的表，a（n）表示n=1..275</a>

%e 2017年11月2日，来自安蒂·卡图宁：（开始）

%e对于n=3，a（n）=2，因为A001065（3）=1和A001065。

%e对于n=25，a（n）=1，因为A001065（25）=6，A001065。

%e对于n=12496，a（n）=0，因为12496是映射n->A001065（n）的5个循环的成员（参见A072891）。

%e（结束）

%t g[n_]：=如果[n>0，Divisor Sigma[1，n]-n，0]；f[n_]：=嵌套WhileList[g，n，UnsameQ，All]；表[长度[f[n]]-2，{n，102}]（*仅适用于n<220*）（*_Robert G.Wilson v_，2004年9月10日*）

%o（方案）

%o（定义（A098008 n）（let loop（已访问（列表n））（i 1））；；适用于至少n=1.275。

%o（定义（A001065 n）（-（A000203 n）n））；；有关A000203的实现，请参阅该条目下的。

%o_Antti Karttunen，2017年11月2日

%Y参见A001065、A098007、A044050、A003023、A008892。另一版本参见A007906。

%Y参考A206708（给出了正确的零子集）。

%不，简单，好

%O 1,2号机组

%A _N.J.A.Sloane，2004年9月9日

%E更多条款摘自Robert G.Wilson v_，2004年9月10日