|
%I
%S 1,1,2,3,7,18,58,221,1055,6485,50536,478836,5440177,76190368,
%T 1363369202,31071197441,868697997215,29108097152159,1188937117381254,
%U 61492149340335133,4073478163425582443,335184988593624746984,33170032360612393972748
%N Row sums of A185249.
%p with ( LinearAlgebra ):
%p ctln:= proc(n) option remember; binomial (2*n, n)/ (n+1) end:
%p T := proc (n,k)
%p if n=k then 1
%p elif irem (n+k,2)=1 then 0
%p else Determinant (Matrix((n-k)/2, (i, j)-> ctln (i+j-1+k)))
%p fi
%p end:
%p a:= n-> add (T(n,k), k=0..n):
%p seq (a(n), n=0..25); # Alois P. Heinz, Feb 15 2011
%K nonn
%O 0,3
%A _N. J. A. Sloane_, Feb 15 2011
%E Corrected and extended by _Alois P. Heinz_, Feb 15 2011
|
