A102100 Row sums of triangular matrix A102098, which shifts upward to exclude the main diagonal under matrix cube.

1, 3, 18, 322, 12979, 924628, 103158338, 16710522378, 3724631345923, 1097090407192683, 413803244841678483, 194887616017161359389, 112265654949194591311618, 77751843768367000711311005

Offset

0,2

Links

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

Prog

(PARI) {a(n)=local(A=matrix(2, 2), B); A[1, 1]=1; for(m=2, n+1, B=matrix(m, m); for(i=1, m, for(j=1, i, if(j==i, B[i, j]=j, if(j==1, B[i, j]=(A^3)[i-1, 1], B[i, j]=(A^3)[i-1, j])); )); A=B); return(sum(k=0, n, A[n+1, k+1]))}

Crossrefs

Cf. A102098, A102099.

Sequence in context: A299431 A222790 A128775 * A083000 A370368 A303074

Adjacent sequences: A102097 A102098 A102099 * A102101 A102102 A102103

Keyword

nonn

Author

Paul D. Hanna, Dec 29 2004

Status

approved