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

1, 6, 30, 78, 426, 582, 12450, 4758, 407010, 2218182, 19172370, 360438, 4755166050, 3213222, 85631151090, 5099958831318, 54483404779650, 258673542, 11939347971403410, 2326095798, 5556296851712151330, 35398724239897109862, 10235928407592878130, 188311523478, 758680053859872239555010

Offset

0,2

Links

Paul D. Hanna, Table of n, a(n) for n = 0..300

Formula

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

Example

E.g.f.: A(x) = 1 + 6*x + 30*x^2/2! + 78*x^3/3! + 426*x^4/4! + 582*x^5/5! +...
where
A(x) = 2 - exp(2) + 2*exp(3*x) + 2^2*exp(3*x^2)/2! + 2^3*exp(3*x^3)/3! + 2^4*exp(3*x^4)/4! + 2^5*exp(3*x^5)/5! +...
A(x) = 2 - exp(3) + 3*exp(2*x) + 3^2*exp(2*x^2)/2! + 3^3*exp(2*x^3)/3! + 3^4*exp(2*x^4)/4! + 3^5*exp(2*x^5)/5! +...

Prog

(PARI) {a(n) = local(A=1); A = 2-exp(2) + sum(m=1, n, 2^m/m!*exp(3*x^m +x*O(x^n))); if(n==0, 1, n!*polcoeff(A, n))}
for(n=0, 30, print1(a(n), ", "))
(PARI) {a(n) = local(A=1); A = 2-exp(3) + sum(m=1, n, 3^m/m!*exp(2*x^m +x*O(x^n))); if(n==0, 1, n!*polcoeff(A, n))}
for(n=0, 30, print1(a(n), ", "))

Crossrefs

Cf. A258899.

Sequence in context: A215906 A305163 A038039 * A050972 A259918 A002444

Adjacent sequences: A258900 A258901 A258902 * A258904 A258905 A258906

Keyword

nonn

Author

Paul D. Hanna, Jun 20 2015

Status

approved