A112916 - OEIS

%I #3 Mar 30 2012 18:36:51

%S 1,2,7,34,207,1496,12420,115938,1198831,13582010,167187547,2221174504,

%T 31675372612,482628099144,7825665501852,134562607924194,

%U 2446051941152127,46873289933397206,944492559814284397

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

%o (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])}

%Y Cf. A088716, A112915, A112911.

%K nonn

%O 0,2

%A _Paul D. Hanna_, Oct 06 2005