%I #10 Oct 26 2017 17:47:00
%S 1,2,3,3,5,5,6,6,6,6,8,7,9,11,11,9,11,11,12,12,12,12,15,13,14,15,14,
%T 14,16,15,16,15,16,16,17,15,16,18,19,17,21,20,22,22,21,22,24,22,22,23,
%U 23,22,25,23,23,22,22,23,26,25,27,28,29,25,26,25,27,29,29,28,30,28,30,32,31,30,32,32,33
%N Sum of exponents in prime-power factorization of C(2n,n).
%H Ivan Neretin, <a href="/A023816/b023816.txt">Table of n, a(n) for n = 1..10000</a>
%p with(numtheory):a:=proc(n) if n=0 then 0 else bigomega(binomial(2*n,n)) fi end: seq(a(n), n=1..79); # _Zerinvary Lajos_, Apr 11 2008
%t Table[Total[FactorInteger[Binomial[2 n, n]][[All, 2]]], {n, 79}] (* _Ivan Neretin_, Oct 26 2017 *)
%K nonn
%O 1,2
%A _Clark Kimberling_