A023852 Sum of exponents in prime-power factorization of binomial(6n, n).

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, 21, 23, 22, 22, 24, 25, 25, 24, 25, 28, 25, 27, 28, 28, 26, 31, 30, 38, 36, 33, 38, 38, 37, 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

Offset

1,1

Links

Ivan Neretin, Table of n, a(n) for n = 1..10000

Formula

a(n) = A001222(A004355(n)). - Michel Marcus, Nov 10 2017

Maple

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

Mathematica

Table[PrimeOmega[Binomial[6 n, n]], {n, 77}] (* Ivan Neretin, Nov 09 2017 *)

Prog

(PARI) a(n) = bigomega(binomial(6*n, n)); \\ Michel Marcus, Nov 10 2017

Crossrefs

Cf. A001222, A004355.

Cf. A023853, A023854.

Sequence in context: A087786 A210468 A080950 * A354629 A048750 A344403

Adjacent sequences: A023849 A023850 A023851 * A023853 A023854 A023855

Keyword

nonn

Author

Clark Kimberling

Status

approved