|
%I #4 Jul 10 2017 22:50:29
%S 1,3,5,9,18,36,72,144,287,570,1132,2250,4473,8892,17676,35137,69847,
%T 138845,276002,548649,1090629,2168001,4309649,8566912,17029689,
%U 33852374,67293256,133768530,265911039,528589801,1050754338,2088736250,4152082903,8253695235
%N Coefficients of 1/(Sum_{k>=0} [(k+1)*r](-x)^k), where r = Pi/2 and [ ] = floor.
%C Conjecture: the sequence is strictly increasing.
%F G.f.: 1/(Sum_{k>=0} [(k+1)*r)](-x)^k), where r = Pi/2 and [ ] = floor.
%t r = Pi/2;
%t u = 1000; (* # initial terms from given series *)
%t v = 100; (* # coefficients in reciprocal series *)
%t CoefficientList[Series[1/Sum[Floor[r*(k + 1)] (-x)^k, {k, 0, u}], {x, 0, v}], x]
%Y Cf. A078140 (includes guide to related sequences).
%K nonn,easy
%O 0,2
%A _Clark Kimberling_, Jul 10 2017
|
