%I #8 Jul 29 2022 09:56:59
%S 3,5,9,18,36,72,144,287,573,1145,2290,4580,9159,18318,36636,73272,
%T 146543,293086,586172,1172344,2344688,4689375,9378749,18757498,
%U 37514996,75029991,150059982,300119964,600239928,1200479855,2400959709,4801919418,9603838835
%N Least integer k such that k/2^n > sqrt(5).
%H Clark Kimberling, <a href="/A293332/b293332.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n) = ceiling(r*2^n), where r = sqrt(5).
%F a(n) = A293331(n) + 1.
%t z = 120; r = Sqrt[5];
%t Table[Floor[r*2^n], {n, 0, z}]; (* A293331 *)
%t Table[Ceiling[r*2^n], {n, 0, z}]; (* A293332 *)
%t Table[Round[r*2^n], {n, 0, z}]; (* A293333 *)
%o (Python)
%o from math import isqrt
%o def A293332(n): return 1+isqrt(5*(1<<(n<<1))) # _Chai Wah Wu_, Jul 28 2022
%Y Cf. A001633, A293331, A293333.
%K nonn,easy
%O 0,1
%A _Clark Kimberling_, Oct 10 2017
|