OFFSET
1,2
COMMENTS
Ratio approaches:49.00000000166169
Follower matrices:
Ma={{0, 1, 0, 0, 0, 0, 0},
{0, 0, 1, 0, 0, 0, 0},
{0, 0, 0, 1, 0, 0, 0},
{0, 0, 0, 0, 1, 0, 0},
{0, 0, 0, 0, 0, 1, 0},
{0, 0, 0, 0, 0, 0, 1},
{1, 0, 0, 0, 0, 0, a}}; a={1,2,3};
M_Leader={{0, 1, 0, 0, 0, 0, 0},
{0, 0, 1, 0, 0, 0, 0},
{0, 0, 0, 1, 0, 0, 0},
{0, 0, 0, 0, 1, 0, 0},
{0, 0, 0, 0, 0, 1, 0},
{0, 0, 0, 0, 0, 0, 1},
{23, 0, 0, 0, 0, 0, 49}}
I missed this game in my first round of analysis.
FORMULA
(x)=(1 + x^6 - x^7)^3(1 + 2 x^6 - x^7)^2(1 + 3 x^6 - x^7)(23 + 49 x^6 -x^7) f(x)=1/(x^49*p(1/x)) a(n) =expansion(f(x)).
MATHEMATICA
f[x_] = Product[CharacteristicPolynomial[{{0, 1, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 1}, {1, 0, 0, 0, 0, 0, a}}, x]^(4 - a), {a, 1, 3}]*CharacteristicPolynomial[{{0, 1, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 1}, {23, 0, 0, 0, 0, 0, 49}}, x]; g[x_] = Expand[x^49*f[1/x]]; a = Table[ SeriesCoefficient[Series[1/g[x], {x, 0, 30}], n], {n, 0, 30}]
CROSSREFS
KEYWORD
uned,sign
AUTHOR
Roger L. Bagula, Jan 31 2008
STATUS
approved