%I#16 2020年6月6日10:45:17
%S 1,3,6,6,7,8,9,10,9,12,12,15,14,12,14,13,18,19,18,15,15,20,14,24,
%电话:21,18,21,24,18,24,21,27,33,30,28,32,36,30,21,26,27,24,27,38,30,36,
%U 35,45,36,42,39,26,44,28,40,51,30,36,28,48,54,42,45,38,31,39,36,48,60,54
%N a(N)=σ(A023883(N))/τ。
%C非素数算术数除数的算术平均值(A023883)_Amiram Eldar,2020年6月6日
%H Amiram Eldar,n的表,a(n)表示n=1..10000</a>
%t表示Div[n_]:=DivisorSigma[1,n]/DivisorSigma[0,n];选择[meanDiv/@Select[Range[200]!PrimeQ[#]&],IntegerQ](*_Amiram Eldar_,2020年6月6日*)
%o(PARI)f(x)=σ(x)/numdiv(x);
%o应用(x->f(x),选择(x->((分母(f(x))==1)&&!isprime(x),[1..1000])\\马库斯,2020年6月6日
%Y参见A000005、A000203、A003601、A102187、A023883。
%K容易,不是
%O 1,2号机组
%2002年8月10日,A _贝尼特·克洛伊特
|