|
|
A226801
|
|
Column 6 of array in A226513.
|
|
4
|
|
|
4683, 25988, 87135, 227304, 507035, 1014348, 1871583, 3242960, 5342859, 8444820, 12891263, 19103928, 27595035, 38979164, 53985855, 73472928, 98440523, 130045860, 169618719, 218677640, 278946843, 352373868, 441147935, 547719024, 674817675, 825475508
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
This is the case h = 6 in Sum_{k=0..h} S2(h,k)*k!*binomial(n+k,k), where S2 is the Stirling number of the second kind (see the Ahlbach et al. paper, Theorem 3). [Bruno Berselli, Jun 20 2013]
|
|
LINKS
|
|
|
FORMULA
|
G.f.: (4683 - 6793*x + 3562*x^2 - 798*x^3 + 67*x^4 - x^5) / (1-x)^7.
a(n) = (n + 1)*(n^5 + 35*n^4 + 430*n^3 + 2320*n^2 + 5525*n + 4683).
a(n) = 7*a(n-1) - 21*a(n-2) + 35*a(n-3) - 35*a(n-4) + 21*a(n-5) - 7*a(n-6) + a(n-7).
|
|
MATHEMATICA
|
Table[(n + 1) (n^5 + 35 n^4 + 430 n^3 + 2320 n^2 + 5525 n + 4683), {n, 0, 40}] (* or *) CoefficientList[Series[(4683 - 6793 x + 3562 x^2 - 798 x^3 + 67 x^4 - x^5) / (1-x)^7, {x, 0, 30}], x]
LinearRecurrence[{7, -21, 35, -35, 21, -7, 1}, {4683, 25988, 87135, 227304, 507035, 1014348, 1871583}, 30] (* Harvey P. Dale, Apr 27 2014 *)
|
|
PROG
|
(Magma) [(n+1)*(n^5+35*n^4+430*n^3+2320*n^2+5525*n+4683): n in [0..35]]; /* or */ I:=[4683, 25988, 87135, 227304, 507035, 1014348, 1871583]; [n le 7 select I[n] else 7*Self(n-1)-21*Self(n-2)+35*Self(n-3)-35*Self(n-4)+21*Self(n-5)-7*Self(n-6)+Self(n-7): n in [1..30]];
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|