编辑

经核准的

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

经核准的

编辑

编辑

经核准的

Harvey P.Dale，<a href=“/A137518型/b137518.txt“>n，a（n）表，n=1..1000</a>

nxt[{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日*）

经核准的

编辑

_勒罗伊·奎特__,2008年4月24日

OEIS服务器: https://oeis.org/edit/global/2148

_勒罗伊·奎特 _2008年4月24日

OEIS服务器: https://oeis.org/edit/global/2118

a={2}；做[i=a[[-1]]+1；而[！Length[Divisors[i]]==长度[Divisor[n]]，i++]；附加到[a，i]，{n，2，80}]；一-- _斯特凡·斯坦纳伯格(斯特凡.斯坦伯格(自动变速箱)gmail公司.通用域名格式),_,2008年4月26日

更多术语来自 _斯特凡·斯坦纳伯格(斯特凡.施泰纳伯格(自动变速箱)gmail公司.通用域名格式),_,2008年4月26日

OEIS服务器: https://oeis.org/edit/global/238

Leroy Quet，<a href=“http://www.prism-of-spirals.net/“>主页（代替电子邮件地址列出）

非n,新的

非n

Leroy Quet，<a href=“http://www.prism-of-spirals.net/“>主页（代替电子邮件地址列出）

非n,新的

非n

勒罗伊·奎特(qq（质量）-球拍(自动变速箱)思维弹簧.通用域名格式), 2008年4月24日

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

2, 3, 5, 9, 11, 14, 17, 21, 25, 26, 29, 32, 37, 38, 39, 81, 83, 92, 97, 98, 106, 111, 113, 114, 121, 122, 123, 124, 127, 128, 131, 147, 155, 158, 159, 196, 197, 201, 202, 222, 223, 230, 233, 236, 242, 247, 251, 272, 289, 292, 295, 316, 317, 318, 319, 322, 323

1,1

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

a={2}；做[i=a[[-1]]+1；而[！Length[Divisors[i]]==长度[Divisor[n]]，i++]；附加到[a，i]，{n，2，80}]；a-Stefan Steinerberger（Stefan.steinerberge（AT）gmail.com），2008年4月26日

非n

Leroy Quet（qq-Quet（AT）mindspring.com），2008年4月24日

更多条款来自Stefan Steinerberger（Stefan.steinerberge（AT）gmail.com），2008年4月26日

经核准的