A032272 Shifts left under "DIJ" (bracelet, indistinct, labeled) transform, with a(1)=2.

2, 2, 6, 26, 182, 1786, 22870, 359226, 6658038, 141860538, 3411462102, 91331548410, 2692998369270, 86698082609658, 3025579919280726, 113759391284411322, 4584343174947333366, 197110924461251852346, 9006669123611196569046, 435827319931153165710714

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

Cf. A032271, A032273.

Sequence in context: A135407 A292831 A076726 * A214446 A179320 A004304

Adjacent sequences: A032269 A032270 A032271 * A032273 A032274 A032275

Keyword

nonn

Author

Christian G. Bower

Extensions

Terms a(19) and beyond from Andrew Howroyd, Sep 19 2018

Status

approved