A112916 Self-convolution of A088716, where a(n) = 2*A088716(n+1)/(n+2) for n>=0.

1, 2, 7, 34, 207, 1496, 12420, 115938, 1198831, 13582010, 167187547, 2221174504, 31675372612, 482628099144, 7825665501852, 134562607924194, 2446051941152127, 46873289933397206, 944492559814284397

Offset

0,2

Links

Table of n, a(n) for n=0..18.

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: A357829 A075834 A011800 * A145845 A355292 A002720

Adjacent sequences: A112913 A112914 A112915 * A112917 A112918 A112919

Keyword

nonn

Author

Paul D. Hanna, Oct 06 2005

Status

approved