%I #25 Dec 27 2021 21:48:44
%S 2,45,160,375,756,1372,2304,3645,5500,7986,11232,15379,20580,27000,
%T 34816,44217,55404,68590,84000,101871,122452,146004,172800,203125,
%U 237276,275562,318304,365835,418500,476656,540672,610929,687820,771750,863136,962407
%N Place n distinguishable balls in n boxes (in n^n ways); let f(n,k) = number of ways that max in any box is k, for 1 <= k <= n; sequence gives f(n,n-2)/n.
%H Vincenzo Librandi, <a href="/A019579/b019579.txt">Table of n, a(n) for n = 3..1000</a>
%H <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (5,-10,10,-5,1).
%F a(n) = n*(n-1)^3/2, n >= 5.
%F G.f.: -x^3*(9*x^6 - 35*x^5 + 41*x^4 + 5*x^3 - 45*x^2 + 35*x + 2) / (x-1)^5. [_Colin Barker_, Jan 11 2013]
%F a(n) = 5*a(n-1)-10*a(n-2)+10*a(n-3)-5*a(n-4)+a(n-5). - _Wesley Ivan Hurt_, Dec 27 2021
%t CoefficientList[Series[-(9 x^6 - 35 x^5 + 41 x^4 + 5 x^3 - 45 x^2 + 35 x + 2)/(x - 1)^5, {x, 0, 50}], x] (* _Vincenzo Librandi_, Oct 16 2013 *)
%t LinearRecurrence[{5,-10,10,-5,1},{2,45,160,375,756,1372,2304},40] (* _Harvey P. Dale_, Dec 18 2020 *)
%Y Cf. A019576.
%K nonn,easy
%O 3,1
%A Lee Corbin (lcorbin(AT)tsoft.com), _N. J. A. Sloane_
%E More terms from _Vincenzo Librandi_, Oct 16 2013