%I#27 2022年12月24日14:43:25
%S 1,2,4,6,12,24,36,48,601201802403607208401260168025205040,
%电话:100801512025200277205544011088016632027720332640360360,
%电话:5544006652807201441440216216036004324320720086486401080021621600
%N编号k,使所有m的σ(k)/k>=σ(m)/m<=k。
%C A004394是一个子序列。我搜索了2^150查找A004394中没有的术语,只找到了a(29)=360360。是否有更多类似360360这样的未遂事件过剩数字_Jeppe Stig Nielsen,2022年12月23日
%e 360360包含在该序列中(但不包含在A004394中),因为其丰度(sigma(k)/k=48/11)与之前的记录持有者(即332640)相同_Gerard P.Michon_,2009年5月20日
%t abund[n_]:=abund[n]=除数Sigma[1,n]/n;ok[n_]:=(r=True;m=1;While[m<=n,If[abund[n]<abund[m],r=False;Break[]];m++];r);n=1;A077006={};当[n<10^6时,如果[ok[n],打印[n];附录[A077006,n]];n++];A077006(*_Jean-François Alcover,2011年12月12日*)
%t删除重复项[Table[{n,DivisorSigma[1,n]/n},{n,2163*10^4}],Greater[#1[[2]],#2[[2]]&][All,1]](*H arvey P.Dale_,2022年9月2日*)
%Y几乎与A004394相同。
%很好,不
%O 1,2号机组
%《自行车观察家》,2003年10月15日
%E a(31)-a(40)来自_Jon E.Schoenfield_,2018年3月31日
|