|
Search: id:A147622
|
|
|
| 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, 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; listen)
|
|
|
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 this_sequence A052952 A074331 A153339
Adjacent sequences: A147619 A147620 A147621 this_sequence 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
|
|
|
Search completed in 0.002 seconds
|
