%I#45 2023年5月20日04:35:51
%S 48,80,961602243524164808961472147618562688396860167552,
%电话:78088508700103321701020300224963644844384549446348865024,
%电话:712647371097300977921141761223681285123109763924924904965150721216549990
%N个非酉近完美数:k使得nusigma(k)=k+d,其中d是k的非酉除数。
%C接近完美数的非卫生版本(A181595)。
%H Amiram Eldar,n表,n=1..250的a(n)</a>
%e对于k=352,nusigma(352)=360。360-352=8,是352的非均匀除数。
%tq[n_]:=模[{d=选择[Divisors[n],!互质q[#,n/#]&],s},s=总数[d];任意真[d,n+#=s&]];选择[范围[10^4],q](*_Amiram Eldar_,2023年5月11日*)
%o(PARI)nusigma(n)={my(f=因子(n));sigma(f)-prod(i=1,#f~,f[i,1]^f[i,2]+1);}
%o是(n)={my(d=nusigma(n)-n);d>0&&!(n%d)&&gcd(d,n/d)>1;}\\阿米拉姆·埃尔达尔,2023年5月20日
%Y参考A048146(nusigma),A181595。
%K nonn公司
%O 1,1号机组
%A Jenaro Tomaszewski,2023年5月10日
|