OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..2000 from Robert Israel)
EXAMPLE
The number of distinct primes of binomial(15,k) are {0,2,3,3,4,4,4,4,4,4,4,4,3,3,2,0}. The maximum is 4 and it occurs 8 times, thus a(15) = 8.
MAPLE
f:= proc(n) local A, i;
A:= [seq(nops(numtheory:-factorset(binomial(n, i))), i=0..n)];
numboccur(max(A), A);
end proc:
map(f, [$1..100]); # Robert Israel, May 26 2020
MATHEMATICA
a[n_] := Sort[Tally[Table[PrimeNu[Binomial[n, k]], {k, 0, n}]]][[-1, 2]];
Array[a, 100] (* Jean-François Alcover, Jun 09 2020 *)
PROG
(PARI) a(n) = {v = vector(n+1, k, omega(binomial(n, k-1))); m = vecmax(v); sum(i=1, n+1, v[i] == m); } \\ Michel Marcus, Dec 30 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved