|
| |
|
|
A147622
|
|
G.f.: 1/(1 - x - 2 x^2 + x^3 + x^4 + 2 x^7 - 5 x^9 + 2 x^11 + x^14 + x^15 - 2 x^16 - x^17 + x^18).
|
|
0
| |
|
|
1, 1, 3, 4, 8, 12, 21, 31, 51, 79, 126, 199, 315, 500, 794, 1265, 2009, 3202, 5090, 8108, 12898, 20533, 32667, 51990, 82721, 131631, 209446, 333263, 530282, 843764, 1342587, 2136280, 3399227, 5408765, 8606368, 13694288, 21790171, 34672157
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
MATHEMATICA
| f[x_] =-1 + x^2 - x^7 - x^8 + x^9; g[x] = ExpandAll[ -f[x]*x^9*f[1/x]]; a = Table[SeriesCoefficient[Series[1/g[x], {x, 0, 50}], n], {n, 0, 50}]
|
|
|
CROSSREFS
| Sequence in context: A088953 A025034 A145722 * A173534 A052952 A074331
Adjacent sequences: A147619 A147620 A147621 * A147623 A147624 A147625
|
|
|
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
|
| |
|
|
