%I #7 Aug 20 2023 10:51:12

%S 1,5,7,29,11,143,15,597,358,1675,23,15671,27,27767,19877,206197,35,

%T 858608,39,3453179,935613,8465935,47,88446975,318836,145609443,

%U 60940492,972415263,59,4271628733,63,18791519893,2322462545,42004913731,55744035

%N a(n) = Sum_{d|n} C(n,d)*sigma(d).

%C Logarithmic derivative of A179304.

%t a[n_] := DivisorSum[n, Binomial[n, #] * DivisorSigma[1, #] &]; Array[a, 35] (* _Amiram Eldar_, Aug 18 2023 *)

%o (PARI) a(n)=sumdiv(n,d,sigma(d)*binomial(n,d))

%Y Cf. A000203, A179304.

%K nonn

%O 1,2

%A _Paul D. Hanna_, Jul 10 2010