|
|
|
|
0, 4, 28, 224, 1784, 13692, 102036, 745432, 5374192, 38400500, 272709644, 1928498640, 13597146600, 95668307308, 672119557252, 4717043931848, 33080342679008, 231867574534116, 1624598900644860, 11379821699045056
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
CoefficientList[Series[4 x (1 - 7 x + 18 x^2)/((1-x)^2 (1-5 x)(1-7 x)), {x, 0, 30}], x] (* Vincenzo Librandi, Feb 25 2013 *)
|
|
PROG
|
(Magma) [2*n+7^n-5^n: n in [0..30]] /* or */ I:=[0, 4, 28, 224]; [n le 4 select I[n] else 14*Self(n-1)-60*Self(n-2)+82*Self(n-3)-35*Self(n-4): n in [1..20]]; // Vincenzo Librandi, Feb 26 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|