A023828 Sum of exponents in prime-power factorization of C(4n,n-2).
0, 3, 5, 5, 5, 9, 9, 11, 8, 8, 10, 12, 13, 15, 15, 16, 13, 16, 17, 16, 16, 18, 20, 22, 18, 20, 21, 20, 20, 22, 24, 25, 24, 25, 26, 26, 24, 28, 28, 29, 24, 28, 29, 29, 28, 29, 32, 34, 31, 31, 33, 31, 31, 34, 32, 34, 30, 33, 34, 37, 37, 40, 43, 42, 37, 39, 40, 41, 41, 41, 43, 44, 40, 45, 46, 46, 45, 47
Offset: 2
Keywords
Links
- Ivan Neretin, Table of n, a(n) for n = 2..10000
Crossrefs
Programs
-
Mathematica
Join[{0}, Table[Total[FactorInteger[Binomial[4 n, n - 2]][[All, 2]]], {n, 3, 78}]] (* Ivan Neretin, Nov 02 2017 *) a[n_] := PrimeOmega[Binomial[4*n, n-2]]; Array[a, 100, 2] (* Amiram Eldar, Jun 13 2025 *)
-
PARI
a(n) = bigomega(binomial(4*n,n-2)); \\ Amiram Eldar, Jun 13 2025
Formula
Extensions
Offset corrected to 2 by Ivan Neretin, Nov 02 2017