|
|
A083581
|
|
a(n) = 8/3 - 5*(-2)^n/3.
|
|
6
|
|
|
1, 6, -4, 16, -24, 56, -104, 216, -424, 856, -1704, 3416, -6824, 13656, -27304, 54616, -109224, 218456, -436904, 873816, -1747624, 3495256, -6990504, 13981016, -27962024, 55924056, -111848104, 223696216, -447392424, 894784856, -1789569704, 3579139416, -7158278824
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) = (8-5(-2)^n)/3.
G.f.: (1+7x)/((1-x)(1+2x)).
E.g.f.: (8*exp(x)-5*exp(-2*x))/3.
|
|
MATHEMATICA
|
Table[(8 - 5 (-2)^n)/3, {n, 0, 40}] (* or *) CoefficientList[Series[(1 + 7 x)/((1 - x) (1 + 2 x)), {x, 0, 40}], x] (* Vincenzo Librandi, Aug 23 2014 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|