|
%I #8 Nov 21 2013 12:47:31
%S 1,1,3,17,140,1623,23688,414292,8408768,193891685,5001814400,
%T 142675793706,4458289724928,151440666806527,5556047001924608,
%U 218947599027613688,9223382498249719808,413620308786882430089,19673207238835121651712,989209888652706998977990,52428801216451004088320000
%N Nearest integer to arithmetic mean of n! and n^n.
%t Join[{1},Table[Floor[Mean[{n^n,n!}]+1/2],{n,20}]] (* _Harvey P. Dale_, Oct 03 2011 *)
%Y Cf. A062874.
%K easy,nonn
%O 0,3
%A _Olivier Gérard_, Jun 26 2001
%E Corrected by Harvey P. Dale, Oct 03 2011
|
