%I #7 Oct 29 2018 17:51:23
%S 0,1,1,2,6,10,30,62,158,366,878,2094,4974,11886,28270,67438,160622,
%T 382830,912238,2173806,5180270,12344174,29416302,70097774,167041902,
%U 398056302,948558702,2260392814,5386460014,12835806062,30587411310
%N a(n) = a(n-1)+4*a(n-2)-4*a(n-4).
%H <a href="/index/Rec#order_04">Index entries for linear recurrences with constant coefficients</a>, signature (1,4,0,-4).
%F Limit a(n)/a(n-1) = 2.3829757679...
%F G.f.: x*(1-3*x^2)/((x-1)*(4*x^3+4*x^2-1)).
%t m = 4 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,4,0,-4},{0,1,1,2},40] (* _Harvey P. Dale_, Oct 29 2018 *)
%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
|