OFFSET
1,4
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..1000
Index entries for linear recurrences with constant coefficients, signature (1,1,0,0,0,1,-1,-1).
FORMULA
EXAMPLE
For n=8, (3/4)*Fibonacci(8) = (3/4)*21 = 15.75 hence a(8) = 15.
MATHEMATICA
z = 120; r = 3/4; f[n_] := Fibonacci[n];
Table[Floor[r*f[n]], {n, 1, z}]; (* A293631 *)
Table[Ceiling[r*f[n]], {n, 1, z}]; (* A293632 *)
Table[Round[r*f[n]], {n, 1, z}]; (* A293633 *)
LinearRecurrence[{1, 1, 0, 0, 0, 1, -1, -1}, {0, 0, 1, 2, 3, 6, 9, 15}, 40] (* Bruno Berselli, Feb 16 2018 *)
PROG
(PARI) a(n) = floor(3*fibonacci(n)/4); \\ Andrew Howroyd, Feb 12 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Oct 14 2017
EXTENSIONS
Offset changed to 1 by Clark Kimberling, Feb 12 2018
STATUS
approved