OFFSET
0,3
LINKS
A. Karttunen, Gatomorphisms (Includes the complete Scheme program for computing this sequence)
MAPLE
a(n) = CatalanRankGlobal(btbf2df(binrev(A014486[n]), 0, 1)/2)
Maple procedure CatalanRank is adapted from the algorithm 3.23 of the CAGES book, see A014486
CatalanRank := proc(n, aa) local x, y, lo, a; a := binrev(aa); y := 0; lo := 0; for x from 1 to (2*n)-1 do lo := lo + (1-(a mod 2))*Mn(n, x, y+1); y := y - ((-1)^a); a := floor(a/2); od; RETURN((binomial(2*n, n)/(n+1))-(lo+1)); end;
CatalanRankGlobal := proc(a) local n; n := floor(binwidth(a)/2); RETURN(add((binomial(2*j, j)/(j+1)), j=0..(n-1))+CatalanRank(n, a)); end;
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Aug 11 2000
STATUS
approved