%I#12 2015年9月16日13:13:35
%S 1,1,2,1,1,1,1,2,2,3,3,1,1,1,1,1,1,1,1,1,2,2,3,1,1,2,3,3,1,1,1,1,1,1,2,2,2,2,
%T 2,1,1,1,1,1,1,1,1,1,1,1,1,1_1,1,1,1-1,1,1,11,1,1,1,1,1,1,1.1,
%U 1,1,2,2,2,2,2,2,2,2,2_2,2,3,3,3,1,3,4,4,4,4,5,5,5,5,5,1,5,5
%N a(N)=(d(1),d(2),。。。,d(n)),其中m是(d(1),d(2),…,的最大值,。。。,d(n))和d(n是n的除数。
%e前11个正整数的除数序列为:1,2,2,3,2,4,2,4,1,4,2。
%e此处获得的最大值为4。(d(1)、d(2)、……、,。。。,d(11));因此a(11)=3。
%t a={};b={};对于[n=1,n<80,n++,AppendTo[b,Length[Divisors[n]]];追加到[a,长度[Select[b,#==最大[b]&]]];a(*_Stefan Steinerberger_,2008年5月18日*)
%Y参考A000005、A140223和A140224。
%K nonn公司
%氧1,3
%A _罗伊查询,2008年5月12日
%E更多条款,来自斯特凡·斯坦纳伯格,2008年5月18日
%E a(78)-a(105),来自雷·钱德勒,2009年6月26日
|