|
|
A279675
|
|
Coefficients in the expansion of 1/([r] + [2r]x + [3r]x^2 + ...); [ ] = floor, r = 4/3.
|
|
3
|
|
|
1, -2, 0, 3, -2, -4, 8, 0, -16, 16, 16, -48, 16, 80, -112, -48, 272, -176, -368, 720, 16, -1456, 1424, 1488, -4336, 1360, 7312, -10032, -4592, 24656, -15472, -33840, 64784, 2896, -132464, 126672, 138256, -391600, 115088, 668112, -898288, -437936, 2234512
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
If n >=7, then 16 divides a(n).
|
|
LINKS
|
|
|
FORMULA
|
G.f.: 1/(1 + 2x + 4x^2 + 5x^3 + 6x^4 + 8x^5 + ...).
G.f.: (1 - x) (1 - x^3)/(1 + x + 2 x^2).
|
|
MATHEMATICA
|
z = 50; f[x_] := f[x] = Sum[Floor[(4/3)*(k + 1)] x^k, {k, 0, z}]; f[x]
CoefficientList[Series[1/f[x], {x, 0, z}], x]
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|