%I#24 2022年3月17日07:07:04

%S 1,4,9,16,25,18,49,64,81,50121,48169,98,75256289162361100147，

%电话：24252919262533872919684115096110243635782453241369，

%电话：722507400168129418494405105822097682401125086762809

%N a（N）是N的最大倍数，除数少于N的两倍。

%C猜想：a（n）总是n^2的除数。

%e a（6）=18，因为6有4个除数，而项的除数必须少于8个。只有6、12和18是6的倍数，除数小于8。

%t a[n_]：=如果[n==1，1，Block[{nd，p，e，r，mu=0}，{p，e}=Transpose@FactorInteger@n；nd=2*Times@@（1+e）；r[w_，i_]：=Block[{v=w}，如果[i<1，mu=Max[mu，Times@@（p^w）]，While[Times@@（1+v）<nd，r[v，i-1]；v[[i]]++]]]；r[e（参考文献），长度@e]；mu]]；阵列[a，46]（*Giovanni Resta_，2013年4月28日*）

%Y参考A000005。

%K nonn公司

%O 1,2号机组

%A _J.Lowell_，2013年4月23日

%E Giovanni Resta于2013年4月28日更正的部分条款