%I #4 Oct 10 2017 10:32:48
%S 1,1,2,4,8,15,29,58,115,229,458,916,1832,3664,7328,14655,29309,58618,
%T 117235,234469,468938,937875,1875750,3751500,7503000,15005999,
%U 30011997,60023993,120047986,240095971,480191942,960383884,1920767767,3841535534,7683071068
%N Least integer k such that k/2^n > sqrt(1/5).
%H Clark Kimberling, <a href="/A293335/b293335.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n) = ceiling(r*2^n), where r = sqrt(1/5).
%F a(n) = A293336(n) + 1.
%t z = 120; r = Sqrt[1/5];
%t Table[Floor[r*2^n], {n, 0, z}]; (* A293334 *)
%t Table[Ceiling[r*2^n], {n, 0, z}]; (* A293335 *)
%t Table[Round[r*2^n], {n, 0, z}]; (* A293336 *)
%Y Cf. A001633, A293332, A293334, A293336.
%K nonn,easy
%O 0,3
%A _Clark Kimberling_, Oct 10 2017
|