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