%I #17 Mar 24 2023 16:12:55
%S 0,1,1,1,1,3,14,50,141,357,957,2977,10023,33145,104788,324700,1021972,
%T 3313866,10941283,36150319,118733636,389270860,1282538880,4257534180,
%U 14209589940,47521738212,159015643218,532696723370,1788631842842,6022167998854,20322687778376
%N Reversion of y - y^2 + y^3 - y^4 - y^5.
%H Robert Israel, <a href="/A063025/b063025.txt">Table of n, a(n) for n = 0..1819</a>
%H <a href="/index/Res#revert">Index entries for reversions of series</a>
%F D-finite with recurrence +563*n*(n-1)*(n-2) *(n-3)*(1630653610*n -6367589917)*a(n) -42*(n-1)*(n-2)*(n-3) *(126641352130*n^2 -657490655161*n +636975780476)*a(n-1) +14*(n-2) *(n-3) *(912699259030*n^3 -6723985397471*n^2 +14578099655983*n -8721744183522)*a(n-2) -6*(n-3) *(2724108118840*n^4 -28132532113018*n^3 +99332643789773*n^2 -130625011316763*n +37203086864398)*a(n-3) +3*(-3489839499190*n^5 +63800630076883*n^4 -469038657060540*n^3 +1734273141907855*n^2 -3225647797824160*n +2413380004811412)*a(n-4) -10*(5*n-22) *(5*n-26)*(5*n-24) *(5*n-23)*(217454110*n -660143127)*a(n-5)=0. , n-5>=1- _R. J. Mathar_, Mar 24 2023
%p with(gfun):
%p F:= RootOf(y-y^2+y^3-y^4-y^5-x, y):
%p DE:=holexprtodiffeq(F, g(x)):
%p Rec:= diffeqtorec(DE, g(x), a(n)):
%p f:= rectoproc(Rec, a(n), remember):
%p map(f, [$0..50]); # _Robert Israel_, Oct 27 2021
%t CoefficientList[InverseSeries[Series[y - y^2 + y^3 - y^4 - y^5, {y, 0, 30}], x], x]
%o (PARI) my(y='y+O('y^30)); concat(0, Vec(serreverse(y - y^2 + y^3 - y^4 - y^5))) \\ _Michel Marcus_, Oct 27 2021
%K nonn,easy
%O 0,6
%A _Olivier GĂ©rard_, Jul 05 2001