|
|
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;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|