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

1, -3, 4, -3, -1, 8, -15, 18, -13, -3, 29, -57, 72, -56, -3, 99, -201, 256, -204, 7, 316, -665, 864, -711, 75, 987, -2148, 2830, -2373, 350, 3060, -6813, 9062, -7695, 1337, 9463, -21405, 28636, -24466, 4546, 29388, -66931, 89675, -76646, 14298, 91775

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 = sqrt(3).

Mathematica

z = 30; r = Sqrt[3];
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. A022838.

Sequence in context: A262979 A011190 A279676 * A279590 A351113 A201935

Adjacent sequences: A279585 A279586 A279587 * A279589 A279590 A279591

Keyword

sign,easy

Author

Clark Kimberling, Dec 15 2016

Status

approved