login
Integer part of arithmetic mean of n! and n^n.
2

%I #8 Nov 21 2013 12:47:31

%S 1,1,3,16,140,1622,23688,414291,8408768,193891684,5001814400,

%T 142675793705,4458289724928,151440666806526,5556047001924608,

%U 218947599027613687,9223382498249719808,413620308786882430088

%N Integer part of arithmetic mean of n! and n^n.

%t Join[{1},Table[IntegerPart[Mean[{n!,n^n}]],{n,20}]] (* _Harvey P. Dale_, Jul 23 2011 *)

%Y Cf. A062874.

%K easy,nonn

%O 0,3

%A _Olivier GĂ©rard_, Jun 26 2001