|
%I #4 Dec 15 2016 23:46:45
%S 1,-3,4,-3,-1,8,-15,18,-13,-3,29,-57,72,-56,-3,99,-201,256,-204,7,316,
%T -665,864,-711,75,987,-2148,2830,-2373,350,3060,-6813,9062,-7695,1337,
%U 9463,-21405,28636,-24466,4546,29388,-66931,89675,-76646,14298,91775
%N Coefficients in the expansion of 1/([r] + [2r]x + [3r]x^2 + ...); [ ] = floor, r = sqrt(3).
%H Clark Kimberling, <a href="/A279588/b279588.txt">Table of n, a(n) for n = 0..1000</a>
%F G.f.: 1/([r] + [2r]x + [3r]x^2 + ...); [ ] = floor, r = sqrt(3).
%t z = 30; r = Sqrt[3];
%t f[x_] := f[x] = Sum[Floor[r*(k + 1)] x^k, {k, 0, z}]; f[x]
%t CoefficientList[Series[1/f[x], {x, 0, 2*z}], x]
%Y Cf. A022838.
%K sign,easy
%O 0,2
%A _Clark Kimberling_, Dec 15 2016
|
