OFFSET
1,2
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
Join[{0}, Total[Transpose[FactorInteger[#]][[2]]]&/@Table[Binomial[4n, n+3], {n, 2, 80}]] (* Harvey P. Dale, Dec 24 2014 *)
a[n_] := PrimeOmega[Binomial[4*n, n+3]]; Array[a, 100] (* Amiram Eldar, Jun 13 2025 *)
PROG
(PARI) a(n) = bigomega(binomial(4*n, n+3)); \\ Amiram Eldar, Jun 13 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved
