OFFSET
0,5
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..2000
FORMULA
MATHEMATICA
{0, 0}~Join~Table[Total@ FactorInteger[LCM @@ Array[Binomial[n, #] &, n]][[All, -1]], {n, 2, 74}] (* Michael De Vlieger, Jan 13 2018 *)
PROG
(PARI) for(n=0, 100, l=1; for(k=0, n, l=lcm(l, binomial(n, k))); v=factor(l); s=0; for(k=1, matsize(v)[1], s=s+v[k, 2]); print1(s", "))
(PARI) a(n) = bigomega(lcm(vector(n+1, k, binomial(n, k-1)))); \\ Michel Marcus, Jan 06 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Ralf Stephan, Mar 28 2003
STATUS
approved