OFFSET
0,8
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, -1, -1).
FORMULA
G.f.: x^6*(1 + x + x^4 + x^6 + x^9 + x^10 + x^11 + x^14 + x^15 + x^17 + x^18)/((1 - x - x^2)*(1 - x^24)). [Corrected by G. C. Greubel, May 21 2019]
MAPLE
seq(floor(combinat[fibonacci](n)/6), n=0..40); # Muniru A Asiru, Oct 10 2018
MATHEMATICA
Table[Floor[Fibonacci[n]/6], {n, 0, 50}] (* Vincenzo Librandi, Jul 10 2012 *)
CoefficientList[Series[x^6 (1 + x + x^4 + x^6 + x^9 + x^10 + x^11 + x^14 + x^15 + x^17 + x^18)/((1 - x - x^2) (1 - x^24)), {x, 0, 50}], x] (* Stefano Spezia, Oct 11 2018 - corrected by G. C. Greubel, May 21 2019 *)
PROG
(Magma) [Floor(Fibonacci(n)/6): n in [0..40]]; // Vincenzo Librandi, Jul 10 2012
(PARI) vector(50, n, n--; fibonacci(n)\6) \\ G. C. Greubel, Oct 09 2018
(Sage) [floor(fibonacci(n)/6) for n in (0..40)] # G. C. Greubel, May 21 2019
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
STATUS
approved