|
|
A288236
|
|
Coefficients in the expansion of 1/([r]-[2r]x+[3r]x^2-...); [ ]=floor, r=-4/5+sqrt(6).
|
|
3
|
|
|
1, 3, 5, 9, 17, 30, 52, 91, 160, 281, 493, 865, 1518, 2664, 4675, 8204, 14397, 25265, 44337, 77805, 136534, 239592, 420441, 737798, 1294700, 2271961, 3986877, 6996242, 12277127, 21544115, 37805987, 66342603, 116419152, 204294349, 358499270, 629100742
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
A288235(k) = a(k) if and only if k <= 56.
Conjecture: the sequence is strictly increasing.
|
|
LINKS
|
|
|
FORMULA
|
G.f.: 1/(Sum_{k>=0} [(k+1)*r)](-x)^k), where r = -4/5 + sqrt(6) and [ ] = floor.
|
|
MATHEMATICA
|
r = -4/5 + Sqrt[6];
u = 1000; (* # initial terms from given series *)
v = 100; (* # coefficients in reciprocal series *)
CoefficientList[Series[1/Sum[Floor[r*(k + 1)] (-x)^k, {k, 0, u}], {x, 0, v}], x]
|
|
CROSSREFS
|
Cf. A078140 (includes guide to related sequences).
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|