OFFSET
0,4
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..550
FORMULA
E.g.f.: exp(63*x) - 30*exp(47*x) + 120*exp(39*x) + 60*exp(35*x) + 60*exp(33*x) - 18*exp(32*x) - 324*exp(31*x) - 720*exp(29*x) + 810*exp(27*x) + 120*exp(26*x) + 480*exp(25*x) + 480*exp(24*x) - 900*exp(23*x) - 720*exp(22*x) - 240*exp(21*x) - 900*exp(20*x) + 2640*exp(19*x) + 615*exp(18*x) + 480*exp(17*x) + 510*exp(16*x) - 2955*exp(15*x) - 5070*exp(14*x) + 3960*exp(13*x) + 7320*exp(12*x) - 8640*exp(11*x) - 4860*exp(10*x) + 10620*exp(9*x) + 9210*exp(8*x) - 21910*exp(7*x) + 16290*exp(6*x) - 120*exp(5*x) - 34470*exp(4*x) + 53925*exp(3*x) - 34950*exp(2*x) + 10208*exp(x) - 1082.
MATHEMATICA
With[{nmax = 50}, CoefficientList[Series[Exp[63*x] - 30*Exp[47*x] + 120*Exp[39*x] + 60*Exp[35*x] + 60*Exp[33*x] - 18*Exp[32*x] - 324*Exp[31*x] - 720*Exp[29*x] + 810*Exp[27*x] + 120*Exp[26*x] + 480*Exp[25*x] + 480*Exp[24*x] - 900*Exp[23*x] - 720*Exp[22*x] - 240*Exp[21*x] - 900*Exp[20*x] + 2640*Exp[19*x] + 615*Exp[18*x] + 480*Exp[17*x] + 510*Exp[16*x] - 2955*Exp[15*x] - 5070*Exp[14*x] + 3960*Exp[13*x] + 7320*Exp[12*x] - 8640*Exp[11*x] - 4860*Exp[10*x] + 10620*Exp[9*x] + 9210*Exp[8*x] - 21910*Exp[7*x] + 16290*Exp[6*x] - 120*Exp[5*x] - 34470*Exp[4*x] + 53925*Exp[3*x] - 34950*Exp[2*x] + 10208*Exp[x] - 1082, {x, 0, nmax}], x] Range[0, nmax]!] (* G. C. Greubel, Oct 08 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Goran Kilibarda, Vladeta Jovovic, May 24 2004
STATUS
approved