|
| |
|
|
A147620
|
|
G.f.: 1/(1 - x - 2 x^2 + x^3 + x^4 + 2 x^6 - 5 x^8 + 2 x^10 + x^12 + x^13 - 2 x^14 - x^15 + x^16).
|
|
0
| |
|
|
1, 1, 3, 4, 8, 12, 19, 29, 46, 70, 111, 170, 271, 422, 668, 1048, 1655, 2603, 4104, 6453, 10167, 15989, 25175, 39599, 62329, 98064, 154335, 242845, 382183, 601399, 946451, 1489366, 2343847, 3688412, 5804459, 9134287, 14374533, 22620800, 35597998
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
MATHEMATICA
| f[x_] =-1 + x^2 - x^6 - x^7 + x^8; g[x] = ExpandAll[ -f[x]*x^8*f[1/x]]; a = Table[SeriesCoefficient[Series[1/g[x], {x, 0, 50}], n], {n, 0, 50}]
|
|
|
CROSSREFS
| Sequence in context: A076136 A146566 A064188 * A195746 A088953 A025034
Adjacent sequences: A147617 A147618 A147619 * A147621 A147622 A147623
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 08 2008
|
|
|
EXTENSIONS
| Definition corrected by N. J. A. Sloane (njas(AT)research.att.com), Nov 09 2008
|
| |
|
|
