%I#13 2022年3月24日03:58:59
%S 1,5,16,40,962174691011214744979389194894025682948170413,
%电话:349158714153145819929726836052561123089712500617750755272,
%电话:1029330862085941164224320188549561121729340940349625994070538831427042087728812580857
%N元素和在[N]的所有非空子集上的除数之和。
%H Alois P.Heinz,<a href=“/A309403/b309403.txt”>n,a(n)表,n=1..650</a>
%p b:=proc(n,s)选项记忆`如果`(n=0,
%p数理论[tau](s),b(n-1,s)+b(n-1,s+n))
%p端:
%pa:=n->b(n,0):
%p序列(a(n),n=1..30);
%tb[n_,s_]:=b[n,s]=如果[n==0,
%t如果[s==0,0,Divisor Sigma[0,s]],b[n-1,s]+b[n-1,s+n]];
%t a[n]:=b[n,0];
%t表[a[n],{n,1,30}](*_Jean-François Alcover_,2022年3月24日,在_Alois P.Heinz_*之后)
%A309402的Y行总和。
%Y参考A000005,A309281。
%K非n
%O 1,2号机组
%阿洛伊斯·海因茨,2019年7月28日
|