login
A293419
a(n) is the least integer k such that k/Fibonacci(n) > sqrt(2).
4
0, 2, 2, 3, 5, 8, 12, 19, 30, 49, 78, 126, 204, 330, 534, 863, 1396, 2259, 3655, 5913, 9568, 15480, 25048, 40528, 65575, 106102, 171676, 277777, 449453, 727230, 1176683, 1903912, 3080595, 4984507, 8065101, 13049607, 21114707, 34164313, 55279019, 89443332
OFFSET
0,2
LINKS
FORMULA
a(n) = ceiling(Fibonacci(n)*sqrt(2)).
a(n) = A293418(n) + 1 for n > 0.
MATHEMATICA
z = 120; r = Sqrt[2]; f[n_] := Fibonacci[n];
Table[Floor[r*f[n]], {n, 0, z}]; (* A293418 *)
Table[Ceiling[r*f[n]], {n, 0, z}]; (* A293419 *)
Table[Round[r*f[n]], {n, 0, z}]; (* A293420 *)
PROG
(PARI) for(n=0, 30, print1(ceil(fibonacci(n)*sqrt(2)), ", ")) \\ G. C. Greubel, Feb 08 2018
(Magma) [Ceiling(Fibonacci(n)*Sqrt(2)): n in [0..30]]; // G. C. Greubel, Feb 08 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Oct 12 2017
STATUS
approved