OFFSET
1,2
COMMENTS
k is in the sequence if omega(C(k,j)) is a maximum for j = floor(k/2) and not a maximum for j < floor(k/2).
EXAMPLE
If n = 16 and k = 0, ..., 16 then r = 0,1,3,3,4,4,4,4,5,4,4,4,4,3,3,1,0. The maximum of A001221(C(16,k)) values, i.e. 5 is appears at k = 8, the center. Thus 16 is in this sequence.
MATHEMATICA
Select[Range@ 500, Function[n, Min@ MaximalBy[Range[0, n], PrimeNu@ Binomial[n, #] &] == Floor[n/2]]] (* Michael De Vlieger, Aug 01 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Michael De Vlieger, Aug 01 2017
Title clarified by Sean A. Irvine, Jun 18 2021
STATUS
approved