login
A347080
G.f. A(x) satisfies: A(x) = x + x * A(A(-x)).
0
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
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
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, Jan 27 2022
STATUS
approved