OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
a(2) = 20 because binomial(18,2) = 153 = 3^2*17 and 3+17 = 20.
a(3) = 21 because binomial(27,3) = 2925 = 3^2*5^2*13 and 3+5+13 = 21.
MAPLE
f:= n -> convert(NumberTheory:-PrimeFactors(binomial(9*n, n)), `+`):
map(f, [$1..100]); # Robert Israel, May 17 2026
MATHEMATICA
a[n_]:=Total[FactorInteger[Binomial[9*n, n]][[All, 1]]]; Table[a[n], {n, 1, 48}]
PROG
(Magma) a := func<n | &+PrimeDivisors(Binomial(9*n, n))>; N := 48; [a(n) : n in [1..N]];
(Python)
from collections import Counter
from sympy import factorint
def A396020(n):
c = Counter()
for i in range(8*n+1, 9*n+1):
c += factorint(i)
for i in range(2, n+1):
c -= factorint(i)
return sum(c) # Chai Wah Wu, May 17 2026
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, May 17 2026
STATUS
approved
