|
%I #16 Feb 25 2014 14:39:39
%S 1,2,2,4,4,6,4,8,12,18,16,24,24,32,24,48,32,48,32,48,96,128,64,96,144,
%T 192,288,384,384,480,192,384,512,768,768,1152,1152,1536,1536,2304,
%U 1536,2048,1536,2048,3072,3840,2304,3456,3456,4608,4608,6144,3072,3840,6144
%N Number of divisors of binomial(n, floor(n/2)), the terms of A001405.
%H T. D. Noe, <a href="/A034974/b034974.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A000005(A001405(n)). - _Michel Marcus_, Feb 25 2014
%e a(59) = d(C(59,29)) = d(59132290782430712) = 8192 = 4*2^11.
%t Table[DivisorSigma[0,Binomial[n,Floor[n/2]]],{n,60}] (* _Harvey P. Dale_, Jun 12 2012 *)
%o (PARI) a(n) = numdiv(binomial(n, n\2)); \\ _Michel Marcus_, Feb 25 2014
%Y Cf. A001405, A034973.
%K nonn
%O 1,2
%A _Labos Elemer_
|
