A063025 Reversion of y - y^2 + y^3 - y^4 - y^5.

0, 1, 1, 1, 1, 3, 14, 50, 141, 357, 957, 2977, 10023, 33145, 104788, 324700, 1021972, 3313866, 10941283, 36150319, 118733636, 389270860, 1282538880, 4257534180, 14209589940, 47521738212, 159015643218, 532696723370, 1788631842842, 6022167998854, 20322687778376

Offset

0,6

Links

Robert Israel, Table of n, a(n) for n = 0..1819

Index entries for reversions of series

Formula

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

Maple

with(gfun):
F:= RootOf(y-y^2+y^3-y^4-y^5-x, y):
DE:=holexprtodiffeq(F, g(x)):
Rec:= diffeqtorec(DE, g(x), a(n)):
f:= rectoproc(Rec, a(n), remember):
map(f, [$0..50]); # Robert Israel, Oct 27 2021

Mathematica

CoefficientList[InverseSeries[Series[y - y^2 + y^3 - y^4 - y^5, {y, 0, 30}], x], x]

Prog

(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

Crossrefs

Sequence in context: A354507 A337075 A261043 * A187917 A164304 A098521

Adjacent sequences: A063022 A063023 A063024 * A063026 A063027 A063028

Keyword

nonn,easy

Author

Olivier Gérard, Jul 05 2001

Status

approved