|
|
|
|
14, 490, 10290, 163268, 2184910, 26118078, 288240050, 2997696520, 29780961966, 285300001490, 2653572489106, 24083839729740, 214124712999470, 1870539234917542, 16094233518706770, 136653810502199312
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Table[(n^3 + n) * 7^n, {n, 30}] (* or *) CoefficientList[Series[14 (1 + 7 x + 49 x^2)/(1 - 7 x)^4, {x, 0, 20}], x] (* Vincenzo Librandi, Feb 22 2013 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|