|
|
|
|
1, 2, 8, 68, 1252, 51724, 5000468, 1176844012, 696653833108, 1063944196415276, 4273738134967763028, 45828521528368595280876, 1327368163105850592309345044, 104832927462400739554960944906668
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
PROG
|
(PARI) {a(n)=local(M=matrix(n+1, n+1)); for(r=1, n+1, for(c=1, r, M[r, c]=if(r==c, 1, if(c>1, (M^3)[r-1, c-1])+(M^3)[r-1, c]))); return(sum(k=1, n+1, M[n+1, k]))}
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|