cp's OEIS Frontend

A142880 a(n) = 7*a(n-3) - a(n-6).

%I A142880 #17 Jul 17 2021 17:06:43
%S A142880 0,1,2,3,8,13,21,55,89,144,377,610,987,2584,4181,6765,17711,28657,
%T A142880 46368,121393,196418,317811,832040,1346269,2178309,5702887,9227465,
%U A142880 14930352,39088169,63245986,102334155,267914296,433494437,701408733,1836311903
%N A142880 a(n) = 7*a(n-3) - a(n-6).
%H A142880 <a href="/index/Rec#order_06">Index entries for linear recurrences with constant coefficients</a>, signature (0,0,7,0,0,-1).
%F A142880 G.f.: -x*(1+x)*(x^3 - 2*x^2 - x - 1) / ( 1 - 7*x^3 + x^6 ).
%F A142880 a(3n) = A033888(n).
%F A142880 a(3n+1) = A033890(n).
%F A142880 a(3n+2)= A033891(n).
%F A142880 a(n) = 2*a(n-1) + a(n-2) if n == 1 (mod 3).
%F A142880 a(n) = a(n-1) + a(n-2) if n == 0 (mod 3).
%F A142880 a(n) = 2*a(n-1) - a(n-2) if n == 2 (mod 3).
%t A142880 a[0] = 0; a[1] = 1;
%t A142880 a[n_] := a[n] = If[Mod[n, 3] == 1, 2*a[n - 1] + a[n - 2], If[Mod[n, 3] == 0, a[n - 1] + a[n - 2], 2*a[n - 1] - a[n - 2]]];
%t A142880 Table[a[n], {n, 0, 50}]
%t A142880 LinearRecurrence[{0,0,7,0,0,-1},{0,1,2,3,8,13},40] (* _Harvey P. Dale_, Jul 17 2021 *)
%Y A142880 Cf. A119016, A002965, A002530, A048788.
%K A142880 nonn,easy
%O A142880 0,3
%A A142880 _Roger L. Bagula_ and _Gary W. Adamson_, Sep 28 2008