OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
Index entries for linear recurrences with constant coefficients, signature (3,-2).
FORMULA
From R. J. Mathar, Apr 22 2009: (Start)
a(n) = 3*a(n-1) - 2*a(n-2), n>3.
a(n) = 16*2^n - 20, n>1. (End)
MAPLE
T := proc(n, m) option remember ; if n < 0 then 0; elif n <= 1 then 1; elif n = 2 then 2; else add(procname(n-i, m), i=1..m) ; fi: end: A159742 := proc(n) T(n+5, n+1) ; end: seq(A159742(n), n=1..40) ; # R. J. Mathar, Apr 22 2009
MATHEMATICA
CoefficientList[Series[(2*z^2 + 5*z + 13)/(2*z^2 - 3*z + 1), {z, 0, 100}], z] (* Vladimir Joseph Stephan Orlovsky, Jul 08 2011 *)
Join[{13}, Table[4*(2^(n + 2) - 5), {n, 2, 50}]] (* G. C. Greubel, May 22 2018 *)
LinearRecurrence[{3, -2}, {13, 44, 108}, 30] (* Harvey P. Dale, Jul 10 2018 *)
PROG
(PARI) for(n=1, 30, print1(if(n==1, 13, 4*(2^(n+2) - 5)), ", ")) \\ G. C. Greubel, May 22 2018
(Magma) [13] cat [4*(2^(n+2) - 5): n in [2..30]]; // G. C. Greubel, May 22 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Al Hakanson (hawkuu(AT)gmail.com), Apr 20 2009
EXTENSIONS
More terms from R. J. Mathar, Apr 22 2009
STATUS
approved