|
|
A053730
|
|
a(n) = 2^(n-2)*(n^2 - n + 4).
|
|
3
|
|
|
1, 2, 6, 20, 64, 192, 544, 1472, 3840, 9728, 24064, 58368, 139264, 327680, 761856, 1753088, 3997696, 9043968, 20316160, 45350912, 100663296, 222298112, 488636416, 1069547520, 2332033024, 5066719232, 10972299264, 23689428992
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
|
|
MATHEMATICA
|
CoefficientList[Series[(1-4*x+6*x^2)/(1-2*x)^3, {x, 0, 30}], x] (* Vincenzo Librandi, Apr 28 2012 *)
LinearRecurrence[{6, -12, 8}, {1, 2, 6}, 30] (* G. C. Greubel, Sep 06 2019 *)
|
|
PROG
|
(Magma) I:=[1, 2, 6]; [n le 3 select I[n] else 6*Self(n-1)-12*Self(n-2) +8*Self(n-3): n in [1..30]]; // Vincenzo Librandi, Apr 28 2012
(PARI) vector(30, n, 2^(n-3)*(n^2 -3*n +6)) \\ G. C. Greubel, Sep 06 2019
(Sage) [2^(n-2)*(n^2 -n +4) for n in (0..30)] # G. C. Greubel, Sep 06 2019
(GAP) List([0..30], n-> 2^(n-2)*(n^2 -n +4)); # G. C. Greubel, Sep 06 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|