|
%I #6 Dec 21 2016 10:48:03
%S 3,0,-2,2,0,-2,4,-4,-2,10,-10,0,14,-24,16,18,-56,54,10,-102,142,-54,
%T -154,332,-256,-158,666,-768,90,1136,-1918,1086,1510,-4144,3912,814,
%U -7760,10692,-3690,-12058,24840,-18478,-12628,50292,-57022,4864,87244,-143424
%N Coefficients in the expansion of ([s] + [2s]x + [3s]x^2 + ...)/([r] + [2r]x + [3r]x^2 + ...); [ ] = floor, r = sqrt(2), s = r/(1-r).
%H Clark Kimberling, <a href="/A279631/b279631.txt">Table of n, a(n) for n = 0..1000</a>
%F G.f.: ([s] + [2s]x + [3s]x^2 + ...)/([r] + [2r]x + [3r]x^2 + ...); [ ] = floor, r = sqrt(2), s = r/(1-r).
%t z = 100;
%t r = Sqrt[2]; f[x_] := f[x] = Sum[Floor[r*(k + 1)] x^k, {k, 0, z}];
%t s = r/(r - 1); g[x_] := g[x] = Sum[Floor[s*(k + 1)] x^k, {k, 0, z}]
%t CoefficientList[Series[g[x]/f[x], {x, 0, z}], x]
%Y Cf. A001951, A001952.
%K sign,easy
%O 0,1
%A _Clark Kimberling_, Dec 18 2016
|
