|
Search: id:A104989
|
|
| |
|
| 1, 3, 13, 69, 433, 3133, 25657, 234537, 2367825, 26176981, 314670353, 4088360569, 57112939433, 853922061413, 13609089281849, 230346936181465, 4127180489763649, 78046835384582069, 1553536327234953153
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
PROGRAM
|
(PARI) {a(n)=if(n<0, 0, sum(k=0, n, (matrix(n+1, n+1, m, j, if(m==j, 1, if(m==j+1, -m+1, -polcoeff((1-1/sum(i=0, m, i!*x^i))/x+O(x^m), m-j-1))))^-2)[n+1, k+1]))}
|
|
CROSSREFS
|
Cf. A104988, A104980.
Adjacent sequences: A104986 A104987 A104988 this_sequence A104990 A104991 A104992
Sequence in context: A088714 A088368 A007808 this_sequence A119906 A059726 A121586
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Paul D. Hanna (pauldhanna(AT)juno.com), Apr 10 2005
|
|
|
Search completed in 0.002 seconds
|
