OFFSET
0,1
LINKS
FORMULA
MATHEMATICA
CoefficientList[Series[2(1-2x)/(1-4x), {x, 0, 30}], x] (* or *) Join[{2}, NestList[ 4#&, 4, 30]] (* Harvey P. Dale, Nov 13 2015 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Paul Curtz, Jan 24 2009
EXTENSIONS
Edited and extended by R. J. Mathar, Jul 23 2009
STATUS
approved