OFFSET
0,2
COMMENTS
Binomial transform is A097134.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (0,2,1).
FORMULA
MATHEMATICA
CoefficientList[Series[(1+2x+2x^2)/((1+x)(1-x-x^2)), {x, 0, 40}], x] (* or *) LinearRecurrence[{0, 2, 1}, {1, 2, 4}, 40] (* Harvey P. Dale, May 07 2011 *)
PROG
(Haskell)
a097133 n = a097133_list !! n
a097133_list = 1 : 2 : 4 : zipWith (+)
(map (* 2) $ tail a097133_list) a097133_list
-- Reinhard Zumkeller, Feb 24 2015
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Paul Barry, Jul 26 2004
STATUS
approved