OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
For n = 19, the A001222 spectrum for binomial(n,k) is: {0, 1, 3, 3, 5, 6, 6, 6, 6, 5, 5, 6, 6, 6, 6, 5, 3, 3, 1, 0}. The maximum arises 8 times, so a(19) = 8.
MATHEMATICA
a[n_] := Module[{row = Table[PrimeOmega[Binomial[n, k]], {k, 0, n}]}, Count[row, Max[row]]]; Array[a, 100] (* Amiram Eldar, Aug 13 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved