A090136 E.g.f.: exp(1-(-2+3*(1-3*x)^(1/3))^(1/3)).

1, 5, 45, 585, 9961, 210061, 5289845, 155026705, 5186652945, 195165726101, 8161532936701, 375619788842585, 18871026734111865, 1027821645714667805, 60331977158792903621, 3797171848203209305121, 255100015925127615105825

Offset

1,2

Links

Table of n, a(n) for n=1..17.

Formula

a(n) ~ n! * 3^(4*n)*exp(1)/(18^(2/3)*19^(n-1/3)*n^(4/3)*Gamma(2/3)) * (1-18^(1/3)*sqrt(3)*Gamma(2/3)^2*19^(1/3)/(12*Pi*n^(1/3))). - Vaclav Kotesovec, Jun 27 2013

Mathematica

CoefficientList[Series[E^(1-(-2+3*(1-3*x)^(1/3))^(1/3)), {x, 0, 20}], x]* Range[0, 20]! (* Vaclav Kotesovec, Jun 27 2013 *)

Crossrefs

Cf. A090135.

Sequence in context: A097328 A051539 A007696 * A357322 A090356 A201365

Adjacent sequences: A090133 A090134 A090135 * A090137 A090138 A090139

Keyword

nonn

Author

Karol A. Penson, Nov 26 2003

Status

approved