A127239 Central coefficients of Thue-Morse binomial triangle A127236.

1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0, 0, 1, 0, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0

Offset

0,1

Links

Robert Israel, Table of n, a(n) for n = 0..2000

Formula

a(n) = A010060(binomial(2n,n)).

Maple

tm:= proc(n) option remember;
  if n::even then procname(n/2^padic:-ordp(n, 2))
  else 1 - procname((n-1)/2)
  fi
end proc:
tm(0):= 0:
seq(tm(binomial(2*n, n)), n=0..100); # Robert Israel, May 07 2019

Mathematica

Table[ThueMorse[Binomial[2n, n]], {n, 0, 100}] (* Jean-François Alcover, Jun 22 2020 *)

Crossrefs

Cf. A010060, A127236.

Sequence in context: A302052 A039985 A324822 * A129186 A353494 A190610

Adjacent sequences: A127236 A127237 A127238 * A127240 A127241 A127242

Keyword

easy,nonn

Author

Paul Barry, Jan 10 2007

Status

approved