|
| |
|
|
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, 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; refs; listen; history; internal format)
|
|
|
|
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 * A004037 A160235 A050380
Adjacent sequences: A143435 A143436 A143437 * A143439 A143440 A143441
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Oct 23 2008
|
| |
|
|
