|
|
A159697
|
|
a(0)=9, a(n) = 2*a(n-1) + 2^(n-1) for n > 0.
|
|
6
|
|
|
9, 19, 40, 84, 176, 368, 768, 1600, 3328, 6912, 14336, 29696, 61440, 126976, 262144, 540672, 1114112, 2293760, 4718592, 9699328, 19922944, 40894464, 83886080, 171966464, 352321536, 721420288, 1476395008, 3019898880
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
a(n) = Sum_{k=0..n} (k+9)*binomial(n,k).
a(n) = (18+n)*2^(n-1).
a(n) = 4*a(n-1) - 4*a(n-2).
G.f.: (9-17*x)/(1-2*x)^2. (End)
a(0)=9, a(1)=19, a(n) = 4*a(n-1) - 4*a(n-2). - Harvey P. Dale, Mar 24 2013
|
|
EXAMPLE
|
a(0)=9, a(1) = 2*9 + 1 = 19, a(2) = 2*19 + 2 = 40, a(3) = 2*40 + 4 = 84, a(4) = 2*84 + 8 = 176, ...
|
|
MATHEMATICA
|
RecurrenceTable[{a[0]==9, a[n]==2a[n-1]+2^(n-1)}, a, {n, 30}] (* or *) LinearRecurrence[{4, -4}, {9, 19}, 30] (* Harvey P. Dale, Mar 24 2013 *)
|
|
PROG
|
(PARI) Vec((9-17*x)/(1-2*x)^2 + O(x^40)) \\ Michel Marcus, Sep 29 2015
(Magma) I:=[9, 19]; [n le 2 select I[n] else 4*Self(n-1) - 4*Self(n-2): n in [1..30]]; // G. C. Greubel, Jun 02 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|