cp's OEIS Frontend

A206766 a(n) = Sum_{k=1..n} binomial(n,k) * sigma(n,k) * 3^(n-k).

%I A206766 #12 Oct 25 2024 04:50:25
%S A206766 1,23,226,3039,33306,594902,10012010,220553599,5170061143,
%T A206766 138942811678,4049569009674,130045043225838,4503599691290714,
%U A206766 168477832912220134,6746676272050878036,288487396687082933759,13107200000016921588858,630907565930072760920429
%N A206766 a(n) = Sum_{k=1..n} binomial(n,k) * sigma(n,k) * 3^(n-k).
%C A206766 Here sigma(n,k) equals the sum of the k-th powers of the divisors of n.
%H A206766 Vaclav Kotesovec, <a href="/A206766/b206766.txt">Table of n, a(n) for n = 1..380</a>
%F A206766 a(n) = Sum_{d|n} ((d+3)^n - 3^n).
%F A206766 Logarithmic derivative of A206765.
%F A206766 L.g.f.: Sum_{n>=1} (1/n) * log( (1 - 3^n*x^n) / (1 - (n+3)^n*x^n) ).
%F A206766 a(n) ~ exp(3) * n^n. - _Vaclav Kotesovec_, Oct 04 2020
%e A206766 L.g.f.: L(x) = x + 23*x^2/2 + 226*x^3/3 + 3039*x^4/4 + 33306*x^5/5 +...
%e A206766 Exponentiation yields the g.f. of A206765:
%e A206766 exp(L(x)) = 1 + x + 12*x^2 + 87*x^3 + 907*x^4 + 8393*x^5 + 118932*x^6 +...
%e A206766 Illustration of terms.
%e A206766 a(2) = 2*sigma(2,1)*3 + 1*sigma(2,2)*1 = 2*3*3 + 1*5*1 = 23;
%e A206766 a(3) = 3*sigma(3,1)*9 + 3*sigma(3,2)*3 + 1*sigma(3,3)*1 = 3*4*9 + 3*10*3 + 1*28*1 = 226;
%e A206766 a(4) = 4*sigma(4,1)*27 + 6*sigma(4,2)*9 + 4*sigma(4,3)*3 + 1*sigma(4,4)*1 = 4*7*27 + 6*21*9 + 4*73*3 + 1*273*1 = 3039.
%o A206766 (PARI) {a(n)=sum(k=1, n, binomial(n, k)*sigma(n, k)*3^(n-k))}
%o A206766 (PARI) {a(n)=n*polcoeff(sum(k=1, n, (1/k)*log((1-3^k*x^k)/(1-(k+3)^k*x^k +x*O(x^n)))), n)}
%o A206766 for(n=1,21,print1(a(n),", "))
%Y A206766 Cf. A206765 (exp), A205815, A205812.
%K A206766 nonn,easy
%O A206766 1,2
%A A206766 _Paul D. Hanna_, Feb 12 2012