%I#10 2015年8月26日01:49:30
%S 5,10,17,43,5712416771682169917122577266326753251932547,
%电话:32578331653319033220332254440844440894444358444362444524,
%电话:444665445737443214477104477784507204507264511404511944553071
%N数字N,使素数(N)=楼层(N*log(N*omega(sigma(N)))。
%t a={};对于[n=1,n<10000,n++,如果[Prime[n]==Floor[n*Log[n*Length[FactorInteger[DivisorSigma[1,n]]]],AppendTo[a,n]]];a(*_斯特凡·斯坦纳伯格,2007年6月17日*)
%K容易,不是
%O 1,1号机组
%2002年2月20日,A _贝尼特·克洛伊特
%E更多条款,来自斯特凡·斯坦纳伯格,2007年6月17日
|