|
MATHEMATICA
|
nn=21; a=Sum[2^Binomial[n, 2]x^n/n!, {n, 0, nn}]; c=Range[0, nn]! CoefficientList[Series[ Log[a]+1, {x, 0, nn}], x]; cox= Sum[c[[i]]x^(i-1)/(i-1)!, {i, 2, nn, 2}]; Select[Range[0, nn]! CoefficientList[Series[Exp[cox], {x, 0, nn}], x], #>0&]
|