A098538 Expansion of 1/((1-x)^3 - 18*x^4)^(1/3).
1, 1, 1, 1, 7, 25, 61, 121, 283, 841, 2521, 6769, 17119, 44665, 123685, 347497, 954787, 2578297, 7001617, 19307089, 53601175, 148305817, 408681997, 1127558041, 3124344427, 8681565865, 24127128841, 67020060721, 186282015823
Offset: 0
Links
- G. C. Greubel, Table of n, a(n) for n = 0..1000
Crossrefs
Cf. A098536.
Programs
-
Magma
Q:=Rationals(); R
:=PowerSeriesRing(Q,30); Coefficients(R!(1/((1-x)^3-18*x^4)^(1/3))); // G. C. Greubel, Jan 17 2018 -
Mathematica
CoefficientList[Series[1/((1-x)^3-18*x^4)^(1/3), {x,0,50}], x] (* G. C. Greubel, Jan 17 2018 *) -
PARI
x='x+O('x^30); Vec(1/((1-x)^3-18*x^4)^(1/3)) \\ G. C. Greubel, Jan 17 2018
Comments