A102103 Column 1 of triangular matrix A102101, which shifts upward to exclude the main diagonal under matrix fourth power.

0, 2, 16, 1040, 196080, 82196224, 65585046960, 89664824687968, 194650170795350624, 633421180929983545024, 2953697281799409438455088, 19035190329068182887341039344, 164578521474330559730154886587328

Offset

0,2

Links

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

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^4)[i-1, 1], B[i, j]=(A^4)[i-1, j])); )); A=B); return(A[n+1, 2])}

Crossrefs

Cf. A102101.

Sequence in context: A273193 A002543 A125791 * A337070 A326974 A060597

Adjacent sequences: A102100 A102101 A102102 * A102104 A102105 A102106

Keyword

nonn

Author

Paul D. Hanna, Dec 29 2004

Status

approved