# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a111842 Showing 1-1 of 1 %I A111842 #4 Mar 30 2012 18:36:50 %S A111842 1,2,7,46,595,16444,1048303,162728110,63746277967,64594795730680, %T A111842 172419318632651104,1229463017642626881490,23684690483668583872503679, %U A111842 1244115601652916934000237966330,179585081405174505374545193721101377 %N A111842 Row sums of triangle A111840, which shifts columns left and up under matrix cube. %o A111842 (PARI) {a(n,q=3)=local(A=Mat(1),B);if(n<0,0, for(m=1,n+2,B=matrix(m,m);for(i=1,m, for(j=1,i, if(j==i,B[i,j]=1,if(j==1,B[i,j]=(A^q)[i-1,1], B[i,j]=(A^q)[i-1,j-1]));));A=B); return(sum(k=0,n,A[n+1,k+1])))} %Y A111842 Cf. A111840, A078125 (variant). %K A111842 nonn %O A111842 0,2 %A A111842 _Paul D. Hanna_, Aug 23 2005 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE