|
Search: id:A143438
|
|
|
| A143438 |
|
Coefficient expansion of Salem polynomial:a=0; p(x)=x^6 - a*x^5 - x^4 + (2*a - 1)*x^3 - x^2 - a*x + 1. |
|
+0
1
|
|
| 1, 0, 1, 1, 2, 2, 3, 5, 6, 9, 12, 18, 24, 34, 48, 67, 94, 131, 185, 258, 362, 507, 711, 996, 1395, 1956, 2740, 3840, 5380, 7540, 10565
(list; graph; listen)
|
|
|
OFFSET
|
1,5
|
|
|
REFERENCES
|
Curtis T. McMullen,Dynamics on K3 surfaces: Salem numbers and Siegel disks,2005, http://abel.math.harvard.edu/~ctm/papers/index.html
|
|
FORMULA
|
a=0; p(x)=x^6 - a*x^5 - x^4 + (2*a - 1)*x^3 - x^2 - a*x + 1; a(n)=Coefficient_Expansion(p(x)).
|
|
MATHEMATICA
|
a = 0; f[x_] = x^6 - a*x^5 - x^4 + (2*a - 1)*x^3 - x^2 - a*x + 1; g[x] = ExpandAll[x^6*f[1/x]]; a0 = Table[SeriesCoefficient[Series[1/g[x], {x, 0, 30}], n], {n, 0, 30}]
|
|
CROSSREFS
|
Sequence in context: A117356 A017819 A050044 this_sequence A004037 A160235 A050380
Adjacent sequences: A143435 A143436 A143437 this_sequence A143439 A143440 A143441
|
|
KEYWORD
|
nonn,uned,probation
|
|
AUTHOR
|
Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Oct 23 2008
|
|
|
Search completed in 0.002 seconds
|
