|
Search: id:A147659
|
|
|
| A147659 |
|
Coefficient expansion of toral of inverse of low ratio (1.6237635378007012) Pisot Polynomial: a(n)=Coefficient_Expansion(1/( 1 - x^2 - x^10 - x^11 + x^12)). |
|
+0
1
|
|
| 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 90, 146, 237, 385, 625, 1015, 1648, 2676, 4345, 7055, 11456, 18602, 30205, 49046, 79639, 129315, 209977, 340953, 553627, 898959, 1459697, 2370203, 3848649, 6249296, 10147379, 16476944, 26754661, 43443243
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
COMMENT
|
This is from a census that looped 3^11 times and took over three hours: there is a vector Matrix Markov but I'm going to keep it rather than have it chopped off by an unappreciative editor. The 1 + x^2 - x^10 - x^11 + x^12, is not Pisot, so x^22 doubling is the limit that sequence of polynomials below the Golden mean ratio.
|
|
MATHEMATICA
|
f[x_] = 1 - x^2 - x^10 - x^11 + x^12; g[x] = ExpandAll[x^12*f[1/x]]; a = Table[SeriesCoefficient[Series[1/g[x], {x, 0, 50}], n], {n, 0, 50}]
|
|
CROSSREFS
|
Sequence in context: A074317 A077371 A077372 this_sequence A005181 A120659 A042581
Adjacent sequences: A147656 A147657 A147658 this_sequence A147660 A147661 A147662
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 09 2008
|
|
|
Search completed in 0.002 seconds
|
