OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (4,3).
FORMULA
MAPLE
a[0]:=0: a[1]:=3: for n from 2 to 24 do a[n]:=4*a[n-1]+3*a[n-2] od: seq(a[n], n=0..40);
MATHEMATICA
LinearRecurrence[{4, 3}, {0, 3}, 41] (* G. C. Greubel, Sep 07 2021 *)
PROG
(Magma) [n le 2 select 3*(n-1) else 4*Self(n-1) + 3*Self(n-2): n in [1..41]]; // G. C. Greubel, Sep 07 2021
(Sage) [3*lucas_number1(n, 4, -3) for n in (0..40)] # G. C. Greubel, Sep 07 2021
CROSSREFS
KEYWORD
nonn,easy,less
AUTHOR
Roger L. Bagula, May 30 2005
EXTENSIONS
Edited by N. J. A. Sloane, Apr 30 2006
New name by G. C. Greubel, Sep 07 2021
STATUS
approved