A138913
G.f. A(x) satisfies: 4*A(x) = A(A(A(x))) + 3*x + x^2 with A(0)=0.
Original entry on oeis.org
1, 1, 6, 99, 2362, 70484, 2463460, 97309959, 4251047468, 202470323828, 10409697289888, 573563068625768, 33682595044746416, 2099111839596600644, 138339363094940014088, 9612941947359915802978, 702527738704990333954432
Offset: 1
G.f.: A(x) = x + x^2 + 6*x^3 + 99*x^4 + 2362*x^5 + 70484*x^6 +...
A(A(x)) = x + 2*x^2 + 14*x^3 + 229*x^4 + 5456*x^5 + 162710*x^6 +...
A(A(A(x))) = x + 3*x^2 + 24*x^3 + 396*x^4 + 9448*x^5 + 281936*x^6 +...
so that 4*A(x) = A(A(A(x))) + 3*x + x^2.
-
{a(n)=local(A=x+x^2);if(n<1,0, for(i=3,n+1,A=A+polcoeff(subst(A,x,subst(A,x,A+x*O(x^i))),i)*x^i); polcoeff(A,n))}
A138914
G.f. A(x) satisfies: 5*A(x) = A(A(A(A(x)))) + 4*x + x^2 with A(0)=0.
Original entry on oeis.org
1, 1, 12, 390, 18304, 1071862, 73349996, 5661162666, 482252816998, 44704184452202, 4465265748489708, 477159108766899654, 54255973609630750372, 6536766146592886952548, 831617552461457925554152
Offset: 1
G.f.: A(x) = x + x^2 + 12*x^3 + 390*x^4 + 18304*x^5 + 1071862*x^6 +...
A(A(x)) = x + 2*x^2 + 26*x^3 + 841*x^4 + 39440*x^5 + 2308752*x^6 +...
A(A(A(x))) = x + 3*x^2 + 42*x^3 + 1359*x^4 + 63730*x^5 + 3730610*x^6 +...
A(A(A(A(x)))) = x + 4*x^2 + 60*x^3 + 1950*x^4 + 91520*x^5 + 5359310*x^6 +...
so that 5*A(x) = A(A(A(A(x)))) + 4*x + x^2.
-
{a(n)=local(A=x+x^2,G);if(n<1,0,for(i=3,n+1,G=x; for(j=1,4,G=subst(A,x,G+x*O(x^i)));A=A+polcoeff(G,i)*x^i);polcoeff(A,n))}
A138915
G.f. A(x) satisfies: 6*A(x) = A(A(A(A(A(x))))) + 5*x + x^2 with A(0)=0.
Original entry on oeis.org
1, 1, 20, 1070, 82620, 7950630, 893138136, 113042205894, 15776443441194, 2393774318253534, 391021817774684352, 68276246115093735882, 12675272091572931300360, 2491402163326687657447940
Offset: 1
G.f.: A(x) = x + x^2 + 20*x^3 + 1070*x^4 + 82620*x^5 +...
A(A(x)) = x + 2*x^2 + 42*x^3 + 2241*x^4 + 172960*x^5 +...
A(A(A(x))) = x + 3*x^2 + 66*x^3 + 3519*x^4 + 271550*x^5 +...
A(A(A(A(x)))) = x + 4*x^2 + 92*x^3 + 4910*x^4 + 378944*x^5 +...
A(A(A(A(A(x))))) = x + 5*x^2 + 120*x^3 + 6420*x^4 + 495720*x^5 +...
so that 6*A(x) = A(A(A(A(A(x))))) + 5*x + x^2.
-
{a(n)=local(A=x+x^2,G);if(n<1,0,for(i=3,n+1,G=x; for(j=1,5,G=subst(A,x,G+x*O(x^i)));A=A+polcoeff(G,i)*x^i);polcoeff(A,n))}
Showing 1-3 of 3 results.
Comments