login
a(n) is the least integer k such that k/Fibonacci(n) > Pi.
3

%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