%I#20 2022年8月2日17:29:10
%第4,8,9,16,20,21,25,27,32,33,44,49,57,60,64,68,69,81,85,931051112116页,
%电话:121125128129133145156169177180188195205212213217220,
%电话:23123724324925325626527275289297309332336343356361
%N复合数,使其素因子的算术平均值(以重数计算)为素数。
%最初,这个定义是从“非素数……”开始的。这可能会产生误导,因为1也是非质数,但没有质数因子_Hieronymus Fischer,2013年5月5日
%H Harvey P.Dale和Hieronymus Fischer,n的表格,n=1..100000的a(n)
%e a(1)=4,因为4=2*2和算术平均值(2+2)/2=2是素数。
%e a(5)=20,因为20=2*2*5,算术平均值(2+2+5)/3=3是素数。
%t ampfQ[n_]:=素数Q[Mean[Flatten[表[#[[1]],{#[[2]]}]&/@FactorInteger[n]]];nn=400;选择[Complement[Range[nn],Prime[Range[PrimePi[nn]]],ampfQ](*哈维·P·戴尔,2012年11月6日*)
%o(PARI)是(n)=如果(n<4,返回(0));my(f=因子(n),s=和(i=1,#f~,f[i,1]*f[i、2])/和;(#f~>1||f[1,2]>1)&&分母==1&&i素数\\_Charles R Greathouse IV_,2015年9月14日
%Y请参阅A000040、A001222、A100118、A046363、A133620、A13362、A13380、A133890、A133、900、A133910、A133.911、A046346、A134331、A13433、A1343303、A13433.4。
%K nonn公司
%O 1,1号机组
%2007年10月23日,A _铁杉
%E 2013年5月5日Hieronymus Fischer澄清的定义