OFFSET
0,2
COMMENTS
In other words, split the Fibonacci numbers into groups of three and reverse each group.
LINKS
Index entries for linear recurrences with constant coefficients, signature (0,0,4,0,0,1)
FORMULA
G.f.: x*(-2-x-x^2-x^4+x^5) / ( (x^2+x-1)*(x^4-x^3+2*x^2+x+1) ). - R. J. Mathar, Mar 08 2011
MATHEMATICA
fib[n_Integer?Positive] := fib[n] = fib[n - 1] + fib[n - 2] fib[0] = 0; fib[1] = 1 f[n_] = If[Mod[n, 3] == 1, n + 2, If[Mod[n, 3] == 0, n - 2, n]] a = Table[fib[f[n]], {n, 1, 200}]
Flatten[Join[{0}, Reverse/@Partition[Fibonacci[Range[42]], 3]]] (* or *) Join[{0}, LinearRecurrence[{0, 0, 4, 0, 0, 1}, {2, 1, 1, 8, 5, 3}, 40]] (* Harvey P. Dale, Mar 26 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Mar 16 2005
EXTENSIONS
Edited by N. J. A. Sloane, Nov 12 2006
STATUS
approved