%I #18 Aug 03 2014 16:52:43
%S 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 12,12,12,12,13,13,13,14,14,14,14,15,15,15,15,16,16,16,16,17,17,17,17,
%U 18,18,18,18,19,19,19,19,20,20,20,20,21,21,21,21,22,22,22,22,23,23,23
%N 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 T. D. Noe, <a href="/A024417/b024417.txt">Table of n, a(n) for n=1..1000</a>
%F a(n) ~ n/LambertW(n) - 1 (conjecture). - _Mats Granvik_, Oct 16 2013
%t 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 Cf. A002870 (maximum values), A008277 (triangle of Stirling numbers of the second kind).
%K nonn
%O 1,3
%A _Clark Kimberling_
%E More terms retrieved from the b-file by _R. J. Mathar_, Sep 17 2008