This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A048486 #14 Jun 19 2021 02:43:08 %S A048486 1,2,3,4,5,8,12,13,16,17,40,41,64,65,107,108,132,133,219,220,288,340, %T A048486 341,400,401,419,420,421,556,576,608,651,660,661,804,809,810,811,936, %U A048486 937,1020,1054,1055,1063,1255,1256,1307,1308,1368,1408,1409,1555,1556 %N A048486 Values of k for which the earliest maximal value of A001221(C(k,j)) is j = floor(k/2). %C A048486 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). %e A048486 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. %t A048486 Select[Range@ 500, Function[n, Min@ MaximalBy[Range[0, n], PrimeNu@ Binomial[n, #] &] == Floor[n/2]]] (* _Michael De Vlieger_, Aug 01 2017 *) %Y A048486 Cf. A001221, A001405, A034973, A048273, A048571. %K A048486 nonn %O A048486 1,2 %A A048486 _Labos Elemer_ %E A048486 More terms from _Michael De Vlieger_, Aug 01 2017 %E A048486 Title clarified by _Sean A. Irvine_, Jun 18 2021