login
A124211
E.g.f.: exp(-2*(exp(exp(-x/(2*x-1))-1)-1)/(-2+exp(exp(-x/(2*x-1))-1)))
0
1, 2, 20, 294, 5678, 135496, 3843266, 126154370, 4699339104, 195713896170, 9006355534862, 453618725027628, 24810869566608734, 1464013274596413378, 92676273854190811252, 6263514886728326086910, 450060062568269588165782
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
Sequence in context: A363380 A349963 A246482 * A277308 A373314 A128481
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