%I#13 2024年4月18日04:22:18
%S 0,0,0,1,2,4,5,5,7,9,10,13,14,16,19,19,20,24,25,28,31,33,34,38,40,
%第42、45、48、49、55、56、59、61、64、70、71、73、76、80、81、87、88、91、96、98、99页,
%电话:104106110113116117123126130133136145146148153156162163169175176184
%N a(N)=A006218(N)-A005187(N)。
%C另外,0加上A326987的部分总和。
%F a(n)~n*(log(n)+2*gamma-3),其中gamma是欧拉常数(A001620)_Amiram Eldar,2024年4月18日
%t使用[{nmax=100},连接[{0},累加[Table[DivisorSigma[0,n],{n,1,nmax}]]-表[2*n-数字计数[n,2,1],{n,0,nmaxneneneep]](*_Amiram Eldar_,2024年4月18日*)
%Y参见A000005、A001620、A005187、A006218、A326987、A327327。
%K nonn,已更改
%0、6
%A _罗马E.Pol_,2019年9月14日
|