|
|
|
|
0, 3, 10, 60, 470, 4344, 45320, 521200, 6513280, 87613440, 1260188800, 19286781440, 312884243840, 5363632995840, 96904980170240, 1840977689943040, 36700487712701440, 766296476640215040, 16728728381231472640
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
PROG
|
(PARI) {a(n)=local(M=matrix(n+3, n+3, m, j, if(m==j, 1, if(m==j+1, -m+1, -(m-j-1)*polcoeff(log(sum(i=0, m, (i+3)!/3!*x^i)), m-j-1))))); if(n<0, 0, sum(i=1, #M, (M^0-M)^i/i)[n+3, 3])}
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|