编辑

经核准的

a={}；b={}；对于[n=1，n<80，n++，AppendTo[b，Length[Divisors[n]]]；附录[a，长度[Select[b，#==最大值[b]和]]]；一- _(* _Stefan Steinerberger_，2008年5月18日*)

经核准的

编辑

___勒罗伊·奎特__,_,2008年5月12日

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

___勒罗伊·奎特_,__,2008年5月12日

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

_勒罗伊·奎特,_,2008年5月12日

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

a={}；b={}；对于[n=1，n<80，n++，AppendTo[b，Length[Divisors[n]]]；追加到[a，长度[Select[b，#==最大[b]&]]]；一-- _斯特凡·斯坦纳伯格(斯特凡.斯坦伯格(自动变速箱)gmail公司.com公司),_,2008年5月18日

更多术语来自 _斯特凡·斯坦纳伯格(斯特凡.斯坦伯格(自动变速箱)gmail公司.com公司),_,2008年5月18日

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

a（78）-a（105）来自 _雷·钱德勒(雷杰钱德勒(自动变速箱)sbc全球.网),_,2009年6月26日

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

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

非n,新的

非n

1, 1, 2, 1, 1, 1, 1, 2, 2, 3, 3, 1, 1, 1, 1, 1, 1, 2, 2, 3, 3, 3, 3, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,2,2,2,2,2,2, 2, 2, 2, 2, 2, 2,3,3,3,3,3,3,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5

此处获得的最大值为4。（d（1）中有三个4),),d（2），。。。，d（11））；因此a（11）=3。

非n,新的

非n

a（78）-a（105）来自Ray Chandler（rayjchandler（AT）sbcglobal.net），2009年6月26日

a（n）=（d（1）、d（2）、…、，。。。，d（n）），其中m是（d（1），d（2），…，的最大值，。。。，d（n)),))d（n）是n的除数。

非n,新的

非n