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

Author

Clark Kimberling, Dec 16 2016

Keywords

• sign
• easy

Links

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

Crossrefs

Cf. A000210.

Programs

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]

Formula

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