A279590 Coefficients in the expansion of 1/([r] + [2r]x + [3r]x^2 + ...); [ ] = floor, r = e - 1.

1, -3, 4, -3, -1, 8, -15, 18, -13, -3, 30, -63, 89, -86, 29, 97, -278, 453, -511, 314, 245, -1151, 2170, -2795, 2305, -6, -4331, 9921, -14534, 14549, -5887, -13958, 43029, -72127, 83898, -55979, -30079, 174330, -342124, 454087, -393943, 45299, 638945

Offset

0,2

Links

Clark Kimberling, Table of n, a(n) for n = 0..1000

Formula

G.f.: 1/([r] + [2r]x + [3r]x^2 + ...); [ ] = floor, r = e - 1.

Mathematica

z = 30; r = E - 1;
f[x_] := f[x] = Sum[Floor[r*(k + 1)] x^k, {k, 0, z}]; f[x]
CoefficientList[Series[1/f[x], {x, 0, 2*z}], x]

Crossrefs

Cf. A000210.

Sequence in context: A011190 A279676 A279588 * A351113 A201935 A225445

Adjacent sequences: A279587 A279588 A279589 * A279591 A279592 A279593

Keyword

sign,easy

Author

Clark Kimberling, Dec 16 2016

Status

approved