A347080 G.f. A(x) satisfies: A(x) = x + x * A(A(-x)).

0, 1, -1, -2, 2, 13, -16, -161, 170, 2647, -1711, -51248, 5711, 1103710, 599246, -25521869, -33907174, 620323849, 1410745127, -15678980390, -53746958146, 411344661913, 1998823108706, -11256049308869, -75003366373495, 323285264486686, 2904292324907387

Offset: 0

Author

Ilya Gutkovskiy, Jan 27 2022

Keywords

• sign

Crossrefs

Cf. A030266, A030277, A171212.

Programs

Mathematica

nmax = 26; A[] = 0; Do[A[x] = x + x A[A[-x]] + O[x]^(nmax + 1) // Normal, nmax + 1]; CoefficientList[A[x], x]