%我#15 2022年10月20日09:10:39
%S 20,70272550945157534651501547025810811531536928351851759,
%电话:36339036084351223092879500948113133963727272567132112231,
%电话:15168440435391411025288161623754034262732518166711062518609663525213239601575
%N素数丰富的数字,为除数创造了新的记录。
%t abQ[n_]:=除数Sigma[-1,n]>2;defQ[n_]:=除数Sigma[-1,n]<2;primQ[n_]:=abQ[n]&&AllTrue[n/FactorInteger[n][[;;,1]],defQ];s={};dm=0;Do[If[(d=DivisorSigma[0,n])>dm&&primQ[n],dm=d;附加到[s,n]],{n,1,10^6}];s(*阿米拉姆·埃尔达尔,2022年10月20日*)
%Y参考A000005、A071395。
%K nonn公司
%O 1,1
%A _Jason Earls,2003年6月18日
%2006年1月2日Lambert Herrgesell(zero815(AT)googlemail.com)提供的更多术语
%E a(20)-a(24),来自Donovan Johnson,2010年4月9日
%2012年10月21日,来自_Donovan Johnson_的E a(25)-a(27)
|