%I#10 2015年9月16日13:21:24

%S 2,3,5,9,11,14,17,21,25,26,29,32,37,38,39,81,83,92,97,98106111113，

%电话114121122123124127128131147155159196197201202222，

%电话：223230233236242247251272289229531317312323

%N a（1）=2。对于n>=2，a（n）=最小整数>a（n-1）具有与n相同的除数。

%相反，从a（1）=1开始序列将导致所有正整数n的a（n）=n。

%H Harvey P.Dale，n的表格，n=1..1000的a（n）</a>

%tα={2}；做[i=a[[-1]]+1；而[！Length[Divisors[i]]==长度[Divisor[n]]，i++]；附加到[a，i]，{n，2，80}]；a（*_Stefan Steinerberger_，2008年4月26日*）

%tnxt[{a_，n_}]：=模块[{k=a+1，div=DivisorSigma[0，n+1]}，而[div！=Divisor Sigma[0，k]，k++]；{k，n+1}]；转座[NestList[nxt，{2,1}，60]][[1]（*哈维·P·戴尔，2014年5月28日*）

%K nonn公司

%O 1,1号机组

%A _罗伊查询，2008年4月24日

%E更多条款，来自斯泰芬·斯坦纳伯格，2008年4月26日