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

Author

Paul Barry, Jan 10 2007

Keywords

• easy
• nonn

Links

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

Crossrefs

Cf. A010060, A127236.

Programs

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 *)

Formula

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