|
%I #18 Nov 12 2017 06:08:59
%S 2,3,6,5,7,9,9,8,10,10,14,13,12,15,16,15,16,16,19,16,18,22,24,22,23,
%T 21,23,22,22,24,25,25,24,25,28,25,27,28,28,26,31,30,38,36,33,38,38,37,
%U 35,36,38,33,33,37,38,36,39,37,43,39,41,43,46,42,40,41,45,46,43,47,46,45,46,47,49,47,45
%N Sum of exponents in prime-power factorization of binomial(6n, n).
%H Ivan Neretin, <a href="/A023852/b023852.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A001222(A004355(n)). - _Michel Marcus_, Nov 10 2017
%p with(numtheory):a:=proc(n) if n=0 then 0 else bigomega(binomial(6*n,n)) fi end: seq(a(n), n=1..77); # _Zerinvary Lajos_, Apr 11 2008
%t Table[PrimeOmega[Binomial[6 n, n]], {n, 77}] (* _Ivan Neretin_, Nov 09 2017 *)
%o (PARI) a(n) = bigomega(binomial(6*n, n)); \\ _Michel Marcus_, Nov 10 2017
%Y Cf. A001222, A004355.
%Y Cf. A023853, A023854.
%K nonn
%O 1,1
%A _Clark Kimberling_
|
