A293567 Expansion of e.g.f.: exp(x^2/(x^3 - 1)).
1, 0, -2, 0, 12, -120, -120, 5040, -38640, -181440, 5412960, -33264000, -478336320, 12194582400, -50871300480, -2168559993600, 49692144902400, -59775248332800, -15819216007795200, 329479616206540800, 1101564635255884800, -174845824790757120000
Offset: 0
Keywords
Crossrefs
Programs
-
Mathematica
With[{nn=30},CoefficientList[Series[Exp[x^2/(x^3-1)],{x,0,nn}],x] Range[0,nn]!] (* Harvey P. Dale, Mar 31 2024 *) -
PARI
N=66; x='x+O('x^N); Vec(serlaplace(exp(x^2/(x^3-1)))) -
PARI
N=66; x='x+O('x^N); Vec(serlaplace(1/prod(k=1, N, exp(x^(3*k-1)))))
Formula
E.g.f.: Product_{k>0} exp(x^(-(3*k-1))).
Extensions
Definition clarified by Harvey P. Dale, Mar 31 2024