|
| |
|
|
A112916
|
|
Self-convolution of A088716, where a(n) = 2*A088716(n+1)/(n+2) for n>=0.
|
|
2
| |
|
|
1, 2, 7, 34, 207, 1496, 12420, 115938, 1198831, 13582010, 167187547, 2221174504, 31675372612, 482628099144, 7825665501852, 134562607924194, 2446051941152127, 46873289933397206, 944492559814284397
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
PROG
| (PARI) {a(n)=local(A=Mat(1), B); for(m=2, n+1, B=matrix(m, m); for(i=1, m, for(j=1, i, if(j==i, B[i, j]=1, B[i, j]=-j*(A^-1)[i-j, 1]); )); A=B); return(Vec(Ser(vector(n+1, i, (A^-1)[i, 1]))^2)[n+1])}
|
|
|
CROSSREFS
| Cf. A088716, A112915, A112911.
Sequence in context: A056543 A075834 A011800 * A145845 A002720 A111539
Adjacent sequences: A112913 A112914 A112915 * A112917 A112918 A112919
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Paul D. Hanna (pauldhanna(AT)juno.com), Oct 06 2005
|
| |
|
|
