|
%I #11 Mar 30 2017 04:31:06
%S 1,-3,5,-9,17,-30,52,-91,160,-281,493,-865,1518,-2664,4675,-8204,
%T 14397,-25265,44337,-77805,136534,-239592,420441,-737798,1294700,
%U -2271961,3986877,-6996242,12277127,-21544115,37805987,-66342603,116419152,-204294349,358499270
%N Coefficients in the expansion of 1/([r] + [2r]x + [3r]x^2 + ...); [ ] = floor, r = sqrt(e).
%H Clark Kimberling, <a href="/A279595/b279595.txt">Table of n, a(n) for n = 0..1000</a>
%F G.f.: 1/([e] + [2e]x + [3e]x^2 + ...); [ ] = floor.
%t z = 30; r = Sqrt[E];
%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]
%o (PARI) r = sqrt(exp(1));
%o Vec(1/sum(k=0, 60, floor(r*(k + 1))*x^k) + O(x^61)) \\ _Indranil Ghosh_, Mar 30 2017
%Y Cf. A279607.
%K sign,easy
%O 0,2
%A _Clark Kimberling_, Dec 16 2016
|
