OFFSET
0,1
LINKS
Clark Kimberling, Table of n, a(n) for n = 0..1000
FORMULA
G.f.: ([s] + [2s]x + [3s]x^2 + ...)/([r] + [2r]x + [3r]x^2 + ...); [ ] = floor, r = e/2, s = r/(1-r).
MATHEMATICA
z = 100;
r = E/2; f[x_] := f[x] = Sum[Floor[r*(k + 1)] x^k, {k, 0, z}];
s = r/(r - 1); g[x_] := g[x] = Sum[Floor[s*(k + 1)] x^k, {k, 0, z}]
CoefficientList[Series[g[x]/f[x], {x, 0, z}], x]
CROSSREFS
KEYWORD
sign,easy
AUTHOR
Clark Kimberling, Dec 18 2016
STATUS
approved