OFFSET
0,2
MATHEMATICA
With[{nn=20}, CoefficientList[Series[Exp[-2*(Exp[Exp[-x/(2*x-1)]-1]-1)/ (-2+Exp[Exp[-x/(2*x-1)]-1])], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Oct 22 2013 *)
PROG
(Magma) n := 17; /* number of desired terms */ _<x> := PowerSeriesRing(Rationals(), n); f := Exp(-2*(Exp(Exp(-x/(2*x-1))-1)-1)/(-2+Exp(Exp(-x/(2*x-1))-1))); [ Factorial(k-1)*S[k] : k in [1..#S]] where S is Eltseq(f); // Geoff Bailey (geoff(AT)maths.usyd.edu.au), Mar 22 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Karol A. Penson, Oct 19 2006
EXTENSIONS
Typo in 11th term (was 006355534862, should have been 9006355534862) corrected by Geoff Bailey (geoff(AT)maths.usyd.edu.au), Mar 22 2009
STATUS
approved