|
%I #7 Aug 24 2017 15:45:07
%S 0,1,1,2,5,8,20,38,83,173,362,767,1604,3386,7112,14969,31493,66242,
%T 139385,293204,616880,1297766,2730251,5743937,12084050,25422563,
%U 53483960,112519838,236719568,498011393,1047718217,2204192882
%N a(n)= a(n-1) +3*a(n-2) -3*a(n-4).
%H <a href="/index/Rec#order_04">Index entries for linear recurrences with constant coefficients</a>, signature (1,3,0,-3).
%F Limit a(n)/a(n-1)=2.1038034027..
%F G.f.: x*(-1+2*x^2)/((1-x) * (3*x^3+3*x^2-1)). [Sep 28 2009]
%t m = 3 a[0] = 0; a[1] = 1; a[2] = 1; a[3] = 2; a[n_] := a[n] = a[n - 1] + m*a[n - 2] - m*a[n - 4] digits = 50 aa = Table[a[n], {n, 0, digits}]
%t LinearRecurrence[{1,3,0,-3},{0,1,1,2},40] (* _Harvey P. Dale_, Aug 24 2017 *)
%K nonn,easy
%O 0,4
%A _Roger L. Bagula_, May 24 2005
%E Definition replaced by recurrence by the Associate Editors of the OEIS, Sep 28 2009
|
