%I #8 Feb 17 2018 10:44:13
%S 0,4,4,7,10,16,26,41,66,107,173,280,453,732,1185,1917,3101,5018,8118,
%T 13135,21253,34388,55641,90029,145670,235698,381368,617066,998433,
%U 1615499,2613931,4229429,6843360,11072789,17916148,28988937,46905085,75894021,122799105
%N a(n) is the least integer k such that k/Fibonacci(n) > Pi.
%H Clark Kimberling, <a href="/A293678/b293678.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n) = ceiling(Pi*Fibonacci(n)).
%F a(n) = A293677(n) + 1 for n > 0.
%t z = 120; f[n_] := Fibonacci[n];
%t Table[Floor[Pi*f[n]], {n, 0, z}]; (* A293677 *)
%t Table[Ceiling[Pi*f[n]], {n, 0, z}]; (* A293678 *)
%t Table[Round[Pi*f[n]], {n, 0, z}]; (* A293679 *)
%Y Cf. A000045, A000796, A293677, A293679.
%K nonn,easy
%O 0,2
%A _Clark Kimberling_, Oct 16 2017