|
Search: id:A143075
|
|
|
| A143075 |
|
Polynomial expansion sequence: p(x)=1/(1 - 4x + 5x^2 - 6x^4 + 6x^5 - x^6 - 2x^7 + x^8). |
|
+0
1
|
|
| 1, 4, 11, 24, 47, 86, 152, 262, 444, 742, 1228, 2018, 3301, 5382, 8755, 14218, 23063, 37380, 60552, 98052, 158736, 256932, 415824, 672924, 1088929, 1762048, 2851187, 4613460, 7464887, 12078602, 19543760
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Ratio limit is the golden mean.
|
|
FORMULA
|
a(n) = expansion(1/(1 - 4x + 5x^2 - 6x^4 + 6x^5 - x^6 - 2x^7 + x^8))
|
|
MATHEMATICA
|
Clear[p, q, x, n, a]; p[x_] = Expand[((x^2 - x - 1)*(x^2 - 1)*(x^2 - 2*x + 1)*(x^2 - x + 1)) ]; q[x_] = ExpandAll[1/(x^8*p[1/x])]; a = Table[SeriesCoefficient[Series[q[x], {x, 0, 30}], n], {n, 0, 30}]
|
|
CROSSREFS
|
Sequence in context: A057304 A001752 A160860 this_sequence A007678 A159350 A159348
Adjacent sequences: A143072 A143073 A143074 this_sequence A143076 A143077 A143078
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Oct 13 2008
|
|
|
Search completed in 0.002 seconds
|
