OFFSET
0,7
COMMENTS
What combinatorial problem is this the answer to?
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
MAPLE
f:= proc(n) local L; uses ListTools;
L:= [1, op(convert(binomial(2*n, n)/(n+1), base, 2))];
L:= Reverse(L[2..-1]-L[1..-2]);
Search(-1, L) - Search(1, L);
end proc:
map(f, [$0..100]); # Robert Israel, Dec 22 2016
MATHEMATICA
Table[First[Map[Length, DeleteCases[Split@ IntegerDigits[CatalanNumber@ n, 2], w_ /; Times @@ w > 0]] /. {} -> {0}], {n, 0, 89}] (* Michael De Vlieger, Dec 22 2016 *)
CROSSREFS
KEYWORD
AUTHOR
N. J. A. Sloane, Dec 22 2016
STATUS
approved