|
%I #7 Mar 30 2017 04:30:34
%S 1,-3,5,-9,18,-36,72,-144,287,-570,1132,-2250,4473,-8892,17676,-35137,
%T 69847,-138845,276002,-548649,1090629,-2168001,4309649,-8566912,
%U 17029689,-33852374,67293256,-133768530,265911039,-528589801,1050754338,-2088736250,4152082903
%N Coefficients in the expansion of 1/([r] + [2r]x + [3r]x^2 + ...); [ ] = floor, r = Pi/2.
%H Clark Kimberling, <a href="/A279592/b279592.txt">Table of n, a(n) for n = 0..1000</a>
%F G.f.: 1/([r] + [2r]x + [3r]x^2 + ...); [ ] = floor, r = Pi/2.
%t z = 30; r = Pi/2;
%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 = Pi/2;
%o Vec(1/sum(k=0, 70, floor(r*(k + 1))*x^k) + O(x^71)) \\ _Indranil Ghosh_, Mar 30 2017
%Y Cf. A279607.
%K sign,easy
%O 0,2
%A _Clark Kimberling_, Dec 16 2016
|
