login
A109583
Let x^3/(-1-x+x^3)=Sum[b[n]*x^n/n1,{n,0,Infinity}]; a(n) = Abs[b[n]]
0
0, 0, 0, 6, 24, 120, 0, 5040, 80640, 725760, 3628800, 39916800, 1437004800, 24908083200, 261534873600, 0, 83691159552000, 2489811996672000, 44816615940096000, 364935301226496000, 9731608032706560000
OFFSET
0,4
MATHEMATICA
g[x_] = x^3/(-1 - x + x^3) h[x_, n_] = Dt[g[x], {x, n}] a[x_] = Table[h[x, n], {n, 0, 25}]; b = a[0] Abs[b]
CROSSREFS
Sequence in context: A223752 A293236 A217193 * A352807 A100934 A127917
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Jun 29 2005
STATUS
approved