|
| |
| |
|
|
|
0, 2, 6, 32, 222, 1824, 17016, 176112, 1993392, 24438960, 322294896, 4548010032, 68385367152, 1091838106800, 18454096189296, 329306074785072, 6189015238217712, 122232512688657840, 2531600753529542256
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
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
| Cf. A111549, A111544.
Sequence in context: A109572 A011820 A206300 * A009686 A012318 A012521
Adjacent sequences: A111547 A111548 A111549 * A111551 A111552 A111553
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Paul D. Hanna (pauldhanna(AT)juno.com), Aug 07 2005
|
| |
|
|
