|
%I #14 Jan 25 2017 18:26:33
%S 0,1,4,22,152,1251,11980,130908,1607488,21915525,328477396,5368649634,
%T 95026828136,1810930007495,36968511612124,804857864647544,
%U 18615565047797520,455834881650397833,11780900281221329892
%N a(n) = Sum_{i=0..n} i^(n - i)*(n - i)^i.
%H G. C. Greubel, <a href="/A062817/b062817.txt">Table of n, a(n) for n = 1..425</a>
%F a(n) ~ sqrt(Pi/3) * n^(n+1/2) / 2^(n+1/2). - _Vaclav Kotesovec_, Dec 20 2014
%t Table[Sum[i^(n-i)*(n-i)^i,{i,0,n}],{n,20}] (* _Harvey P. Dale_, Jan 14 2017 *)
%o (PARI) for(n=1,25, print1(sum(k=0,n, k^(n-k)*(n-k)^k), ", ")) \\ _G. C. Greubel_, Jan 25 2017
%Y Cf. A252708, A252709, A252710.
%K nonn,easy
%O 1,3
%A _Olivier Gérard_, Jun 23 2001
%E Prior Mathematica program deleted by _Harvey P. Dale_, Jan 14 2017
|
