OFFSET
0,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (3,6,-8).
FORMULA
MATHEMATICA
CoefficientList[Series[(1 + 22*x - 32*x^2)/((x - 1)*(2*x + 1)*(4*x-1)), {x, 0, 40}], x] (* Vincenzo Librandi, Dec 19 2012 *)
PROG
(Magma) I:=[1, 25, 49]; [n le 3 select I[n] else 3*Self(n-1) + 6*Self(n-2) - 8*Self(n-3): n in [1..30]]; // Vincenzo Librandi, Dec 19 2012
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
R. J. Mathar, Dec 12 2009
EXTENSIONS
G.f. Adapted by Vincenzo Librandi, Dec 19 2012
STATUS
approved