%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