%N Number of unitary divisors of central binomial coefficients.
%C As in A034444, all terms are powers of 2.
%H Amiram Eldar, <a href="/A039593/b039593.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A034444(A001405(n)) = 2^A034973(n).
%e At n=5, the central binomial coefficient is 10, having 4 divisors, each of which is unitary, so a(5)=4.
%t a[n_] := 2^PrimeNu[Binomial[n, Floor[n/2]]]; Array[a, 56] (* _Amiram Eldar_, Oct 06 2019 *)
%Y Cf. A001405, A034444, A034973.
%A _Labos Elemer_