cp's OEIS Frontend

A196458 E.g.f.: A(x) = Sum_{n>=0} (3^n + (-1)^n)^n * exp((3^n + (-1)^n)*x) * x^n/n!.

%I A196458 #5 Mar 30 2012 18:37:31
%S A196458 1,4,112,20608,47100160,848654393344,152543949079048192,
%T A196458 239308785705492230176768,3442046584639832610980531077120,
%U A196458 443426848780270385458655031044167696384,515552048984399455145742768443316759297510080512
%N A196458  E.g.f.: A(x) = Sum_{n>=0} (3^n + (-1)^n)^n * exp((3^n + (-1)^n)*x) * x^n/n!.
%C A196458  When p=-1, q=3, this sequence illustrates the following identity.
%C A196458 Given e.g.f.: Sum_{n>=0} (p^n+q^n)^n*exp((p^n+q^n)*x)*x^n/n! = Sum_{n>=0} a(n)*x^n/n!,
%C A196458 then a(n) = Sum_{k=0..n} C(n,k)*(p^k + q^k)^n =  Sum_{k=0..n} C(n,k)*(1 + p^(n-k)*q^k)^n;
%C A196458 which is a special case of the more general binomial identity:
%C A196458 Sum_{k=0..n} C(n,k)*(s*p^k + t*q^k)^(n-k) * (u*p^k + v*q^k)^k = Sum_{k=0..n} C(n,k)*(s + u*p^(n-k)*q^k)^(n-k) * (t + v*p^(n-k)*q^k)^k.
%F A196458  a(n) = Sum_{k=0..n} C(n,k)*(3^k + (-1)^k)^n.
%F A196458 a(n) = Sum_{k=0..n} C(n,k)*(1 + (-1)^(n-k)*3^k)^n.
%e A196458  E.g.f.: A(x) = 1 + 4*x + 112*x^2/2! + 20608*x^3/3! + 47100160*x^4/4! +...
%e A196458 where
%e A196458 _ A(x) = exp((1+1)*x) + (3-1)*exp((3-1)*x)*x + (3^2+1)^2*exp((3^2+1)*x)*x^2/2! + (3^3-1)^3*exp((3^3-1)*x)*x^3/3! +...
%e A196458 or, equivalently,
%e A196458 _ A(x) = exp(2*x) + 2*exp(2*x)*x + 10^2*exp(10*x)*x^2/2! + 26^3*exp(26*x)*x^3/3! + 82^4*exp(82*x)*x^4/4! + 242^5*exp(242*x)*x^5/5! +...
%e A196458 Illustrate the formula for the terms:
%e A196458 a(1) = (1+1) + (3-1) = 4 ;
%e A196458 a(2) = (1+1)^2 + 2*(3-1)^2 + (3^2+1)^2 = 2^2 + 2*2^2 + 10^2 = 112 ;
%e A196458 a(3) = (1+1)^3 + 3*(3-1)^3 + 3*(3^2+1)^3 + (3^3-1)^3 = 2^3 + 3*2^3 + 3*10^3 + 26^3 = 20608 ;
%e A196458 a(4) = (1+1)^4 + 4*(3-1)^4 + 6*(3^2+1)^4 + 4*(3^3-1)^4 + (3^4+1)^4 = 2^4 + 4*2^4 + 6*10^4 + 4*26^4 + 82^4 = 47100160.
%o A196458  (PARI) {a(n)=n!*polcoeff(sum(m=0,n,exp((3^m+(-1)^m+x*O(x^n))*x)*(3^m+(-1)^m)^m*x^m/m!),n)}
%o A196458 (PARI) {a(n)=sum(k=0,n,binomial(n,k)*(3^k + (-1)^k)^n)}
%o A196458 (PARI) {a(n)=sum(k=0,n,binomial(n,k)*(1 + (-1)^(n-k)*3^k)^n)}
%o A196458 (PARI) {a(n)=local(p=-1, q=3);n!*polcoeff(sum(m=0,n,(p^m+q^m)^m*exp((p^m+q^m+x*O(x^n))*x)*x^m/m!),n)}
%o A196458 (PARI) {a(n)=local(p=-1, q=3, s=1, t=1, u=1, v=1);
%o A196458 sum(k=0, n, binomial(n, k)*(s*p^k + t*q^k)^(n-k)*(u*p^k + v*q^k)^k)}
%o A196458 (PARI) /* right side of the general binomial identity: */
%o A196458 {a(n)=local(p=-1, q=3, s=1, t=1, u=1, v=1);
%o A196458 sum(k=0, n, binomial(n, k)*(s + u*p^(n-k)*q^k)^(n-k) * (t + v*p^(n-k)*q^k)^k)}
%Y A196458  Cf. A196457, A196459, A196460, A138247.
%K A196458 nonn
%O A196458 0,2
%A A196458 _Paul D. Hanna_, Nov 20 2011