cp's OEIS Frontend

A242574 a(n) = [x^n] G(n,x) where G(n,x) is the n-th iteration of G(1,x) = x/(1-x+x^2), so that G(n,x) = G(n-1, G(1,x)) with G(0,x)=x.

%I A242574 #5 May 17 2014 19:06:14
%S A242574 1,2,6,26,155,1225,12411,156416,2388060,43159172,905135396,
%T A242574 21655104900,582527203011,17404200037095,571581950390602,
%U A242574 20454815744801708,791762421402479311,32941802599154381634,1465274545936840236164,69358520116965601147778
%N A242574 a(n) = [x^n] G(n,x) where G(n,x) is the n-th iteration of G(1,x) = x/(1-x+x^2), so that G(n,x) = G(n-1, G(1,x)) with G(0,x)=x.
%H A242574 Paul D. Hanna, <a href="/A242574/b242574.txt">Table of n, a(n) for n = 1..200</a>
%e A242574 Given x/(1-x+x^2) = x + x^2 - x^4 - x^5 + x^7 + x^8 - x^10 - x^11 + x^13 +...
%e A242574 form a table of coefficients in the iterations of x/(1-x+x^2) like so:
%e A242574 [1,  1,  0,  -1,   -1,     0,      1,       1,        0,       -1, ...];
%e A242574 [1,  2,  2,  -1,   -8,   -15,    -10,      22,       79,      112, ...];
%e A242574 [1,  3,  6,   6,  -11,   -73,   -201,    -309,       37,     1913, ...];
%e A242574 [1,  4, 12,  26,   24,  -116,   -808,   -3000,    -7566,    -9882, ...];
%e A242574 [1,  5, 20,  65,  155,   120,  -1379,  -10761,   -51202,  -183269, ...];
%e A242574 [1,  6, 30, 129,  464,  1225,    702,  -18978,  -169139,  -994138, ...];
%e A242574 [1,  7, 42, 224, 1057,  4235,  12411,    4445,  -301321, -3076795, ...];
%e A242574 [1,  8, 56, 356, 2064, 10752,  48000,  156416,    27812, -5458012, ...];
%e A242574 [1,  9, 72, 531, 3639, 23064, 132633,  658197,  2388060,   187911, ...];
%e A242574 [1, 10, 90, 755, 5960, 44265, 306742, 1942198, 10676571, 43159172, ...]; ...
%e A242574 then this sequence forms the main diagonal in the above table.
%o A242574 (PARI) {a(n)=local(A=x, G=x/(1-x+x^2)); for(i=1, n, A=subst(G, x, A+x*O(x^(n)))); polcoeff(A, n)}
%o A242574 for(n=1,30,print1(a(n),", "))
%Y A242574 Cf. A242573, A242575.
%K A242574 nonn
%O A242574 1,2
%A A242574 _Paul D. Hanna_, May 17 2014