cp's OEIS Frontend

A127239 Central coefficients of Thue-Morse binomial triangle A127236.

%I A127239 #11 Jun 22 2020 04:48:53
%S A127239 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 A127239 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 A127239 0,0,0,0,1,0,1,1,1,1,1,0,0,1,1,0
%N A127239 Central coefficients of Thue-Morse binomial triangle A127236.
%H A127239 Robert Israel, <a href="/A127239/b127239.txt">Table of n, a(n) for n = 0..2000</a>
%F A127239 a(n) = A010060(binomial(2n,n)).
%p A127239 tm:= proc(n) option remember;
%p A127239   if n::even then procname(n/2^padic:-ordp(n, 2))
%p A127239   else 1 - procname((n-1)/2)
%p A127239   fi
%p A127239 end proc:
%p A127239 tm(0):= 0:
%p A127239 seq(tm(binomial(2*n,n)),n=0..100); # _Robert Israel_, May 07 2019
%t A127239 Table[ThueMorse[Binomial[2n, n]], {n, 0, 100}] (* _Jean-François Alcover_, Jun 22 2020 *)
%Y A127239 Cf. A010060, A127236.
%K A127239 easy,nonn
%O A127239 0,1
%A A127239 _Paul Barry_, Jan 10 2007