|
%I #6 May 10 2019 06:51:47
%S 1,1,1,1,1,2,4,8,16,34,78,195,523,1472,4284,12832,39608,126406,418276,
%T 1436230,5110170,18785417,71109917,276404921,1101234823,4493335194,
%U 18773200580,80320474041,351906635253,1578344960050,7241981076424,33961826526634,162615016927284
%N G.f. A(x) satisfies: A(x) = x + x^2 + x^3 + x^4 * (1 + A(A(x))).
%C Shifts left 4 places under COMPOSE transform.
%t terms = 33; A[_] = 0; Do[A[x_] = x + x^2 + x^3 + x^4 (1 + A[A[x]]) + O[x]^(terms + 1) // Normal, terms + 1]; Rest[CoefficientList[A[x], x]]
%Y Cf. A030266, A030277, A308030, A308032.
%K nonn
%O 1,6
%A _Ilya Gutkovskiy_, May 10 2019
|
