|
%I #6 Oct 09 2017 08:25:17
%S 1,2,3,5,10,20,40,80,159,317,633,1266,2532,5063,10126,20252,40504,
%T 81007,162014,324028,648056,1296112,2592223,5184445,10368890,20737780,
%U 41475559,82951118,165902236,331804472,663608943,1327217885,2654435770,5308871539
%N Least integer k such that k/2^n > 1/tau, where tau = (1+sqrt(5))/2 = golden ratio.
%H Clark Kimberling, <a href="/A293323/b293323.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n) = ceiling(r*2^n), where r = (-1+sqrt(5))/2.
%F a(n) = A293322(n) + 1.
%t z = 120; r = -1+GoldenRatio;
%t Table[Floor[r*2^n], {n, 0, z}]; (* A293322 *)
%t Table[Ceiling[r*2^n], {n, 0, z}]; (* A293323 *)
%t Table[Round[r*2^n], {n, 0, z}]; (* A293324 *)
%o (PARI) a(n) = ceil(2^(n-1)*(sqrt(5)-1)); \\ _Altug Alkan_, Oct 08 2017
%Y Cf. A001622, A293313, A293322, A293324.
%K nonn,easy
%O 0,2
%A _Clark Kimberling_, Oct 07 2017
|
