%I #3 Feb 11 2014 19:05:33
%S 1,1,3,8,30,145,844,5779,45457,403791,3995883,43579692,519229008,
%T 6709162022,93440175754,1395274532769,22235989448253,376688084797128,
%U 6759236101851595,128066374705591015,2554869984086726681
%N Floor(average of first n factorials).
%F a(n) = Floor((1/n)(Sum_{i=1, ..., n} i!)
%e a(3) = Floor((1 + 2 + 6)/3) = 3.
%t s = 0; a = {}; For[i = 1, i <= 30, i++, s = s + i!; a = Append[a, Floor[(1/i) s]]]; a
%K easy,nonn
%O 1,3
%A _Joseph L. Pe_, Dec 10 2002
|