|
|
|
|
1, 4, 33, 586, 23299, 2166800, 490872957, 280082001078, 412989850899863, 1604627387895595612, 16673986511766782602033, 468802076619022792385223170, 35999655498002937223238590342603
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,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(if(n<1, 0, M[n+1, 2]))}
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|