OFFSET
0,4
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
FORMULA
E.g.f.: exp(7*x) - 6*exp(5*x) + 3*exp(4*x) + 17*exp(3*x) - 30*exp(2*x) + 21*exp(x) - 6.
Empirical g.f.: -x*(5040*x^5 - 2686*x^4 + 843*x^3 - 193*x^2 + 21*x - 1) / ((x-1)*(2*x-1)*(3*x-1)*(4*x-1)*(5*x-1)*(7*x-1)). - Colin Barker, Jul 07 2013
MATHEMATICA
With[{nmax = 50}, CoefficientList[Series[Exp[7*x] - 6*Exp[5*x] + 3*Exp[4*x] + 17*Exp[3*x] - 30*Exp[2*x] + 21*Exp[x] - 6, {x, 0, nmax}], x] Range[0, nmax]!] (* G. C. Greubel, Oct 08 2017 *)
PROG
(PARI) x='x+O('x^50); concat([0], Vec(serlaplace(exp(7*x) - 6*exp(5*x) + 3*exp(4*x) + 17*exp(3*x) - 30*exp(2*x) + 21*exp(x) - 6))) \\ G. C. Greubel, Oct 08 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Goran Kilibarda, Vladeta Jovovic, May 24 2004
STATUS
approved