|
|
A137261
|
|
G.f.: (5764801*x^8-5764801*x^7+28812*x^4-28812*x^3+840*x-1200)/(x-1).
|
|
0
|
|
|
1200, 360, 360, 29172, 360, 360, 360, 5765161, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360, 360
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The expansion here is simpler than that in the reference on page 192.
|
|
LINKS
|
|
|
FORMULA
|
f(x)=(1 - 7*x + 12*x^4 - 84*x^5 + 120*x^7 - 1200x^8)/(1 - 7*x); a(n) = 7^(n+10*coefficient expansion(x^7*f(1/x))
|
|
MATHEMATICA
|
f[x_] = (1 - 7*x + 12*x^4 - 84*x^5 + 120*x^7 - 1200x^8)/(1 - 7*x); p[x] = ExpandAll[x^7*f[1/x]]; Table[ SeriesCoefficient[Series[p[x]*7^(n + 1), {x, 0, 30}], n], {n, 0, 30}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|