|
Search: id:A113086
|
|
| |
|
| 1, 4, 33, 586, 23299, 2166800, 490872957, 280082001078, 412989850899863, 1604627387895595612, 16673986511766782602033, 468802076619022792385223170, 35999655498002937223238590342603
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
PROGRAM
|
(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 this_sequence A058153 A020197 A102959
Adjacent sequences: A113083 A113084 A113085 this_sequence A113087 A113088 A113089
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Paul D. Hanna (pauldhanna(AT)juno.com), Oct 14 2005
|
|
|
Search completed in 0.002 seconds
|
