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 A024417 #18 Aug 03 2014 16:52:43
%S A024417 1,1,2,2,3,3,4,4,4,5,5,5,6,6,6,7,7,7,8,8,8,9,9,9,10,10,10,10,11,11,11,
%T A024417 12,12,12,12,13,13,13,14,14,14,14,15,15,15,15,16,16,16,16,17,17,17,17,
%U A024417 18,18,18,18,19,19,19,19,20,20,20,20,21,21,21,21,22,22,22,22,23,23,23
%N A024417 s(n,a(n)) = max{s(n,k): k=1,2,...,n}, n >= 1, where s(n,k) = Stirling numbers of the second kind.
%H A024417 T. D. Noe, <a href="/A024417/b024417.txt">Table of n, a(n) for n=1..1000</a>
%F A024417 a(n) ~ n/LambertW(n) - 1 (conjecture). - _Mats Granvik_, Oct 16 2013
%t A024417 a[n_] := (m = Max[t = Table[ StirlingS2[n, k], {k, 1, n}]]; Position[t, m][[1, 1]]); Table[a[n], {n, 1, 77}] (* _Jean-François Alcover_, Nov 15 2011 *)
%Y A024417 Cf. A002870 (maximum values), A008277 (triangle of Stirling numbers of the second kind).
%K A024417 nonn
%O A024417 1,3
%A A024417 _Clark Kimberling_
%E A024417 More terms retrieved from the b-file by _R. J. Mathar_, Sep 17 2008