login
Central coefficients of Thue-Morse binomial triangle A127236.
2

%I #11 Jun 22 2020 04:48:53

%S 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,

%T 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,

%U 0,0,0,0,1,0,1,1,1,1,1,0,0,1,1,0

%N Central coefficients of Thue-Morse binomial triangle A127236.

%H Robert Israel, <a href="/A127239/b127239.txt">Table of n, a(n) for n = 0..2000</a>

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

%p tm:= proc(n) option remember;

%p if n::even then procname(n/2^padic:-ordp(n, 2))

%p else 1 - procname((n-1)/2)

%p fi

%p end proc:

%p tm(0):= 0:

%p seq(tm(binomial(2*n,n)),n=0..100); # _Robert Israel_, May 07 2019

%t Table[ThueMorse[Binomial[2n, n]], {n, 0, 100}] (* _Jean-François Alcover_, Jun 22 2020 *)

%Y Cf. A010060, A127236.

%K easy,nonn

%O 0,1

%A _Paul Barry_, Jan 10 2007