|
| |
| |
|
|
|
1, 1, 2, 3, 7, 18, 58, 221, 1055, 6485, 50536, 478836, 5440177, 76190368, 1363369202, 31071197441, 868697997215, 29108097152159, 1188937117381254, 61492149340335133, 4073478163425582443, 335184988593624746984, 33170032360612393972748
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,3
|
|
|
LINKS
|
Table of n, a(n) for n=0..22.
|
|
|
MAPLE
|
with ( LinearAlgebra ):
ctln:= proc(n) option remember; binomial (2*n, n)/ (n+1) end:
T := proc (n, k)
if n=k then 1
elif irem (n+k, 2)=1 then 0
else Determinant (Matrix((n-k)/2, (i, j)-> ctln (i+j-1+k)))
fi
end:
a:= n-> add (T(n, k), k=0..n):
seq (a(n), n=0..25); # Alois P. Heinz, Feb 15 2011
|
|
|
CROSSREFS
|
Sequence in context: A005248 A032102 A100388 * A160181 A143874 A073641
Adjacent sequences: A186229 A186230 A186231 * A186233 A186234 A186235
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
N. J. A. Sloane, Feb 15 2011
|
|
|
EXTENSIONS
|
Corrected and extended by Alois P. Heinz, Feb 15 2011
|
|
|
STATUS
|
approved
|
| |
|
|
