|
MATHEMATICA
|
terms = 22; A[_] = 1; Do[A[x_] = Sum[j! x^j A[x]^j/Product[(1 - k x A[x]), {k, 1, j}], {j, 0, i}] + O[x]^i, {i, 1, terms}]; CoefficientList[A[x], x]
terms = 22; A[_] = 1; Do[A[x_] = Sum[(1/2) HurwitzLerchPhi[1/2, -k, 0] x^k A[x]^k, {k, 0, j}] + O[x]^j, {j, 1, terms}]; CoefficientList[A[x], x]
terms = 22; CoefficientList[1/x InverseSeries[Series[x/Sum[(1/2) HurwitzLerchPhi[1/2, -k, 0] x^k, {k, 0, terms}], {x, 0, terms}], x], x]
|