OFFSET
1,1
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..200
C. G. Bower, Transforms (2)
MATHEMATICA
m = 20; A[_] = 0;
Do[A[x_] = Integrate[2 + (1/2)(A[x] + A[x]^2/2 - Log[1-A[x]]) + O[x]^m, x] // Normal, {m}];
CoefficientList[A[x], x] Range[0, m]! // Rest (* Jean-François Alcover, Sep 18 2019 *)
PROG
(PARI) DIJ(p)={(p + p^2/2 - log(1-p))/2}
seq(n)={my(p=O(x)); for(i=1, n, p=intformal(2+DIJ(p))); Vec(serlaplace(p))} \\ Andrew Howroyd, Sep 19 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Terms a(19) and beyond from Andrew Howroyd, Sep 19 2018
STATUS
approved