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,4

Links

Table of n, a(n) for n=0..26.

Mathematica

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

Crossrefs

Cf. A030266, A030277, A171212.

Sequence in context: A173331 A074477 A340587 * A141575 A306738 A151352

Adjacent sequences: A347077 A347078 A347079 * A347081 A347082 A347083

Keyword

sign

Author

Ilya Gutkovskiy, Jan 27 2022

Status

approved