login
O.g.f.: Sum_{n>=0} n! * n^(2*n) * x^n / Product_{k=1..n} (1 - n^2*k*x).
13

%I #14 Nov 10 2017 18:24:12

%S 1,1,33,4759,1812645,1432421311,2033196095973,4707913008727279,

%T 16598602853910799125,84603008117292025844671,

%U 598699398082553327852353413,5694542805400507375406964870799,70891082687197321771955383523878005,1129717853570486718325946169950885995231

%N O.g.f.: Sum_{n>=0} n! * n^(2*n) * x^n / Product_{k=1..n} (1 - n^2*k*x).

%H G. C. Greubel, <a href="/A229260/b229260.txt">Table of n, a(n) for n = 0..160</a>

%F a(n) = Sum_{k=0..n} k^(2*n) * k! * Stirling2(n, k).

%F E.g.f.: Sum_{n>=0} (exp(n^2*x) - 1)^n.

%F a(n) ~ c * d^n * (n!)^3 / n, where d = r^3*(1+exp(2/r)) = 7.8512435106631367719817991716164612615296980032514..., r = 0.94520217245242431308104743874492469552738... is the root of the equation (1+exp(-2/r))*LambertW(-exp(-1/r)/r) = -1/r, and c = 0.142680262107781025906560380273234930916319644... . - _Vaclav Kotesovec_, May 08 2014

%e O.g.f.: A(x) = 1 + x + 33*x^2 + 4759*x^3 + 1812645*x^4 + 1432421311*x^5 +...

%e where

%e A(x) = 1 + x/(1-x) + 2!*2^4*x^2/((1-2^2*1*x)*(1-2^2*2*x)) + 3!*3^6*x^3/((1-3^2*1*x)*(1-3^2*2*x)*(1-3^2*3*x)) + 4!*4^8*x^4/((1-4^2*1*x)*(1-4^2*2*x)*(1-4^2*3*x)*(1-4^2*4*x)) +...

%e Exponential Generating Function.

%e E.g.f.: E(x) = 1 + x + 33*x^2/2! + 4759*x^3/3! + 1812645*x^4/4! +...

%e where

%e E(x) = 1 + (exp(x)-1) + (exp(4*x)-1)^2 + (exp(9*x)-1)^3 + (exp(16*x)-1)^4 + (exp(25*x)-1)^5 + (exp(36*x)-1)^6 + (exp(49*x)-1)^7 +...

%t Flatten[{1,Table[Sum[k^(2*n) * k! * StirlingS2[n,k], {k,0,n}], {n,1,20}]}] (* _Vaclav Kotesovec_, May 08 2014 *)

%o (PARI) {a(n)=polcoeff(sum(m=0,n,m!*m^(2*m)*x^m/prod(k=1,m,1-m^2*k*x +x*O(x^n))),n)}

%o for(n=0,20,print1(a(n),", "))

%o (PARI) {a(n)=n!*polcoeff(sum(m=0,n,(exp(m^2*x+x*O(x^n))-1)^m),n)}

%o for(n=0,20,print1(a(n),", "))

%o (PARI) {Stirling2(n, k)=n!*polcoeff(((exp(x+x*O(x^n))-1)^k)/k!, n)}

%o {a(n)=sum(k=0, n, k^(2*n) * k! * Stirling2(n, k))}

%o for(n=0,20,print1(a(n),", "))

%Y Cf. A229257, A229258, A229259, A229261, A229233, A229234, A220181, A122399.

%Y Cf. A187755.

%K nonn

%O 0,3

%A _Paul D. Hanna_, Sep 17 2013