|
| |
| |
|
|
|
0, 2, 6, 32, 222, 1824, 17016, 176112, 1993392, 24438960, 322294896, 4548010032, 68385367152, 1091838106800, 18454096189296, 329306074785072, 6189015238217712, 122232512688657840, 2531600753529542256
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,2
|
|
|
LINKS
|
|
|
|
PROG
|
(PARI) {a(n)=local(M=matrix(n+2, n+2, m, j, if(m==j, 1, if(m==j+1, -m+1, -(m-j-1)*polcoeff(log(sum(i=0, m, (i+2)!/2!*x^i)), m-j-1))))); if(n<0, 0, sum(i=1, #M, (M^0-M)^i/i)[n+2, 2])}
|
|
|
CROSSREFS
|
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
