OFFSET
0,5
FORMULA
MATHEMATICA
nn = 18; a[x_] := Sum[2^Binomial[n, 2] x^n/n!, {n, 0, nn}];
c[x_] := Log[a[x]];
Range[0, nn]! CoefficientList[
Series[1/3 (E^x + 2 E^(-x/2) Cos[(Sqrt[3] x)/2]) /. x -> c[x], {x,
0, nn}], x] // Simplify
CROSSREFS
KEYWORD
nonn
AUTHOR
Geoffrey Critzer, Nov 03 2014
STATUS
approved