Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A279588
Coefficients in the expansion of 1/([r] + [2r]x + [3r]x^2 + ...); [ ] = floor, r = sqrt(3).
1
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
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
KEYWORD
sign,easy
AUTHOR
Clark Kimberling, Dec 15 2016
STATUS
approved