cp's OEIS Frontend

A185168 G.f. A(x) where A000081(x) = x*A(A000081(x)).

%I A185168 #19 Aug 08 2018 15:16:31
%S A185168 1,1,1,0,0,-1,3,-5,7,-8,1,24,-62,82,-60,52,-242,877,-1979,2747,-924,
%T A185168 -7309,28389,-79469,205108,-468281,821680,-772531,-1046280,6962678,
%U A185168 -19516746,39741239,-63920180,75119743,-21689924,-219360085,866264658,-2165202646,4125523796,-6023253532
%N A185168 G.f. A(x) where A000081(x) = x*A(A000081(x)).
%H A185168 Vladimir Kruchinin, D. V. Kruchinin, <a href="http://arxiv.org/abs/1103.2582">Composita and their properties</a>, arXiv:1103.2582 [math.CO], 2011-2013.
%t A185168 m = maxExponent = 31;
%t A185168 A81[_] = 0; Do[A81[x_] = x*Exp[Sum[A81[x^k]/k, {k, 1, m}] + O[x]^m] // Normal, {m}];
%t A185168 A[x_] = Sum[a[k] x^k, {k, 0, m}];
%t A185168 cc = CoefficientList[A81[x] - x A[A81[x]] + O[x]^m, x];
%t A185168 Table[a[n], {n, 0, m-2}] /. Solve[Thread[cc == 0]] // First (* _Jean-François Alcover_, Aug 08 2018 *)
%K A185168 sign
%O A185168 0,7
%A A185168 _Vladimir Kruchinin_, Feb 19 2011