OFFSET
1,8
LINKS
Peter J. C. Moses, Table of n, a(n) for n = 1..1000
MATHEMATICA
p={10, -15, 11, -18, 12, 14, -25, 12, -28, 43, -13, 2, 0, -21, 10, 10, 3, 8, -10, -11, 5, 9, -18, 16, -31, 35, -20, 15, -6, -10, 36, -44, 9, -1, 3, 16, -11, 23, -3, -25, -17, -27, 43, 24, 24, -33, -24, -7, 14, 6, 9, -5, 10, 0, -9, -9, -12, 7, 14, 7, -1, -9, -6, 2, 3, 2, 1, -1, 0, -1, -1, 0, 0, 1, 0, 0, 0, 0, 0}; q={6, -9, 9, -18, 16, -11, 14, -8, 1, -5, 7, 2, 8, -14, -5, -5, 19, 3, -6, -7, -6, 16, -7, 8, -22, 17, -12, 7, 5, 7, -8, 4, -7, -9, 13, -4, -6, 14, -14, 19, -7, -13, 2, -4, 18, 0, -1, -4, -12, 8, -5, 0, 8, 1, 7, -8, -5, -2, 3, 3, 0, 0, 0, 0, -2, -1, 0, 3, 1, -1, -1, -1, 1}; gf=Fold[x #1+#2&, 0, p]/Fold[x #1+#2&, 0, q]; CoefficientList[Series[gf, {x, 0, 99}], x] (* Peter J. C. Moses, Jun 24 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved