This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A023852 #26 Jun 12 2025 00:59:42
%S A023852 0,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 A023852 21,23,22,22,24,25,25,24,25,28,25,27,28,28,26,31,30,38,36,33,38,38,37,
%U A023852 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 A023852 Sum of exponents in prime-power factorization of binomial(6n, n).
%H A023852 Ivan Neretin, <a href="/A023852/b023852.txt">Table of n, a(n) for n = 0..10000</a>
%F A023852 a(n) = A001222(A004355(n)). - _Michel Marcus_, Nov 10 2017
%F A023852 a(n) = A022559(6*n) - A022559(5*n) - A022559(n). - _Amiram Eldar_, Jun 11 2025
%p A023852 with(numtheory):a:=proc(n) if n=0 then 0 else bigomega(binomial(6*n,n)) fi end: seq(a(n), n=0..77); # _Zerinvary Lajos_, Apr 11 2008
%t A023852 Table[PrimeOmega[Binomial[6 n, n]], {n, 0, 77}] (* _Ivan Neretin_, Nov 09 2017 *)
%o A023852 (PARI) a(n) = bigomega(binomial(6*n, n)); \\ _Michel Marcus_, Nov 10 2017
%Y A023852 Cf. A001222, A004355, A022559.
%Y A023852 Cf. A023853, A023854.
%K A023852 nonn
%O A023852 0,2
%A A023852 _Clark Kimberling_
%E A023852 a(0)=0 inserted by _Amiram Eldar_, Jun 11 2025