|
Search: id:A111550
|
|
| |
|
| 0, 2, 6, 32, 222, 1824, 17016, 176112, 1993392, 24438960, 322294896, 4548010032, 68385367152, 1091838106800, 18454096189296, 329306074785072, 6189015238217712, 122232512688657840, 2531600753529542256
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
PROGRAM
|
(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: A055596 A109572 A011820 this_sequence A009686 A012318 A012521
Adjacent sequences: A111547 A111548 A111549 this_sequence A111551 A111552 A111553
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Paul D. Hanna (pauldhanna(AT)juno.com), Aug 07 2005
|
|
|
Search completed in 0.002 seconds
|
