Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #9 Oct 25 2024 09:25:20
%S 1,7,58,707,11186,219202,5097205,137036819,4179577045,142539843882,
%T 5374034016858,221930535785918,9962431381720780,482997720973917947,
%U 25151350530268841003,1400042027334939211235,82960609980815501293708,5213812927633674297808237,346394632975721545946690108
%N a(n) = Sum_{k=1..n} binomial(n,k) * sigma(k,n).
%F a(n) ~ n^n / (sqrt(1 + LambertW(exp(-1))) * exp(n) * LambertW(exp(-1))^n).
%t Table[Sum[Binomial[n, k] * DivisorSigma[n, k], {k, 1, n}], {n, 1, 20}]
%o (PARI) {a(n)=sum(k=1, n, binomial(n, k)*sigma(k, n))}
%Y Cf. A109974, A205812.
%K nonn
%O 1,2
%A _Vaclav Kotesovec_, Oct 25 2024