|
| |
| |
|
|
|
1, 4, 33, 586, 23299, 2166800, 490872957, 280082001078, 412989850899863, 1604627387895595612, 16673986511766782602033, 468802076619022792385223170, 35999655498002937223238590342603
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
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
| Cf. A113084.
Sequence in context: A101981 A002018 A072754 * A058153 A020197 A102959
Adjacent sequences: A113083 A113084 A113085 * A113087 A113088 A113089
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Paul D. Hanna (pauldhanna(AT)juno.com), Oct 14 2005
|
| |
|
|
